// Macros :
$macros={};
$macros["Parabole 3 points"]={
	name:"Parabole 3 points",
	parameters:["point","point","point"],
	exec:
	function (A,B,C){
NumA=Expression("NumA","NumA = ","","","x(A)*(y(C)-y(B))-x(B)*y(C)+y(B)*x(C)+y(A)*(x(B)-x(C))","-5.4899577518251155","5.327949079567505");
Den=Expression("Den","Den=","","","x(A)(x(C)^2-x(B)^2)+x(B)x(C)*(x(B)-x(C))+x(A)^2*(x(B)-x(C))","-11.340494049302222","3.9349642468348605");
NumC=Expression("NumC","NumC = ","","","x(A)*(y(B)x(C)^2-x(B)^2*y(C))+x(A)^2*(x(B)y(C)-y(B)x(C))+y(A)(x(B)^2*x(C)-x(B)x(C)^2)","-14.962254614407097","5.885143012660563");
NumB=Expression("NumB","NumB = ","","","x(A)^2*(y(C)-y(B))-x(B)^2*y(C)+y(B)*x(C)^2+y(A)*(x(B)^2-x(C)^2)","-0.19661538744106694","3.9349642468348605");
a=Expression("a","","","","NumA/Den","-17.19103034677933","3.6563672802883316");
c=Expression("c","","","","NumC/Den","-17.19103034677933","1.1489945813695717");
b=Expression("b","","","","-NumB/Den","-17.19103034677933","2.263382447555687");
f1=Curvus("f1","","","a*x^2+b*x+c");
STL(f1,"c:#30ff00;s:2.5;f:30;p:0");
return [f1];
}};

