// Coordinates System : SetCoords(614.5,339.5,40); // Geometry : ox=X_axis("ox"); S=Point("S",-1.7875,-5.8125); P1=Point("P1","[0,1]","0"); oy=Y_axis("oy"); P2=Point("P2","[1,0]","0"); L1=PerpendicularBisector("L1",P2,P1); A=PointOn("A",ox,6.2375); iter=Expression("iter","","40","100","48","-14.1125","3.7375"); ch=Expression("ch","","0","2","0","-14.1125","1.4875"); a=Expression("a","","-2","2","0.17499999999999982","-14.1125","5.4875"); f=Expression("f","","-15","15","a*(x-x(S))^2+y(S)","-14.8625","7.2375"); g=Expression("g","","-10","-10","f(f(x))","-7.6125","7.2375"); f1=Curvus("f1","","","f(x)"); B=Point("B","[x(A),f(x(A))]","0"); E1=Expression("E1","","","","var u=B;var tab=[[u[0],u[1]]];for (i=0; i