GraphingCalculator 3.2;
Window 46 6 515 749;
PaneDivider 0;
FontSizes 14 12 10;
BackgroundColor 126 166 175;
Slider -2 2;
SliderSteps 100;
SliderControlValue 35;
SliderMoving 1;
SliderVariable s;
2D.BottomLeft -3.1875 -7.125;
2D.Axes 0;
2D.GraphPaper 0;
Color 2;
Expr x^2/p^2-y^2/q^2=1;
Color 17;
Expr x=y*q^(-2)*[y^2/q^2+1]^(-1/2);
Color 2;
Expr F;
Color 2;
Expr -F;
Color 2;
Expr function(P,s);
Expr function(P,t)=vector(p*sqrt(t^2/q^2+1),t);
Color 3;
Expr F=vector(sqrt(p^2+q^2),0);
Color 3;
Expr vector(x,y)=F+t*[function(P,s)-F];
Color 3;
Expr vector(x,y)=-F+t*[function(P,s)+F];
Color 8;
Expr x=s*q^(-2)*[s^2/q^2+1]^(-1/2)*[y-s]+p*sqrt(s^2/q^2+1);