$macros["Parabole 3pts acb"]={
	name:"Parabole 3pts acb",
	parameters:["point","point","point"],
	exec:
	function (A,B,C){
NumA=Expression("NumA","NumA = ","","","x(A)*(y(C)-y(B))-x(B)*y(C)+y(B)*x(C)+y(A)*(x(B)-x(C))","-5.4899577518251155","5.327949079567505");
Den=Expression("Den","Den=","","","x(A)(x(C)^2-x(B)^2)+x(B)x(C)*(x(B)-x(C))+x(A)^2*(x(B)-x(C))","-11.340494049302222","3.9349642468348605");
NumC=Expression("NumC","NumC = ","","","x(A)*(y(B)x(C)^2-x(B)^2*y(C))+x(A)^2*(x(B)y(C)-y(B)x(C))+y(A)(x(B)^2*x(C)-x(B)x(C)^2)","-14.962254614407097","5.885143012660563");
NumB=Expression("NumB","NumB = ","","","x(A)^2*(y(C)-y(B))-x(B)^2*y(C)+y(B)*x(C)^2+y(A)*(x(B)^2-x(C)^2)","-0.19661538744106694","3.9349642468348605");
a=Expression("a","","","","NumA/Den","2.867951244570751","5.049352113020976");
c=Expression("c","","","","NumC/Den","2.867951244570751","2.541979414102216");
b=Expression("b","","","","-NumB/Den","2.867951244570751","3.6563672802883316");
E1=Expression("E1","f(x) =","","","a*x^2+b*x+c","-17.19103034677933","5.327949079567505");
f1=Curvus("f1","","","a*x^2+b*x+c");
STL(a,"c:#780013;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(c,"c:#780013;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(b,"c:#780013;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(f1,"c:#30ff00;s:2.5;f:30;p:0");
return [a,c,b,f1];
}};

// Coordinates System :
SetCoords(337.99078122569784,263.2912852635121,29.962040177896256);


// Geometry :
A=Point("A",-2.8432865696330967,-0.6618857011828642);
B=Point("B",-7.842949940340057,-5.697499693709908);
C=Point("C",2.979390031189359,-3.8378911198132966);
P1=Point("P1",-10.198246486461459,4.854334236438407);
P2=Point("P2",-8.443085597218325,2.3191018408649944);
P3=Point("P3",1.307808231910186,6.41447724909897);
NumA=Expression("NumA","NumA = ","","","x(A)*(y(C)-y(B))-x(B)*y(C)+y(B)*x(C)+y(A)*(x(B)-x(C))","3.738370888940138","4.782427512036436");
Den=Expression("Den","Den=","","","x(A)(x(C)^2-x(B)^2)+x(B)x(C)*(x(B)-x(C))+x(A)^2*(x(B)-x(C))","-3.2704976244570996","3.1136492945609033");
NumC=Expression("NumC","NumC = ","","","x(A)*(y(B)x(C)^2-x(B)^2*y(C))+x(A)^2*(x(B)y(C)-y(B)x(C))+y(A)(x(B)^2*x(C)-x(B)x(C)^2)","-7.609320989893483","5.449938799026649");
NumB=Expression("NumB","NumB = ","","","x(A)^2*(y(C)-y(B))-x(B)^2*y(C)+y(B)*x(C)^2+y(A)*(x(B)^2-x(C)^2)","10.07972811534716","3.1136492945609033");
NumA1=Expression("NumA1","NumA = ","","","x(P1)*(y(P3)-y(P2))-x(P2)*y(P3)+y(P2)*x(P3)+y(P1)*(x(P2)-x(P3))","3.738370888940138","4.782427512036436");
Den1=Expression("Den1","Den=","","","x(P1)(x(P3)^2-x(P2)^2)+x(P2)x(P3)*(x(P2)-x(P3))+x(P1)^2*(x(P2)-x(P3))","-3.2704976244570996","3.1136492945609033");
NumC1=Expression("NumC1","NumC = ","","","x(P1)*(y(P2)x(P3)^2-x(P2)^2*y(P3))+x(P1)^2*(x(P2)y(P3)-y(P2)x(P3))+y(P1)(x(P2)^2*x(P3)-x(P2)x(P3)^2)","-7.609320989893483","5.449938799026649");
NumB1=Expression("NumB1","NumB = ","","","x(P1)^2*(y(P3)-y(P2))-x(P2)^2*y(P3)+y(P2)*x(P3)^2+y(P1)*(x(P2)^2-x(P3)^2)","10.07972811534716","3.1136492945609033");
a2=Expression("a2","","","","NumA/Den","-5.606787128922844","3.1136492945609033");
c2=Expression("c2","","","","NumC/Den","-5.606787128922844","0.44360414660005143");
b2=Expression("b2","","","","-NumB/Den","-5.606787128922844","1.7786267205804775");
a1=Expression("a1","","","","NumA1/Den1","13.751040193793333","4.44867186854133");
c1=Expression("c1","","","","NumC1/Den1","13.751040193793333","1.444871077085371");
b1=Expression("b1","","","","-NumB1/Den1","13.751040193793333","2.779893651065797");
xN=Expression("xN","","","","-(-sqrt(a1)*sqrt(abs(a2))*sqrt(abs(-4*a2*c2+4*a1*c2+4*a2*c1-4*a1*c1+b2^2-2*b1*b2+b1^2))+a2*b2-a2*b1)/(2*a2^2-2*a1*a2)","-9.611854850864122","-4.896486149321652");
E1=Expression("E1","f(x) =","","","a2*x^2+b2*x+c2","-10.279366137854336","4.782427512036436");
f1=Curvus("f1","","","a2*x^2+b2*x+c2");
E11=Expression("E11","f(x) =","","","a1*x^2+b1*x+c1","-10.279366137854336","4.782427512036436");
f11=Curvus("f11","","","a1*x^2+b1*x+c1");
xM=Expression("xM","","","","-(sqrt(a1)*sqrt(abs(a2))*sqrt(abs(-4*a2*c2+4*a1*c2+4*a2*c1-4*a1*c1+b2^2-2*b1*b2+b1^2))+a2*b2-a2*b1)/(2*a2^2-2*a1*a2)","-9.945610494359228","-6.565264366797185");
N=Point("N","[xN,f1(xN)]","0");
M=Point("M","[xM,f1(xM)]","0");
f3=Curvus("f3","","","(2*a2*x(N)+b2)*(x-x(N))+y(N)");
f2=Curvus("f2","","","(2*a2*x(M)+b2)*(x-x(M))+y(M)");


// Styles :
STL(A,"c:#007c00;o:1;s:3.5;f:30");
STL(B,"c:#007c00;o:1;s:3.5;f:30");
STL(C,"c:#007c00;o:1;s:3.5;f:30");
STL(P1,"c:#ff00d3;o:1;s:3.5;f:30");
STL(P2,"c:#ff00b5;o:1;s:3.5;f:30");
STL(P3,"c:#ff00c4;o:1;s:3.5;f:30");
STL(NumA,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(Den,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(NumC,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(NumB,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(NumA1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MjtzOjMuNTtmOjMw");
STL(Den1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MjtzOjMuNTtmOjMw");
STL(NumC1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MjtzOjMuNTtmOjMw");
STL(NumB1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MjtzOjMuNTtmOjMw");
STL(a2,"c:#007c7c;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(c2,"c:#007c7c;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(b2,"c:#007c7c;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(a1,"c:#ff0087;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(c1,"c:#ff0087;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(b1,"c:#ff0077;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(xN,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(E1,"c:#780013;h:1;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(f1,"c:#21ff00;s:2;f:30;p:0");
STL(E11,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MjtzOjMuNTtmOjMw");
STL(f11,"c:#ff00c4;s:2;sn:true;f:30;p:0");
STL(xM,"c:#780013;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojMDA3YzAwO2g6MTtzOjMuNTtmOjMw");
STL(N,"c:#007c00;h:1;s:3.5;sn:true;f:30");
STL(M,"c:#007c00;h:1;s:3.5;sn:true;f:30");
STL(f3,"c:#8200ff;s:2;f:30;p:0");
STL(f2,"c:#0016ff;s:2;f:30;p:0");
SetCoordsStyle("isAxis:true;isGrid:false;isOx:true;isOy:true;isLockOx:false;isLockOy:false;color:#6e5d34;fontSize:12;axisWidth:0.5;gridWidth:0.1");