GraphingCalculator 4;
Window 45 371 973 1602;
PaneDivider 490;
FontSizes 10;
BackgroundType 0;
StackPanes 1;
2D.Scale 0.1 0.1 5 5;
2D.BottomLeft -2.79375 -2.3125;
2D.Axes 0;
2D.GraphPaper 0;
Text "<size=13>Polygon plotter

Version 0.5   12-12-16

";
Color 2;
Expr function(V,b)=vector(cos([b+2*pi*o]),sin([b+2*pi*o])),O=vector(0,0);
Color 2;
Expr function(T,A,B,C,s)=branch(if([1-(3*s)]*A+[3*s]*B,leq(0,s)<1/3),if([2-(3*s)]*B+[3*s-1]*C,leq(1/3,s)<2/3),if([3-(3*s)]*C+[3*s-2]*A,leq(2/3,s)<3/3));
Text "<size=13>For a figure with N sides there will be N vertices, hence N lines in the piecewise function.  All the ""3s"" become Ns, and all the 3's in the denominators of the ""if"" conditionals become N's.";
Color 4;
Expr function(T,A,B,C,D,E,F,G,H,I,J,K,L,N,s)=branch(if([1-(N*s)]*A+[N*s]*B,leq(0,s)<1/N),if([2-(N*s)]*B+[N*s-1]*C,leq(1/N,s)<2/N),if([3-(N*s)]*C+[N*s-2]*D,leq(2/N,s)<3/N),if([4-(N*s)]*D+[N*s-3]*E,leq(3/N,s)<4/N),if([5-(N*s)]*E+[N*s-4]*F,leq(4/N,s)<5/N),if([6-(N*s)]*F+[N*s-5]*G,leq(5/N,s)<6/N),if([7-(N*s)]*G+[N*s-6]*H,leq(6/N,s)<7/N),if([8-(N*s)]*H+[N*s-7]*I,leq(7/N,s)<8/N),if([9-(N*s)]*I+[N*s-8]*J,leq(8/N,s)<9/N),if([10-(N*s)]*J+[N*s-9]*K,leq(9/N,s)<10/N),if([11-(N*s)]*K+[N*s-10]*L,leq(10/N,s)<11/N),if([12-(N*s)]*L+[N*s-11]*A,leq(11/N,s)<12/N));
Text "<size=13>Regular polyhedra";
Color 3;
Expr N=7;
Color 5;
Expr o=slider([0,1]);
Color 6;
Expr B=2*pi/N;
Color 7;
Expr p=slider([0,1]);
Expr function(T,function(V,B),function(V,2*B),function(V,3*B),function(V,4*B),function(V,5*B),function(V,6*B),function(V,7*B),function(V,8*B),function(V,9*B),function(V,10*B),function(V,11*B),function(V,12*B),N,p);
Color 7;
Expr function(T,function(V,B),function(V,2*B),function(V,3*B),function(V,4*B),function(V,5*B),function(V,6*B),function(V,7*B),function(V,8*B),function(V,9*B),function(V,10*B),function(V,11*B),function(V,12*B),N,t);
Color 4;
Expr O,function(V,1*B);
Color 4;
Expr O,function(V,2*B);
Color 4;
Expr O,function(V,3*B);
Color 4;
Expr O,function(V,4*B);
Color 4;
Expr O,function(V,5*B);
Color 4;
Expr O,function(V,6*B);
Color 4;
Expr O,function(V,7*B);
Color 4;
Expr O,function(V,8*B);
Color 4;
Expr O,function(V,9*B);
Color 4;
Expr O,function(V,10*B);
Color 4;
Expr O,function(V,11*B);
Color 4;
Expr O,function(V,12*B);
Color 17;
Expr function(T,function(V,B),function(V,2*B),function(V,3*B),t);
Expr V_1=vector(0,0),V_2=vector(-1,1),V_3=vector(3,0);
Color 17;
Expr function(T,V_1,V_2,V_3,0);
Color 17;
Expr function(T,V_1,V_2,V_3,1/3);
Color 17;
Expr function(T,V_1,V_2,V_3,2/3);
Color 17;
Expr function(T,V_1,V_2,V_3,3/3);
Color 17;
Expr function(T,V_1,V_2,V_3,p);
Color 17;
Expr function(T,V_1,V_2,V_3,t);
Color 17;
Expr V_1;
Color 17;
Expr V_2;
Color 17;
Expr V_3;
Text "<size=13>Irregular polygons ... ";
Color 17;
Expr function(T,function(V,B),function(V,1.5*B),function(V,2.5*B),function(V,4*B),function(V,5.5*B),function(V,6*B),function(V,7*B),function(V,8*B),function(V,9*B),function(V,10*B),function(V,11*B),function(V,12*B),N,t);
Text "<size=14>



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