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 7;
SliderMoving 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.8274606023984803 0.4337832730958634 0.04088120430348397 0.3542170952892435 0.01172013633338745 -0.6470130158037051 0.1479586606008059 0.7478937294415926 0.1565977084790791 -0.1372267683907562 0.9293058992736011 -0.3050188802541418 0.5391184912259501 -0.6118619479913917 -0.3358980611186251 -0.4713265338968856;
Text "3-Sphere walk-through by translation of spheres
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 "Probing a 3-sphere with spheres (x,y,u) along v-axis.
b = radius of 3-sphere = sqrt(2)
d = sphere position along v-axis
c = sphere radius at position d
Remark: as in the 3D case, the only common point between the v-axis and the sphere is the sphere's centre.";
Color 6;
Expr vector(x,y,u,v)=vector(c*sin(u)*cos(v),c*sin(u)*sin(v),c*cos(u),d);
Color 7;
Expr vector(0,0,0,0),vector(2,0,0,0);
Color 7;
Expr vector(0,0,0,0),vector(0,2,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,c*b,0,d);
Color 6;
Expr vector(0,0,0,d),vector(0,0,c*b,d);