GraphingCalculator 3.2;
Window 46 6 473 631;
PaneDivider 117;
FontSizes 14 12 10;
BackgroundColor 126 166 175;
Slider -2 2;
SliderSteps 100;
SliderControlValue 69;
SliderVariable s;
2D.BottomLeft -1.703125 -4.78125;
2D.Axes 0;
2D.GraphPaper 0;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACVJREFUeJxjYKAAMP6AMzvgrAlw1gcsYg2YLMYDlLhhFIwCJAAAAWMFUzhdXXwAAAAASUVORK5CYIIA" 1.421875 -0.9375;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACVJREFUeJxjYKAAMP6AMzvgrAlw1gcsYg2YLMYDlLhhFIwCJAAAAWMFUzhdXXwAAAAASUVORK5CYIIA" 4.984375 -0.796875;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAAChJREFUeJxjYKAAMP5ogDE74KyJcOkPcNYEOKsBk8V4gBI3jIJRgAQAj/8GVHJO6FwAAAAASUVORK5CYIIA" -1.71875 -0.828125;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACpJREFUeJxjYKAAMP50gDE74axJDTDWB7jCCXBWAyaL8QAlbhgFowAJAACQFwZXG8ScqQAAAABJRU5ErkJgggAA" 0.265625 -0.3125;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACFJREFUeJxjYKAAMH6AMzvwshDqGjBZjAcoccMoGAVIAADBdAU7BSVCjAAAAABJRU5ErkJgggAA" 1.234375 -0.3125;
Picture "iVBORw0KGgoAAAANSUhEUgAAAEgAAABIAQMAAABvIyEEAAAABGdBTUEAANkE3LLaAgAAAAZQTFRF////AAAAVcLTfgAAAAlwSFlzAAALEwAACxMBAJqcGAAAAAd0SU1FB9QIFQ0zAO5/7pYAAAAsdEVYdFNvZnR3YXJlAEdyYXBoaW5nIENhbGN1bGF0b3IgKGxpYnBuZyAxLjAuMTIpUCL3ygAAACRJREFUeJxjYKAEFMBZHTAGIwtxLIQOJFMU4CwJitw1CkYqAABoWwI9LDPJnQAAAABJRU5ErkJgggAA" 1.546875 0.765625;
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 dot([vector(x,y)-function(P,s)],vector(s,-(p*sqrt(s^2/q^2+1))+sqrt(p^2+q^2)))=0;
Color 3;
Expr Q=vector(0.50939,0.549474);
Color 3;
Expr dot([vector(x,y)-function(P,s)],vector(s,-(p*sqrt(s^2/q^2+1))-sqrt(p^2+q^2)))=0;
Color 17;
Expr abs(vector(x,y)-function(P,s))=abs(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);
Color 3;
Expr vector(x,y)=F+t*[Q-F];
Color 8;
Expr vector(x,y)=-F+t*[K+F];
Color 17;
Expr vector(x,y)=F+t*[function(P,s+1)-F];
Color 8;
Expr K=vector(1.78791,1.63903);
Color 8;
Expr vector(x,y)=Q+t*[K-Q];
Color 8;
Expr Q;