GraphingCalculator 3.2;
Window 69 15 565 677;
PaneDivider 151;
FontSizes 14 12 10;
BackgroundColor 126 166 175;
Slider -2 2;
SliderSteps 100;
SliderControlValue 24;
SliderMoving 1;
SliderVariable s;
SliderDirection -1;
2D.BottomLeft -1.65625 -5.078125;
2D.Axes 0;
2D.GraphPaper 0;
Color 8;
Expr 2*p*y>x^2;
Color 2;
Expr 2*p*y=x^2;
Color 2;
Expr y=-p/2;
Color 8;
Expr y=substitution(4*p*t/(4*p^2)*[x-t]+t^2/(2*p),t=s);
Expr function(P,s)=vector(s,s^2/(2*p));
Color 3;
Expr F=vector(0,p/2);
Color 6;
Expr vector(x,y)=function(P,s)+t*[F-function(P,s)];
Color 6;
Expr vector(x,y)=function(P,s)+t*[vector(s,10)-function(P,s)];
Color 6;
Expr F;