GraphingCalculator 4;
Window 65 46 720 1352;
PaneDivider 389;
FontSizes 16;
BackgroundType 0;
BackgroundColor 0 0 20;
StackPanes 1;
Slider 8 361;
SliderSteps 360;
SliderControlValue 278;
SliderMoving 1;
SliderDirection -1;
T 0 1.570796326794897;
U 0 1.570796326794897;
V 0 6.283185307179586;
4D.Show4DxyPlane 0;
4D.Show4Daxes 0;
4D.Depth 1.0430909743;
4D.View 0.552297650865051 -0.5619852888137211 0.03132734875806849 -0.6149458815355745 0.06839800915945823 -0.6749730401100664 -0.3184724703917907 0.6620486334568415 -0.6803671690223563 -0.2304633407030115 -0.548170698098025 -0.428364388864264 0.4768537852434025 0.418892084987208 -0.7727242513091761 0.006092623807077097;
Text "COMPLEX FUNCTIONS u+iv = w(x+iy) = w(z)
http://home.scarlet.be/~pin12499/qbComplex.html
by Guido 'wugi' Wuyts (Google wugi + qbcomplex)";
Color 2;
MathPaneSlider 120;
Expr m=slider([0,pi/2]);
Color 8;
MathPaneSlider 99;
Expr l=slider([0,2*pi+0.1]);
Color 7;
MathPaneSlider 200;
Expr 'mred'=slider([0,pi/2]);
MathPaneSlider 200;
Expr 'lred'=slider([0,2*pi]);
Color 3;
MathPaneSlider 200;
Expr 'mblu'=slider([0,pi/2]);
Color 4;
MathPaneSlider 200;
Expr 'lblu'=slider([0,2*pi]);
Text "
COMPLEX PARABOLA w = z^2
z unit plane in green, w unit plane in magenta.
With parameter curves in blue and red.
With characteristic curve in yellow: showing real curve ""y = x^2"" to be part of the complex surface.
Try sliders m and l for surface rendering; 
mred thru lblu for parameter curve rendering;
n for independent rotation along z- and w-planes.";
Color 12;
Expr vector(x,y,u,v)=vector(u*cos([v+n*(pi/180)]),u*sin([v+n*(pi/180)]),u*u*cos(2*[v+n*(pi/180)]),u*u*sin(2*[v+n*(pi/180)])),geq(u,m),leq(v,l);
Text "";
Color 6;
Expr vector(x,y,u,v)=vector(t*cos([a+n*(pi/180)]),t*sin([a+n*(pi/180)]),t*t*cos(2*[a+n*(pi/180)]),t*t*sin(2*[a+n*(pi/180)])),in(a,set(0,pi));
Color 2;
Expr vector(x,y,u,v)=vector(t*cos([a*(pi/9)+n*(pi/180)]),t*sin([a*(pi/9)+n*(pi/180)]),t*t*cos([2*[a*(pi/9)+n*(pi/180)]]),t*t*sin([2*[a*(pi/9)+n*(pi/180)]])),in(a,set(-9,-8,-7,-6,-5,-4,-3,-2,-1,1,2,3,4,5,6,7,8)),leq(t,'mred'),leq(a*(pi/9),'lred'-pi);
Color 3;
Expr vector(x,y,u,v)=vector(a*cos(4*t),a*sin(4*t),a*a*cos(2*4*t),a*a*sin(2*4*t)),in(a,set(0,0.2,0.4,0.6,0.8,1,1.2,1.4,pi/2)),leq(a,'mblu'),leq(4*t,'lblu');
Color 5;
Expr b=cos([n*(pi/180)]),c=sin([n*(pi/180)]);
Color 4;
Expr vector(b,c,0,0),vector(b-c,c+b,0,0),vector(-c,b,0,0),vector(0,0,0,0),vector(b,c,0,0);
Expr vector(0,0,0,0),vector(0,0,b,c),vector(0,0,b-c,c+b),vector(0,0,-c,b),vector(0,0,0,0);