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)

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)

Ethan,

Been using Gnuplot for years but somehow missed that feature.

Thanks,
Al

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