// Macros :
$macros={};
$macros["EqplanparPoly"]={
	name:"Eq plan par Poly",
	parameters:["area"],
	exec:
	function (Poly1){
P3=DefinitionPoint("P3",Poly1,2);
P2=DefinitionPoint("P2",Poly1,0);
P4=DefinitionPoint("P4",Poly1,1);
P21=Point("P21","Poly1.barycenter3D()","0");
p=Expression("p","","","","P21.coords3D()","0.8187051912820361","-4.192209171430783");
P31=Point("P31","P21.coords3D()+crossProduct(P2.coords3D()-P4.coords3D(),P2.coords3D()-P3.coords3D())","0");
n=Expression("n","","","","P31.coords3D()-P21.coords3D()","-2.763130020576872","-4.265307849223822");
EqPlan=Expression("EqPlan","ABC :","","","n[0]+\"x + (\"+n[1]+\")y + (\"+n[2]+\")z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])","-6","-3");
STL(EqPlan,"c:#07371e;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [EqPlan];
}};

// Coordinates System :
SetCoords(432,14,86.67760289792734,true);


// Geometry :
P1=Point("P1",-2.053587017278444,-4.603265280303926);
Y=Point("Y","[0,1,0]","1");
P14=Point("P14","[-2,-2,-2]","1");
P13=Point("P13","[-2,2,-2]","1");
P12=Point("P12","[2,-2,-2]","1");
P11=Point("P11","[2,2,-2]","1");
E1=Expression("E1","","","","var Sol=[];for (var k=0;k<9;k++){for (var j=0;j<9;j++) {Sol.push([2-j/2,2-k/2,-2]);};};Sol","-4.176396068847172","-6.9914254633187465");
X=Point("X","[1,0,0]","1");
Z=Point("Z","[0,0,1]","1");
E4=Expression("E4","","","","var MurY=[];for (var k=0;k<9;k++){for (var j=0;j<9;j++) {MurY.push([-2,2-j/2,2-k/2]);};};MurY","-4.061026011696698","-7.106795520469221");
E2=Expression("E2","","","","var MurX=[];for (var k=0;k<9;k++){for (var j=0;j<9;j++) {MurX.push([2-j/2,-2,2-k/2]);};};MurX","-4.176396068847172","-7.452905691920644");
E18=Expression("E18","Manipulation : d\u00e9placer les points M, N, P, I, J , K ","","","3","0.7845163886232257","-5.606984777513054");
P4=Point("P4",-4.337914148857836,-1.3613666743755974);
P3=Point("P3",0.8537384229135103,-4.072563017411745);
P2=Point("P2",0.7845163886232257,-2.618900297315768);
E14=Expression("E14","I, J et K sont trois points libres de (MNP) ","","","3","-4.753246354599544","-0.530702262892182");
E5=Expression("E5","M,N et P sont des points de chaque plan, aimant\u00e9s sur des coordonn\u00e9es demi-enti\u00e8res. ","","","3","-4.753246354599544","-0.18459209144075897");
E19=Expression("E19","Le tri\u00e8dre se d\u00e9place \u00e0 un doigt tant qu'aucun outil n'est s\u00e9lectionn\u00e9 ","","","4","0.7845163886232257","-6.068465006114952");
angl17=Angle("angl17",P14,P12,P11);
angl26=Angle("angl26",P13,P14,P12);
S106=Segment("S106",P14,P13);
S1010=Segment("S1010",P13,P11);
List3=List("List3",E4);
angl210=Angle("angl210",P11,P13,P14);
List1=List("List1",E1);
S1011=Segment("S1011",P14,P12);
Poly1=Polygon("Poly1","_P12,_P11,_P13,_P14");
angl111=Angle("angl111",P13,P14,P12);
List2=List("List2",E2);
S11=Segment("S11",P1,X);
S107=Segment("S107",P12,P11);
Symc3=Symmetry("Symc3",P1,P13);
Symc4=Symmetry("Symc4",P1,P14);
S31=Segment("S31",P1,Z);
Symc2=Symmetry("Symc2",P1,P12);
Symc1=Symmetry("Symc1",P1,P11);
S21=Segment("S21",P1,Y);
E10=ExpressionOn("E10","Ce sont bien deux \u00e9quations du m\u00eame plan car ","","","4",P3,[30,-50]);
S102=Segment("S102",Symc1,P14);
angl12=Angle("angl12",Symc2,Symc1,P14);
N=PointOn("N",Poly1,[0.2500000000000018,0.49999999999999867]);
S105=Segment("S105",Symc1,Symc2);
angl22=Angle("angl22",P14,Symc1,Symc3);
S103=Segment("S103",Symc3,P12);
angl13=Angle("angl13",Symc1,Symc3,P12);
angl23=Angle("angl23",P12,Symc3,Symc4);
Poly3=Polygon("Poly3","_P13,_Symc2,_Symc1,_P14");
S104=Segment("S104",Symc3,Symc4);
Poly2=Polygon("Poly2","_P12,_P14,_Symc1,_Symc3");
angl14=Angle("angl14",P12,Symc3,Symc4);
angl11=Angle("angl11",Symc4,Symc2,P13);
angl25=Angle("angl25",Symc2,Symc1,P14);
angl16=Angle("angl16",Symc1,P14,P13);
angl27=Angle("angl27",P11,P12,Symc3);
S108=Segment("S108",Symc1,Symc3);
angl18=Angle("angl18",P14,Symc1,Symc3);
angl28=Angle("angl28",Symc3,Symc1,Symc2);
S109=Segment("S109",Symc2,Symc4);
angl19=Angle("angl19",Symc1,Symc2,Symc4);
angl29=Angle("angl29",Symc4,Symc2,P13);
angl110=Angle("angl110",Symc2,P13,P11);
angl211=Angle("angl211",P12,P14,Symc1);
S10=Segment("S10",Symc4,P11);
angl1=Angle("angl1",Symc3,Symc4,P11);
angl2=Angle("angl2",P11,Symc4,Symc2);
S101=Segment("S101",Symc2,P13);
angl15=Angle("angl15",Symc3,Symc1,Symc2);
angl24=Angle("angl24",Symc4,Symc3,Symc1);
angl21=Angle("angl21",P13,Symc2,Symc1);
E12=ExpressionOn("E12","Coord N = ","","","N",P4,[30,0]);
E35=Expression("E35","","","","S105.setDash((angl15>\u03C0)&&(angl25>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E311=Expression("E311","","","","S1011.setDash((angl111>\u03C0)&&(angl211>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
P=PointOn("P",Poly3,[0.37499999999999994,0.2500000000000001]);
E34=Expression("E34","","","","S104.setDash((angl14>\u03C0)&&(angl24>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
M=PointOn("M",Poly2,[-3.2254128742591823e-15,0.6250000000000009]);
E37=Expression("E37","","","","S107.setDash((angl17>\u03C0)&&(angl27>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E310=Expression("E310","","","","S1010.setDash((angl110>\u03C0)&&(angl210>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E31=Expression("E31","","","","S101.setDash((angl11>\u03C0)&&(angl21>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E32=Expression("E32","","","","S102.setDash((angl12>\u03C0)&&(angl22>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E38=Expression("E38","","","","S108.setDash((angl18>\u03C0)&&(angl28>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E3=Expression("E3","","","","S10.setDash((angl1>\u03C0)&&(angl2>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E39=Expression("E39","","","","S109.setDash((angl19>\u03C0)&&(angl29>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E36=Expression("E36","","","","S106.setDash((angl16>\u03C0)&&(angl26>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
E33=Expression("E33","","","","S103.setDash((angl13>\u03C0)&&(angl23>\u03C0));\"Dash code\"","-3.017972655312684","-1.0180647918827725");
Poly4=Polygon("Poly4","_M,_N,_P");
E13=ExpressionOn("E13","Coord P = ","","","P",P4,[30,30]);
E11=ExpressionOn("E11","Coord M = ","","","M",P4,[30,-30]);
I=PointOn("I",Poly4,[0.22820324137408088,0.21668885393558504]);
J=PointOn("J",Poly4,[0.656945234392329,0.20557515360876646]);
P21=Point("P21","Poly4.barycenter3D()","1");
K=PointOn("K",Poly4,[0.10712202177083308,0.6718469084432307]);
E16=ExpressionOn("E16","Coord J = ","","","J",P4,[220,0]);
E15=ExpressionOn("E15","Coord I = ","","","I",P4,[220,-30]);
Poly5=Polygon("Poly5","_I,_J,_K");
E17=ExpressionOn("E17","Coord K = ","","","K",P4,[220,30]);
p=Expression("p","","","","P21.coords3D()","0.522691535710657","-4.899651978348868");
P31=Point("P31","P21.coords3D()+crossProduct(M.coords3D()-N.coords3D(),M.coords3D()-P.coords3D())","1");
P211=Point("P211","Poly5.barycenter3D()","1");
n=Expression("n","","","","P31.coords3D()-P21.coords3D()","-3.7325855331534368","-4.986494367509359");
EqPlan=ExpressionOn("EqPlan","","","","\"Equation du plan MNP : \"+n[0]+\"x + \"+n[1]+\"y + \"+n[2]+\"z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])",P2,[30,-10]);
p1=Expression("p1","","","","P211.coords3D()","0.4785391740265558","-5.274471115964021");
P311=Point("P311","P211.coords3D()+crossProduct(I.coords3D()-J.coords3D(),I.coords3D()-K.coords3D())","1");
n1=Expression("n1","","","","P311.coords3D()-P211.coords3D()","-4.037840912499588","-5.366642138138022");
EqPlan1=ExpressionOn("EqPlan1","","","","\"Equation du plan IJK : \"+n1[0]+\"x + \"+n1[1]+\"y + \"+n1[2]+\"z = \"+(n1[0]*p1[0]+n1[1]*p1[1]+n1[2]*p1[2])",P2,[30,20]);
E6=ExpressionOn("E6","","","","\"rx = \"+n[0]+\"/\"+n1[0]+\" = \"+n[0]/n1[0]",P3,[30,-20]);
E7=ExpressionOn("E7","","","","\"ry = \"+n[1]+\"/\"+n1[1]+\" = \"+n[1]/n1[1]",P3,[30,10]);
E9=ExpressionOn("E9","","","","\"k1/k2 = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])+\"/\"+(n1[0]*p1[0]+n1[1]*p1[1]+n1[2]*p1[2])+\" = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])/(n1[0]*p1[0]+n1[1]*p1[1]+n1[2]*p1[2])",P3,[30,70]);
E8=ExpressionOn("E8","","","","\"rz = \"+n[2]+\"/\"+n1[2]+\" = \"+n[2]/n1[2]",P3,[30,40]);


// Styles :
STL(P1,"c:#0000b2;s:3;f:30;sp:2;fl:true");
STL(Y,"c:#0000b2;h:1;o:1;s:2;sn:true;f:12");
STL(P14,"c:#0000b2;h:1;s:6;f:30");
STL(P13,"c:#0000b2;h:1;s:6;f:30");
STL(P12,"c:#0000b2;h:1;s:6;f:30");
STL(P11,"c:#0000b2;h:1;s:6;f:30");
STL(E1,"c:#464e35;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(X,"c:#0000b2;h:1;o:1;s:2;sn:true;f:12");
STL(Z,"c:#0000b2;h:1;o:1;s:2;sn:true;f:12");
STL(E4,"c:#1a155f;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(E2,"c:#4c3a4f;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(E18,"c:#b40000;s:7;f:15;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(P4,"c:#0000b2;s:4;f:30;sp:1;fl:true");
STL(P3,"c:#0000b2;s:4;f:30;sp:1;fl:true");
STL(P2,"c:#0000b2;s:4;f:30;sp:1;fl:true");
STL(E14,"c:#646652;s:7;f:16;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E5,"c:#ce4e6c;s:7;f:16;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E19,"c:#0007ff;s:7;f:15;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(angl17,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl26,"c:#006633;h:2;s:4;f:24;p:1");
STL(S106,"c:#006633;h:1;s:1;f:24;dh:true");
STL(S1010,"c:#006633;s:1;f:24;dh:true");
STL(List3,"c:#0000b2;h:1;s:1;f:30;p:0;sg:0");
STL(angl210,"c:#006633;h:2;s:4;f:24;p:1");
STL(List1,"c:#0000b2;h:1;s:1;f:30;p:0;sg:0");
STL(S1011,"c:#006633;h:1;s:1;f:24");
STL(Poly1,"c:#c6a054;o:0.2;s:1;f:30");
STL(angl111,"c:#006633;h:2;s:4;f:24;p:1");
STL(List2,"c:#0000b2;h:1;s:1;f:30;p:0;sg:0");
STL(S11,"c:#117dad;h:1;s:1;f:24");
STL(S107,"c:#006633;h:1;s:1;f:24");
STL(Symc3,"c:#0000b2;h:1;s:6;f:30");
STL(Symc4,"c:#0000b2;h:1;s:6;f:30");
STL(S31,"c:#117dad;h:1;s:1;f:24");
STL(Symc2,"c:#0000b2;h:1;s:6;f:30");
STL(Symc1,"c:#0000b2;h:1;s:6;f:30");
STL(S21,"c:#117dad;h:1;s:1;f:24");
STL(E10,"c:#59312e;s:7;f:16;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(S102,"c:#006633;s:1;f:24");
STL(angl12,"c:#006633;h:2;s:4;f:24;p:1");
STL(N,"c:#b40000;o:1;s:6;sn:true;f:16;np:5.4774288938725935;mg:[List1,200]");
STL(S105,"c:#006633;h:1;s:1;f:24");
STL(angl22,"c:#006633;h:2;s:4;f:24;p:1");
STL(S103,"c:#006633;h:1;s:1;f:24");
STL(angl13,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl23,"c:#006633;h:2;s:4;f:24;p:1");
STL(Poly3,"c:#7292ea;o:0.2;s:1;f:30");
STL(S104,"c:#006633;h:1;s:1;f:24");
STL(Poly2,"c:#67c697;o:0.2;s:1;f:30");
STL(angl14,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl11,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl25,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl16,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl27,"c:#006633;h:2;s:4;f:24;p:1");
STL(S108,"c:#006633;s:1;f:24");
STL(angl18,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl28,"c:#006633;h:2;s:4;f:24;p:1");
STL(S109,"c:#006633;h:1;s:1;f:24");
STL(angl19,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl29,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl110,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl211,"c:#006633;h:2;s:4;f:24;p:1");
STL(S10,"c:#006633;h:1;s:1;f:24");
STL(angl1,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl2,"c:#006633;h:2;s:4;f:24;p:1");
STL(S101,"c:#006633;h:1;s:1;f:24;dh:true");
STL(angl15,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl24,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl21,"c:#006633;h:2;s:4;f:24;p:1");
STL(E12,"c:#0000b2;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E35,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E311,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(P,"c:#b40000;o:0.98;s:6;sn:true;f:17;mg:[List3,200]");
STL(E34,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(M,"c:#b40000;o:1;s:6;sn:true;f:17;np:2.5155103664510925;mg:[List2,200]");
STL(E37,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E310,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E31,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E32,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E38,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E39,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E36,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(E33,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(Poly4,"c:#b40000;o:0.18;s:1;f:30");
STL(E13,"c:#0000b2;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E11,"c:#0000b2;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(I,"c:#966400;o:1;s:6;sn:true;f:18");
STL(J,"c:#966400;o:1;s:6;sn:true;f:18");
STL(P21,"c:#0000b2;h:2;s:6;f:30");
STL(K,"c:#966400;o:1;s:6;sn:true;f:18");
STL(E16,"c:#966400;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E15,"c:#966400;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(Poly5,"c:#966400;o:0.24;s:1;f:30");
STL(E17,"c:#966400;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(p,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(P31,"c:#0000b2;h:2;s:6;f:30");
STL(P211,"c:#0000b2;h:2;s:6;f:30");
STL(n,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(EqPlan,"c:#991b92;s:7;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(p1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(P311,"c:#0000b2;h:2;s:6;f:30");
STL(n1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(EqPlan1,"c:#87734c;s:7;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E6,"c:#0000b2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E7,"c:#0000b2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E9,"c:#0035ff;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E8,"c:#0000b2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
SetCoordsStyle("3Dmode:true;isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:true;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");
SetGeneralStyle("background-color:#FFFFFF");