GraphingCalculator 4;
Window 50 65 974 1355;
PaneDivider 510;
SignificantDigits 14;
FontSizes 14;
BackgroundType 0;
BackgroundColor 255 255 255;
StackPanes 1;
T -10 10;
3D.X -4 4;
3D.Y -4 4;
3D.Z -4 4;
3D.Depth 0.8930909743000002;
3D.View 0.988383185066406 -0.1402597537176211 -0.05853102568940069 0.1423696611278324 0.989244277164317 0.03356545383550029 0.05319359991132413 -0.04150857246293062 0.9977211430774853;
3D.Speed 0;
Text "<size=17>A plane can be specified as the locus of points with a constant projection onto the normal vector.

Polar and azimuthal angles specifying normal direction N:";
Color 2;
MathPaneSlider 60;
Expr a=slider([0,1]);
MathPaneSlider 126;
Expr p=slider([0,2]);
Color 5;
Expr N=vector(sin(pi*a)*cos(2*pi*p),sin(pi*a)*sin(2*pi*p),cos(pi*a));
Text "<size=17>Rectangular coordinates of normal:";
Color 3;
Expr b=slider([0.001,2]);
Color 3;
Expr c=slider([0.001,2]);
Color 4;
Expr d=slider([0.001,2]);
Color 4;
Expr M=1/sqrt(b^2+c^2+d^2)*vector(b,c,d);
Expr t*N;
Color 8;
Expr O=vector(0,0,0),I=vector(1,0,0),J=vector(0,1,0),K=vector(0,0,1),X=vector(x,y,z);
Text "<size=17>Projection of position vectors of points in plane onto normal direction N:";
Color 6;
MathPaneSlider 153;
Expr A=slider([0,2]);
Text "<size=17>The plane is given as the locus of (tips of) position vectors X which have constant projection (A) onto the normal vector N:";
Color 7;
Expr dot(N,X)=A;
Text "<size=17>A is thus the distance between the origin and the plane.";
Text "<size=17>The normal vector:";
Color 7;
MathPaneSlider 52;
Expr R=slider([0,0.05]);
Color 17;
Expr O,N,'radius'=R;
Color 6;
Expr O+A*N,O+[A+1]*N,'radius'=R;
Text "<size=18>

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