GraphingCalculator 3.2;
Window 46 6 362 646;
PaneDivider 0;
FontSizes 14 12 10;
BackgroundColor 255 255 255;
SliderVariable s;
2D.Scale 0.5 0.5 2 2;
2D.BottomLeft -0.53125 -4.53125;
2D.Axes 0;
2D.GraphPaper 0;
2Dp.Scale 1 1 5 5;
2Dp.BottomLeft -1 -9.3125;
2Dp.GraphPaper 0;
Color 5;
Expr -1<y<-0.1;
Color 2;
Expr A=-1.6875+1.75*i;
Color 3;
Expr B=2.65625+3.5*i;
Color 5;
Expr C=vector(p,0);
Color 4;
Expr a=Re(A),b=Im(A),c=Re(B),d=Im(B),?;
Color 8;
Expr vector(x,y)=vector(a,b)+t*[vector(p-a,-b)];
Color 8;
Expr vector(x,y)=vector(c,d)+t*[vector(p-c,-d)];
Color 5;
Expr vector(p,0);
Expr D=1.5625+2.8125*i;
Color 6;
Expr p=Re(D);
Expr function(f,t)=abs(vector(t-a,1-b))+abs(vector(t-c,-d));
Color 2;
Expr prime(y)=function(f,prime(x));
Color 5;
Expr -1<prime(y)<-0.1;
Color 5;
Expr abs(vector(prime(x),prime(y))-vector(p,function(f,p)))<0.3;
Color 7;
Expr ?;