// Macros :
$macros={};
$macros["Cnk1P2TC"]={
	name:"Cnk 1P 2TC",
	parameters:["point","line","point","line","point"],
	exec:
	function (C,L2,AB1,L1,BA1){
L3=Line("L3",C,BA1);
L31=Line("L31",C,BA1);
L4=Line("L4",C,AB1);
P=OrderedIntersection("P",L2,L1,0);
Perp1=Perpendicular("Perp1",L3,P);
N=OrderedIntersection("N",Perp1,L3,0);
M=OrderedIntersection("M",L4,Perp1,0);
L6=Line("L6",BA1,M);
L5=Line("L5",AB1,N);
C1=OrderedIntersection("C1",L6,L5,0);
L21=Line("L21",AB1,C1);
L41=Line("L41",C,C1);
P2=OrderedIntersection("P2",L21,L1,0);
Perp11=Perpendicular("Perp11",L31,P2);
N1=OrderedIntersection("N1",Perp11,L31,0);
M1=OrderedIntersection("M1",L41,Perp11,0);
L51=Line("L51",BA1,M1);
L61=Line("L61",AB1,N1);
C11=OrderedIntersection("C11",L61,L51,0);
Quad=Quadric("Quad",AB1,C,C1,C11,BA1);
STL(Quad,"c:#007c7c;s:3.5;f:30;p:500");
return [Quad];
}};

