GraphingCalculator 4;
Window 152 114 706 1251;
PaneDivider 332;
FontSizes 16;
BackgroundType 0;
BackgroundColor 10 0 20;
StackPanes 1;
Slider 0 180;
SliderSteps 180;
SliderControlValue 57;
SliderMoving 1;
SliderDirection -1;
U 0 6.283185307179586;
V 0 6.283185307179586;
4D.X -1 1;
4D.Y -1 1;
4D.Z -1 1;
4D.W -1 1;
4D.Show4DxyPlane 0;
4D.Show4Daxes 0;
4D.Depth 1.7330909743;
4D.View -0.3017943486592732 0.1837013365104804 0.9336081659471576 0.05958005168288564 -0.2739862172003454 0.1604601686516685 -0.1795604083616531 0.9310972810665661 0.8181235503664451 0.5255841775483844 0.149622190970448 0.1790204698234772 -0.4056175294996965 0.815026150225514 -0.2715640848770187 -0.3121854288977841;
Text "Sphere walk-through by translation of circles
by Guido 'wugi' Wuyts, 2016
http://home.scarlet.be/wugi/qbComplex.html ";
Color 2;
Expr b=2^0.5;
Expr c=b*sin([n*(pi/180)]),d=b*cos([n*(pi/180)]);
Text "Sliding through a sphere with circles (x,u) along v-axis.
b = radius of sphere = sqrt(2)
d = circle position along v-axis
c = circle radius at position d
Remark: obviously the only common point between the v-axis and the circle is the circle's centre(remember though in 4D-case)";
Color 6;
Expr vector(x,y,u,v)=vector(c*sin(u)*cos(v),0,c*cos(u),d);
Color 7;
Expr vector(x,y,u,v)=vector(b*sin(u)*cos(v),0,b*sin(u)*sin(v),b*cos(u)),u<n*pi/180;
Color 7;
Expr vector(0,0,0,0),vector(2,0,0,0);
Color 7;
Expr vector(0,0,0,0),vector(0,0,2,0);
Color 3;
Expr vector(0,0,0,-2),vector(0,0,0,2);
Color 6;
Expr vector(0,0,0,d),vector(c*b,0,0,d);
Color 6;
Expr vector(0,0,0,d),vector(0,0,c*b,d);