// Coordinates System :
SetCoords(387.1837509641486,388.03713689812463,44.341618109170135);


// Geometry :
ox=X_axis("ox");
E6=Expression("E6","Si |k|> 1 la suite converge vers x1 ","","","2","-8.280792777118176","4.240646708813663");
P1=Point("P1","[0,1]","0");
P2=Point("P2","[1,0]","0");
O=Point("O",1.3489866086659794,1.6696985823982204);
E3=Expression("E3","La fonction homographique est d\u00e9finie par O intersection des asymptotes et un point M ","","","2","-8.280792777118176","6.7213861290390895");
M=Point("M",2.6570128484212043,6.2703425980890115);
E2=Expression("E2","It\u00e9rations sur fonction homographique ","","","3","-8.280792777118176","7.623473190939245");
oy=Y_axis("oy");
E5=Expression("E5","Si |k| < 1 la suite converge vers x2 ","","","1","-8.280792777118176","4.917212005238779");
E4=Expression("E4","Propri\u00e9t\u00e9 : La racine x2 est ATTRACTIVE ssi O est au dessus de la bissectrice des axes ","","","1","-8.506314542593216","-4.103658613762772");
x2=Expression("x2","","","","(O[0]+O[1]+sqrt((O[0]+O[1])^2+4*(M[1]*(M[0]-O[0])-O[1]*M[0])))/2","-7.60422748069306","2.8875161159634297");
f=Expression("f","","","","(y(O)*x+y(M)*(x(M)-x(O))-(y(O)*x(M)))/(x-x(O))","-8.280792777118176","5.142733770713818");
x1=Expression("x1","","","","(O[0]+O[1]-sqrt((O[0]+O[1])^2+4*(M[1]*(M[0]-O[0])-O[1]*M[0])))/2","-7.60422748069306","4.015124943338623");
Par1=Parallel("Par1",ox,O);
Symc3=Symmetry("Symc3",O,M);
L1=PerpendicularBisector("L1",P2,P1);
iter=Expression("iter","","40","100","45","3.2208172621088016","8.300038487364361");
A=PointOn("A",ox,-1.0415441053694312);
P5=Point("P5","[x2,0]","0");
B=Point("B","[x(A),f(x(A))]","0");
f1=Curvus("f1","","","f(x)");
P3=Point("P3","[x1,0]","0");
P6=Point("P6","[x2,x2]","0");
Perp1=Perpendicular("Perp1",Par1,O);
k=Expression("k","k = (c.x1+d)/(c.x2+d) = ","","","(x1-x(O))/(x2-x(O))","-8.280792777118176","5.819299067138934");
P4=Point("P4","[x1,x1]","0");
S3=Segment("S3",P3,P4);
S2=Segment("S2",P5,P6);
E1=Expression("E1","","","","var u=B;var tab=[[u[0],u[1]]];for (i=0; i<iter; i=i+1){var b=[u[1],u[1]];tab.push(b);var c=[b[0],f(b[0])];tab.push(c);u=c};tab","-8.506314542593216","6.044820832613973");
S1=Segment("S1",A,B);
List1=List("List1",E1);


// Styles :
STL(E6,"c:#966400;s:7;f:17;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(P1,"c:#0000b2;h:1;s:6;f:18");
STL(P2,"c:#0000b2;h:1;s:6;f:18");
STL(O,"c:#0000b2;o:1;s:6;sn:true;f:18;np:5.475892832659359");
STL(E3,"c:#317dff;s:7;f:17;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(M,"c:#cf0928;o:0.89;s:6;sn:true;f:18");
STL(E2,"c:#08804d;s:7;f:20;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E5,"c:#966400;s:7;f:17;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E4,"c:#cf0928;s:7;f:16;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(x2,"c:#535f32;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(f,"c:#4633db;h:1;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(x1,"c:#6f3920;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(Par1,"c:#007c7c;s:0.5;f:30;p:0");
STL(Symc3,"c:#0000b2;h:1;s:6;f:18");
STL(L1,"c:#39aa44;s:2;f:30;p:0");
STL(iter,"c:#46055f;s:6;sn:true;f:18;p:4;i:1;cL:160;cPT:YzojNzgwMDEzO3M6ODtmOjMwO2k6MQ==");
STL(A,"c:#0000b2;o:1;s:6;sn:true;f:18");
STL(P5,"c:#4633db;s:4;f:30;sp:1");
STL(B,"c:#0000b2;h:1;s:6;sn:true;f:30");
STL(f1,"c:#317dff;s:1;f:30;p:0");
STL(P3,"c:#883884;s:4;f:30;sp:1");
STL(P6,"c:#4633db;s:4;f:30;sp:1");
STL(Perp1,"c:#007c7c;s:0.5;f:30;p:0");
STL(k,"c:#966400;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(P4,"c:#883884;s:4;f:30;sp:1");
STL(S3,"c:#883884;s:0.5;f:24;dh:true");
STL(S2,"c:#883884;s:0.5;f:24;dh:true");
STL(E1,"c:#5c1d79;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(S1,"c:#ea15e4;s:0.5;f:24");
STL(List1,"c:#ea15e4;s:0;f:30;p:0;sg:0.5");
SetCoordsStyle("isAxis:true;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#e08132;fontSize:16;axisWidth:0.5;gridWidth:0.1");
SetGeneralStyle("background-color:#FAFAFA");