GraphingCalculator 4;
Window 44 0 856 1295;
PaneDivider 355;
SignificantDigits 14;
FontSizes 14;
BackgroundType 0;
BackgroundColor 255 255 255;
StackPanes 1;
SliderControlValue 0;
3D.X -8 8;
3D.Y -8 8;
3D.Z -8 8;
3D.Depth 0.7730909743000003;
3D.View 0.5080687596141088 0.8432078544531241 -0.1756890710939496 -0.7903805314171363 0.5374853857442449 0.2939525058189112 0.3422933698891013 -0.01048686364141958 0.9395346053392952;
3D.Speed 0;
Text "Aristotelian absolute spacetime.   Absolute space is the x-y plane and absolute time the z-direction.  

Version 0.3, 1-24-11

Space at t=0 and a set of later times separated by intervals d.";
Color 7;
Expr z=0;
Color 2;
Expr d=slider([0,1]);
Color 13;
Expr z=m*d,in(m,set(1,2,3,4,5,6,7,-1,-2,-3,-4,-5,-6,-7));
Text "Object moving is space & time, visualized either as moving in space at one time, or as worldine.";
MathPaneSlider 122;
Expr a=slider([-5,5]);
Color 6;
MathPaneSlider 103;
Expr a_0=slider([-5,5]);
Color 3;
MathPaneSlider 119;
Expr b=slider([-5,5]);
Color 8;
MathPaneSlider 105;
Expr b_0=slider([-5,5]);
Color 4;
MathPaneSlider 25;
Expr c=slider([-4,4,40]);
MathPaneSlider 100;
Expr c_0=slider([-5,5]);
Color 5;
Expr T_0=slider([-5,0]);
Text "Object moving in space.";
Grain 0;
Expr vector(a*[n+T_0]+a_0,b*[n+T_0]+b_0,0);
Text "Path of object moving in space.";
Color 17;
Expr vector(a*[n*t+T_0]+a_0,b*[n*t+T_0]+b_0,0);
Text "Object moving in absolute spacetime.";
Color 17;
Grain 0;
Expr vector(a*[n+T_0]+a_0,b*[n+T_0]+b_0,c*[n+T_0]+c_0);
Text "Path of object moving in absolute spacetime (worldline).";
Color 17;
Expr vector(a*[n*t+T_0]+a_0,b*[n*t+T_0]+b_0,c*[n*t+T_0]+c_0);
Text "


Author: David A. Craig <<http://web.lemoyne.edu/~craigda/>";