$macros["CoordBary"]={
	name:"Coord Bary",
	parameters:["point","point","point","point"],
	exec:
	function (A,B,C,M){
L3=Line("L3",A,C);
L2=Line("L2",A,B);
L1=Line("L1",B,C);
Par2=Parallel("Par2",L3,M);
Par1=Parallel("Par1",L2,M);
U=OrderedIntersection("U",Par1,L1,0);
V=OrderedIntersection("V",Par2,L1,0);
CbM=Expression("CbM","","","","[(x(V)-x(U))/(x(C)-x(B)),(x(C)-x(V))/(x(C)-x(B)),(x(U)-x(B))/(x(C)-x(B))]","-12.0125","4.6375");
STL(CbM,"c:#54394f;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [CbM];
}};

// Coordinates System :
SetCoords(404.41859999999997,225.6114,41.616);


// Geometry :
E1=Expression("E1","Equations barycentriques des coniques. Cas des ellipses de Steiner","","","11","-9.237278931180315","4.700389273356402");
Stext=Expression("Stext","","","","x*y+y*z+z*x","-1.0673442906574386","3.7392204921184162");
C=Point("C",-0.012499999999998356,-2.4625);
B=Point("B",-6.1125,-1.4625000000000004);
Stint=Expression("Stint","","","","x^2+y^2+z^2-2*(x*y+y*z+z*x)","-9.477571126489812","-4.671006343713956");
M=Point("M",-1.611399845005921,-3.277523309716031);
A=Point("A",-2.8374999999999986,2.0124999999999997);
E4=Expression("E4","Placer M sur l'une des deux coniques et observer la valeur de Stint ou Stext en M ","","","3","-9.477571126489812","-7.073928296808919");
L1=Line("L1",B,C);
L31=Line("L31",A,C);
L2=Line("L2",A,B);
L3=Line("L3",A,C);
L33=Line("L33",A,C);
B2=MidPoint("B'",A,C);
L21=Line("L21",A,B);
L42=Line("L42",A,B);
L312=Line("L312",A,C);
C3=MidPoint("C'",B,A);
L11=Line("L11",B,C);
Par4=Parallel("Par4",L2,C);
Par5=Parallel("Par5",L3,B);
P=OrderedIntersection("P",L2,L3,0);
Par3=Parallel("Par3",L1,A);
Par2=Parallel("Par2",L3,M);
Par1=Parallel("Par1",L2,M);
P3=OrderedIntersection("P3",Par5,Par4,0);
P2=OrderedIntersection("P2",Par4,Par3,0);
U=OrderedIntersection("U",Par1,L1,0);
P1=OrderedIntersection("P1",Par5,Par3,0);
V=OrderedIntersection("V",Par2,L1,0);
P10=OrderedIntersection("P10",Par5,Par4,0);
Perp12=Perpendicular("Perp12",L33,P10);
L6=Line("L6",P1,C);
CbM=Expression("CbM","Coord. bary. M = ","","","[(x(V)-x(U))/(x(C)-x(B)),(x(C)-x(V))/(x(C)-x(B)),(x(U)-x(B))/(x(C)-x(B))]","-8.996986735870818","3.7392204921184162");
L5=Line("L5",B,P2);
L4=Line("L4",A,P3);
M2=OrderedIntersection("M2",L42,Perp12,0);
N2=OrderedIntersection("N2",Perp12,L33,0);
P4=OrderedIntersection("P4",L6,L5,0);
A2=OrderedIntersection("A'",L4,L1,0);
G=OrderedIntersection("G",L4,L5,0);
E3=Expression("E3","Stint(M) = ","","","Stint(CbM[0],CbM[1],CbM[2])","-8.035817954632833","-5.632175124951941");
E2=Expression("E2","Stext(M) = ","","","Stext(CbM[0],CbM[1],CbM[2])","-1.0673442906574386","3.018343906189927");
ABC=OrderedIntersection("A+B-C",L6,Par3,0);
BCA=OrderedIntersection("B+C-A",L4,Par4,0);
ACB=OrderedIntersection("A+C-B",L5,Par3,0);
L41=Line("L41",A2,C3);
C2=Symmetry("C2",G,C);
L311=Line("L311",A2,B2);
L32=Line("L32",A2,B2);
B1=Symmetry("B1",G,B);
I=Symmetry("I",G,A);
L62=Line("L62",C,M2);
L52=Line("L52",B,N2);
Perp1=Perpendicular("Perp1",L32,P);
C12=OrderedIntersection("C12",L62,L52,0);
L212=Line("L212",B,C12);
M1=OrderedIntersection("M1",L41,Perp1,0);
N1=OrderedIntersection("N1",Perp1,L32,0);
L412=Line("L412",A,C12);
L61=Line("L61",B2,M1);
L51=Line("L51",C3,N1);
P22=OrderedIntersection("P22",L212,Par4,0);
Perp111=Perpendicular("Perp111",L312,P22);
C1=OrderedIntersection("C1",L61,L51,0);
M12=OrderedIntersection("M12",L412,Perp111,0);
L411=Line("L411",A2,C1);
N12=OrderedIntersection("N12",Perp111,L312,0);
L211=Line("L211",C3,C1);
P21=OrderedIntersection("P21",L211,L3,0);
L612=Line("L612",B,N12);
L512=Line("L512",C,M12);
C111=OrderedIntersection("C111",L612,L512,0);
Perp11=Perpendicular("Perp11",L311,P21);
N11=OrderedIntersection("N11",Perp11,L311,0);
M11=OrderedIntersection("M11",L411,Perp11,0);
Quad1=Quadric("Quad1",B,A,C12,C111,C);
L511=Line("L511",B2,M11);
L611=Line("L611",C3,N11);
C11=OrderedIntersection("C11",L611,L511,0);
Quad=Quadric("Quad",C3,A2,C1,C11,B2);


// Styles :
STL(E1,"c:#1c1c91;s:7;f:15;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNQ==");
STL(Stext,"c:#af2b81;s:7;sn:true;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNQ==");
STL(C,"c:#0000b2;o:1;s:4;sn:true;f:15");
STL(B,"c:#0000b2;o:1;s:4;sn:true;f:15");
STL(Stint,"c:#0072ff;s:7;sn:true;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNQ==");
STL(M,"c:#b40000;o:1;s:4;sn:true;f:15;mg:[Quad1,20],[Quad,20],[I,5],[B1,5],[C2,5]");
STL(A,"c:#0000b2;o:1;s:4;sn:true;f:15");
STL(E4,"c:#1c1c91;s:7;f:14;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(L1,"c:#0000b2;s:1;f:30;p:0");
STL(L31,"c:#780013;h:2;s:1;f:30;p:0");
STL(L2,"c:#0000b2;s:1;f:30;p:0");
STL(L3,"c:#0000b2;s:1;f:30;p:0");
STL(L33,"c:#780013;h:2;s:1;f:30;p:0");
STL(B2,"c:#007c00;s:4;sn:true;f:15");
STL(L21,"c:#780013;h:2;s:1;f:30;p:0");
STL(L42,"c:#780013;h:2;s:1;f:30;p:0");
STL(L312,"c:#780013;h:2;s:1;f:30;p:0");
STL(C3,"c:#007c00;s:4;sn:true;f:15");
STL(L11,"c:#780013;h:2;s:1;f:30;p:0");
STL(Par4,"c:#966400;s:1;f:30;p:0");
STL(Par5,"c:#966400;s:1;f:30;p:0");
STL(P,"c:#0000b2;h:2;s:6;f:15");
STL(Par3,"c:#966400;s:1;f:30;p:0");
STL(Par2,"c:#780013;h:1;s:1;f:30;p:0");
STL(Par1,"c:#780013;h:1;s:1;f:30;p:0");
STL(P3,"c:#0000b2;h:1;s:4;f:15");
STL(P2,"c:#0000b2;h:1;s:4;f:15");
STL(U,"c:#0000b2;h:1;s:4;sn:true;f:15");
STL(P1,"c:#0000b2;h:1;s:4;f:15");
STL(V,"c:#0000b2;h:1;s:4;sn:true;f:15");
STL(P10,"c:#0000b2;h:2;s:6;f:15");
STL(Perp12,"c:#780013;h:2;s:1;f:30;p:0");
STL(L6,"c:#007c00;s:1;f:30;p:0");
STL(CbM,"c:#b40000;s:7;sn:true;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6NDtmOjE1");
STL(L5,"c:#007c00;s:1;f:30;p:0");
STL(L4,"c:#007c00;s:1;f:30;p:0");
STL(M2,"c:#0000b2;h:2;s:6;f:15");
STL(N2,"c:#0000b2;h:2;s:6;f:15");
STL(P4,"c:#0000b2;h:1;s:4;f:15");
STL(A2,"c:#007c00;s:4;sn:true;f:15;np:3.740301486172991");
STL(G,"c:#0044ff;s:4;sn:true;f:15");
STL(E3,"c:#0054ff;s:7;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNQ==");
STL(E2,"c:#992b79;s:7;f:14;p:9;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNQ==");
STL(ABC,"c:#966400;s:6;sn:true;f:15;sp:1;np:0.39953000412136724");
STL(BCA,"c:#966400;s:6;sn:true;f:15;sp:1");
STL(ACB,"c:#966400;s:6;sn:true;f:15;sp:1;np:2.2008302363408103");
STL(L41,"c:#780013;h:2;s:1;f:30;p:0");
STL(C2,"c:#0000b2;s:6;f:15;sp:2");
STL(L311,"c:#780013;h:2;s:1;f:30;p:0");
STL(L32,"c:#780013;h:2;s:1;f:30;p:0");
STL(B1,"c:#0000b2;s:6;f:30;sp:2");
STL(I,"c:#0000b2;s:6;sn:true;f:15;sp:2;np:3.599820261464076");
STL(L62,"c:#780013;h:2;s:1;f:30;p:0");
STL(L52,"c:#780013;h:2;s:1;f:30;p:0");
STL(Perp1,"c:#780013;h:2;s:1;f:30;p:0");
STL(C12,"c:#0000b2;h:2;s:6;f:15");
STL(L212,"c:#780013;h:2;s:1;f:30;p:0");
STL(M1,"c:#0000b2;h:2;s:6;f:15");
STL(N1,"c:#0000b2;h:2;s:6;f:15");
STL(L412,"c:#780013;h:2;s:1;f:30;p:0");
STL(L61,"c:#780013;h:2;s:1;f:30;p:0");
STL(L51,"c:#780013;h:2;s:1;f:30;p:0");
STL(P22,"c:#0000b2;h:2;s:6;f:15");
STL(Perp111,"c:#780013;h:2;s:1;f:30;p:0");
STL(C1,"c:#0000b2;h:2;s:6;f:15");
STL(M12,"c:#0000b2;h:2;s:6;f:15");
STL(L411,"c:#780013;h:2;s:1;f:30;p:0");
STL(N12,"c:#0000b2;h:2;s:6;f:15");
STL(L211,"c:#780013;h:2;s:1;f:30;p:0");
STL(P21,"c:#0000b2;h:2;s:6;f:15");
STL(L612,"c:#780013;h:2;s:1;f:30;p:0");
STL(L512,"c:#780013;h:2;s:1;f:30;p:0");
STL(C111,"c:#0000b2;h:2;s:6;f:15");
STL(Perp11,"c:#780013;h:2;s:1;f:30;p:0");
STL(N11,"c:#0000b2;h:2;s:6;f:15");
STL(M11,"c:#0000b2;h:2;s:6;f:15");
STL(Quad1,"c:#bc31a4;s:3.5;f:30;p:500");
STL(L511,"c:#780013;h:2;s:1;f:30;p:0");
STL(L611,"c:#780013;h:2;s:1;f:30;p:0");
STL(C11,"c:#0000b2;h:2;s:6;f:15");
STL(Quad,"c:#0044ff;s:3.5;f:30;p:500");
SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");