GraphingCalculator 4;
Window 47 6 859 1233;
PaneDivider 402;
FontSizes 14;
BackgroundType 0;
BackgroundColor 255 255 255;
StackPanes 1;
R 0 10;
2D.BottomLeft -1.96875 -3.390625;
2D.GraphPaper 0;
Text "Lines

Version 1.0 12-11-16


Two points determine a line";
Color 5;
Expr P_1=0.890625+0.96875*i;
Color 7;
Expr P_2=6.484375+3.765625*i;
Color 2;
Expr X_1=Re([P_1]),X_2=Re([P_2]);
Color 8;
Expr Y_1=Im([P_1]),Y_2=Im([P_2]);
Text "Slope, y- and x-intercepts";
Color 4;
Expr m=(Y_2-Y_1)/(X_2-X_1),b=(Y_1*X_2-(Y_2*X_1))/(X_2-X_1),c=(Y_2*X_1-(Y_1*X_2))/(Y_2-Y_1);
Color 5;
Expr m;
Color 6;
Expr b;
Color 3;
Expr c;
Text "Two-point or slope-intercept forms for the equation of a line";
Color 17;
Expr y-Y_1=m*[x-X_1];
Expr y=m*x+b;
Text "Display rise and run";
MathPaneSlider 74;
Expr d=slider([0,0.2]);
Color 17;
Expr min([X_1,X_2])<x<max([X_1,X_2]),Y_1-d/2<y<Y_1+d/2;
Color 17;
Expr X_2-d/2<x<X_2+d/2,min([Y_1,Y_2])<y<max([Y_1,Y_2]);
Color 17;
Expr min([X_1,X_2])<x<max([X_1,X_2]),-d/2<y<d/2;
Color 17;
Expr -d/2<x<d/2,min([Y_1,Y_2])<y<max([Y_1,Y_2]);
Text "y- and x-intercepts";
Color 17;
Expr vector(0,b);
Color 17;
Expr vector(c,0);
Text "... or fix slope and intercept instead of two points";
Color 2;
MathPaneSlider 107;
Expr M=slider([-10,10]);
Color 3;
MathPaneSlider 118;
Expr B=slider([-10,10]);
Text "(Swap primes to disable whichever method of setting M,B you don't want ... but why would you do what's immediately below since that's exactly what's already done at the top?)";
Color 4;
Expr prime(M)=m;
Color 5;
Expr prime(B)=b;
Color 17;
Expr y=M*x+B;
Color 17;
Expr vector(0,B);
Text "A line in polar coordinates passing p from the origin with slope -1/tan(2pi*P)=-cot(2pi*P).";
Color 6;
MathPaneSlider 58;
Expr p=slider([0,10]);
Expr P=slider([0,1]);
Color 17;
Expr r*cos([theta-(2*pi*P)])=p;
Color 17;
Grain 1;
Expr theta=2*pi*P,r<p;
Color 17;
Expr 0<theta<2*pi*P,r<0.5;
Color 8;
Expr tan([2*pi*P]);
Color 7;
Expr -cot([2*pi*P]);
Text "

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