GraphingCalculator 3.2;
Window 46 5 542 667;
PaneDivider 108;
FontSizes 14 12 10;
BackgroundColor 126 166 175;
Slider -2 2;
SliderSteps 100;
SliderControlValue 34;
SliderVariable s;
2D.BottomLeft -1.234375 -4.90625;
2D.Axes 0;
2D.GraphPaper 0;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACVJREFUeJxjYKAAMP6AMzvgrAlw1gcsYg2YLMYDlLhhFIwCJAAAAWMFUzhdXXwAAAAASUVORK5CYIIA" -0.03125 -0.359375;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACFJREFUeJxjYKAAMH6AMzvwshDqGjBZjAcoccMoGAVIAADBdAU7BSVCjAAAAABJRU5ErkJgggAA" -0.765625 -0.59375;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACFJREFUeJxjYKAAMH6AMzvwshDqGjBZjAcoccMoGAVIAADBdAU7BSVCjAAAAABJRU5ErkJgggAA" 5.21875 -0.421875;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAAChJREFUeJxjYKAAMH5ogDE74KxOuHQHnPUBzmrAZDEeoMQNo2AUIAEAUB8GPPe+BncAAAAASUVORK5CYIIA" -0.78125 -1.609375;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACpJREFUeJxjYKAEFCjAWB0wFiOLA5zFgIfF0IEwBc6CG8cgQZG7RsFIBQCqqgK99xKJcgAAAABJRU5ErkJgggAA" -1.78125 -1.59375;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QKEA01Jb4/PgUAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACRJREFUeJxjYKAEFMBZHTAGIwtxLIQOJFMU4CwJitw1CkYqAABoWwI9LDPJnQAAAABJRU5ErkJgggAA" -1.953125 -0.140625;
Color 8;
Expr 2*p*y=x^2;
Color 2;
Expr y=s*[x-s]/p+s^2/(2*p);
Color 5;
Expr y<s*[x-s]/p+s^2/(2*p),s<x,abs(vector(x,y)-function(P,s))<0.5;
Color 6;
Expr abs(vector(x,y)-function(P,s))<0.5,y>s*[x-s]/p+s^2/(2*p),y*s>p*s/2+x*[-p/2+s^2/(2*p)];
Expr function(P,s)=vector(s,s^2/(2*p));
Color 8;
Expr function(P,s);
Color 3;
Expr F=vector(0,p/2);
Color 2;
Expr F;
Color 4;
Expr A=vector(s-1,-s/p+s^2/(2*p));
Color 3;
Expr A;
Color 17;
Expr function(P,s-1);
Color 3;
Expr vector(x,y)=A+t*[vector(s,-p/2)-A];
Color 3;
Expr vector(x,y)=A-(t*[A-vector(s-1,-p/2)]);
Color 8;
Expr vector(x,y)=function(P,s)+t*[F-function(P,s)];
Color 8;
Expr x=s,0-p/2<y<s^2/(2*p);
Color 2;
Expr y=-p/2;