1. Forum
  2. Usenet
  3. COMP.GRAPHICS.APPS.GNUPLO

  • Intermediate variables in user functions

    From layzarc@aol.com@21:1/5 to All on Sun Aug 25 06:33:35 2019
    I have a script that works beautifully that has the following function definitions:

    phi(x,y) = (1+x)/(1+sqrt(1+(x*x-1)*y))
    astig(n,x,y) = phi(x,y)*(1-phi(x,y)*y)*(n-1)**2-(phi(x,y)-n*n)*(n-1+y*(phi(x,y)-n))**2

    It would be a lot cleaner if the following was possible:

    phi(x,y) = (1+x)/(1+sqrt(1+(x*x-1)*y))
    astig(n,x,y) = f=phi(x,y) f*(1-f*y)*(n-1)**2-(f-n*n)*(n-1+y*(f-n))**2

    Al

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From Ethan Merritt@21:1/5 to layzarc on Sun Aug 25 17:46:21 2019
    On Sun, 25 Aug 2019 06:33:35 -0700, layzarc wrote:

    I have a script that works beautifully that has the following function definitions:

    phi(x,y) = (1+x)/(1+sqrt(1+(x*x-1)*y))
    astig(n,x,y) = phi(x,y)*(1-phi(x,y)*y)*(n-1)**2-(phi(x,y)-n*n)*(n-1+y*(phi(x,y)-n))**2

    It would be a lot cleaner if the following was possible:

    phi(x,y) = (1+x)/(1+sqrt(1+(x*x-1)*y))
    astig(n,x,y) = f=phi(x,y) f*(1-f*y)*(n-1)**2-(f-n*n)*(n-1+y*(f-n))**2

    Al

    Use the serial evaluation operator (a,b):

    astig(n,x,y) = (f=phi(x,y) , f*(1-f*y)*(n-1)**2-(f-n*n)*(n-1+y*(f-n))**2)

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)
  • From layzarc@aol.com@21:1/5 to All on Sun Aug 25 12:21:21 2019
    Ethan,

    Been using Gnuplot for years but somehow missed that feature.

    Thanks,
    Al

    --- SoupGate-Win32 v1.05
    * Origin: fsxNet Usenet Gateway (21:1/5)