// Macros :
$macros={};
$macros["CoordNormal"]={
	name:"Coord Normal",
	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");
P31=Point("P31","P21+unitVector(crossProduct(P2-P4,P2-P3))","0");
n=Expression("n","","","","P31-P21","-2.763130020576872","-4.265307849223822");
STL(n,"c:#255355;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [n];
}};

$macros["DistancePtPlan"]={
	name:"Distance Pt Plan",
	parameters:["area","point"],
	exec:
	function (Poly1,P5){
P3=DefinitionPoint("P3",Poly1,2);
P2=DefinitionPoint("P2",Poly1,0);
P4=DefinitionPoint("P4",Poly1,1);
v=Expression("v","AB vect AC ","","","unitVector(crossProduct(P2-P4,P3-P4))","-1.2353666434556096","-1.9925268442832418");
E2=Expression("E2","","","","var _a=P4,_c=-v[0]*_a[0]-v[1]*_a[1]-v[2]*_a[2],_m=P5,_k=(-_c-v[0]*_m[0]-v[1]*_m[1]-v[2]*_m[2])/(v[0]*v[0]+v[1]*v[1]+v[2]*v[2]);[_k*v[0]+_m[0],_k*v[1]+_m[1],_k*v[2]+_m[2]]","-1.2353666434556096","-2.7895375819965382");
P21=Point("P21","E2","0");
E1=Expression("E1","","","","d(P5,P21)","-1.3303959358333088","-0.9758673485370699");
STL(E1,"c:#154561;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$macros["EqPlanparExpnp"]={
	name:"Eq Plan par Exp n p",
	parameters:["expression","expression"],
	exec:
	function (n,p){
E1=Expression("E1","ABC :","","","n[0]+\"x + (\"+n[1]+\")y + (\"+n[2]+\")z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])","-2.6169326649907942","-0.6103739595718751");
STL(E1,"c:#07371e;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$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","0.8187051912820361","-4.192209171430783");
P31=Point("P31","P21+unitVector(crossProduct(P2-P4,P2-P3))","0");
n=Expression("n","","","","P31-P21","-2.763130020576872","-4.265307849223822");
E1=Expression("E1","ABC :","","","n[0]+\"x + (\"+n[1]+\")y + (\"+n[2]+\")z = \"+(n[0]*p[0]+n[1]*p[1]+n[2]*p[2])","-2.6169326649907942","-0.6103739595718751");
STL(E1,"c:#07371e;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [E1];
}};

$macros["Equationdedroite"]={
	name:"Equation de droite",
	parameters:["point","point"],
	exec:
	function (M,R){
CdR=Expression("CdR","","","","R","-4.241584599414012","-3.994466192317718");
CdM=Expression("CdM","","","","M","-4.241584599414012","-4.289532947059563");
E1=Expression("E1","Equation (MR) = ","","","\"[\"+CdM[0]+\"+(\"+(CdR[0]-CdM[0])+\")*t,\"+CdM[1]+\"+(\"+(CdR[1]-CdM[1])+\")*t,\"+CdM[2]+\"+(\"+(CdR[2]-CdM[2])+\")*t]\"","-4.610418042841318","-0.5274318241010468");
STL(E1,"c:#b40000;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxNw==");
return [E1];
}};

// Coordinates System :
SetCoords(635,18.5,109.3048177418014,true);


// Geometry :
P11=Point("P11","[1,1,-1]","1");
Y=Point("Y","[0,1,0]","1");
P13=Point("P13","[-1,1,-1]","1");
P1=Point("P1",-3.7418295775958854,-3.0511006457902883);
E2=Expression("E2","5.c \u00c9quations de droites et de plans","","","2","-5.626467457754204","-0.47115947003957975");
E1=Expression("E1","Module 3D ","","","1","-5.626467457754204","-0.10521036709621684");
P12=Point("P12","[1,-1,-1]","1");
EqGene=Point("EqGene",-0.6587083852980532,-0.8005136626886064);
X=Point("X","[1,0,0]","1");
P14=Point("P14","[-1,-1,-1]","1");
Z=Point("Z","[0,0,1]","1");
P2=Point("P2",-1.9212327904526552,-1.9441046093866154);
Symc3=Symmetry("Symc3",P1,P13);
angl17=Angle("angl17",P14,P12,P11);
Symc1=Symmetry("Symc1",P1,P11);
S31=Segment("S31",P1,Z);
Symc2=Symmetry("Symc2",P1,P12);
S1010=Segment("S1010",P13,P11);
S107=Segment("S107",P12,P11);
S11=Segment("S11",P1,X);
S106=Segment("S106",P14,P13);
angl111=Angle("angl111",P13,P14,P12);
angl210=Angle("angl210",P11,P13,P14);
Symc4=Symmetry("Symc4",P1,P14);
S1011=Segment("S1011",P14,P12);
S21=Segment("S21",P1,Y);
angl26=Angle("angl26",P13,P14,P12);
angl2=Angle("angl2",P11,Symc4,Symc2);
S108=Segment("S108",Symc1,Symc3);
angl21=Angle("angl21",P13,Symc2,Symc1);
angl27=Angle("angl27",P11,P12,Symc3);
S103=Segment("S103",Symc3,P12);
A=PointOn("A",S106,0.6017723937450595);
angl29=Angle("angl29",Symc4,Symc2,P13);
angl1=Angle("angl1",Symc3,Symc4,P11);
angl22=Angle("angl22",P14,Symc1,Symc3);
angl211=Angle("angl211",P12,P14,Symc1);
S101=Segment("S101",Symc2,P13);
angl13=Angle("angl13",Symc1,Symc3,P12);
S10=Segment("S10",Symc4,P11);
angl12=Angle("angl12",Symc2,Symc1,P14);
angl23=Angle("angl23",P12,Symc3,Symc4);
S105=Segment("S105",Symc1,Symc2);
angl16=Angle("angl16",Symc1,P14,P13);
S104=Segment("S104",Symc3,Symc4);
angl14=Angle("angl14",P12,Symc3,Symc4);
angl24=Angle("angl24",Symc4,Symc3,Symc1);
S102=Segment("S102",Symc1,P14);
angl15=Angle("angl15",Symc3,Symc1,Symc2);
angl25=Angle("angl25",Symc2,Symc1,P14);
angl19=Angle("angl19",Symc1,Symc2,Symc4);
angl110=Angle("angl110",Symc2,P13,P11);
S109=Segment("S109",Symc2,Symc4);
angl28=Angle("angl28",Symc3,Symc1,Symc2);
Poly2=Polygon("Poly2","_Symc1,_Symc3,_Symc4,_Symc2");
angl11=Angle("angl11",Symc4,Symc2,P13);
B=PointOn("B",S1011,0.709661035135135);
angl18=Angle("angl18",P14,Symc1,Symc3);
E37=Expression("E37","","","","S107.setDash((angl17>\u03C0)&&(angl27>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E38=Expression("E38","","","","S108.setDash((angl18>\u03C0)&&(angl28>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E36=Expression("E36","","","","S106.setDash((angl16>\u03C0)&&(angl26>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E310=Expression("E310","","","","S1010.setDash((angl110>\u03C0)&&(angl210>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E39=Expression("E39","","","","S109.setDash((angl19>\u03C0)&&(angl29>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
C=PointOn("C",S10,0.4757555667333682);
R=PointOn("R",Poly2,[0.3476051194543979,0.26251359656120926]);
E31=Expression("E31","","","","S101.setDash((angl11>\u03C0)&&(angl21>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E32=Expression("E32","","","","S102.setDash((angl12>\u03C0)&&(angl22>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E33=Expression("E33","","","","S103.setDash((angl13>\u03C0)&&(angl23>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E3=Expression("E3","","","","S10.setDash((angl1>\u03C0)&&(angl2>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E35=Expression("E35","","","","S105.setDash((angl15>\u03C0)&&(angl25>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E34=Expression("E34","","","","S104.setDash((angl14>\u03C0)&&(angl24>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
E311=Expression("E311","","","","S1011.setDash((angl111>\u03C0)&&(angl211>\u03C0));\"Dash code\"","-4.250413156275022","-0.7661456968254935");
Poly1=Polygon("Poly1","_B,_C,_A");
v=Expression("v","AB vect AC ","","","unitVector(crossProduct(B-C,A-C))","-3.860761770417957","-2.6584411193909436");
CdR=Expression("CdR","","","","R","-5.3520056305466825","-0.8371085729829426");
M=PointOn("M",Poly1,[0.5054241892965815,0.1618746768273326]);
zg=ExpressionOn("zg","z(t) =","","","M[2]+(R[2]-M[2])*t",EqGene,[24,39]);
L1=Line("L1",R,M);
yg=ExpressionOn("yg","","","","M[1]+(R[1]-M[1])*t",EqGene,[24,9]);
CdM=Expression("CdM","","","","M","-5.3520056305466825","-1.2030576759263056");
E6=ExpressionOn("E6","","","","\"x(t) = \"+CdM[0]+\"+(\"+(CdR[0]-CdM[0])+\")*t\"",P2,[30,-20]);
E4=ExpressionOn("E4","","","","\"y(t) = \"+CdM[1]+\"+(\"+(CdR[1]-CdM[1])+\")*t\"",P2,[30,0]);
Q=PointOn("Q",L1,0.517495481387779);
E5=ExpressionOn("E5","","","","\"z(t) = \"+CdM[2]+\"+(\"+(CdR[2]-CdM[2])+\")*t\"",P2,[30,20]);
xg=ExpressionOn("xg","","","","CdM[0]+(R[0]-M[0])*t",EqGene,[24,-21]);
tT=ExpressionOn("tT","t(Q) = ","","","(Q[2]-M[2])/(R[2]-M[2])",P2,[260,0]);
E11=Expression("E11","Coord Q mesur\u00e9e dans le rep\u00e8re : ","","","Q","-1.933679599269625","-2.7055944926568976");
E7=ExpressionOn("E7","x(Q) calc = ","","","xg(tT)",P2,[390,-20]);
E8=ExpressionOn("E8","y(Q) calc = ","","","yg(tT)",P2,[390,0]);
E9=ExpressionOn("E9","z(Q) calc = ","","","zg(tT)",P2,[390,20]);


// Styles :
STL(P11,"c:#0000b2;h:1;s:6;f:17");
STL(Y,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(P13,"c:#0000b2;h:1;s:6;f:17");
STL(P1,"c:#007c00;s:5;f:17;sp:1;fl:true");
STL(E2,"c:#504e5c;s:7;f:22;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E1,"c:#0000b2;s:7;f:24;p:-1;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(P12,"c:#0000b2;h:1;s:6;f:17");
STL(EqGene,"c:#0000b2;s:6;sn:true;f:14;np:2.677945044588987");
STL(X,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(P14,"c:#0000b2;h:1;s:6;f:17");
STL(Z,"c:#0000b2;h:1;o:1;s:4;sn:true;f:17");
STL(P2,"c:#007c7c;s:6;f:30;sp:1");
STL(Symc3,"c:#0000b2;h:1;s:6;f:17");
STL(angl17,"c:#006633;h:2;s:4;f:24;p:1");
STL(Symc1,"c:#0000b2;h:1;s:6;f:17");
STL(S31,"c:#117dad;h:1;s:1;f:24");
STL(Symc2,"c:#0000b2;h:1;s:6;f:17");
STL(S1010,"c:#006633;s:1;f:24");
STL(S107,"c:#006633;s:1;f:24;dh:true");
STL(S11,"c:#117dad;h:1;s:1;f:24");
STL(S106,"c:#006633;s:1;f:24");
STL(angl111,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl210,"c:#006633;h:2;s:4;f:24;p:1");
STL(Symc4,"c:#0000b2;h:1;s:6;f:17");
STL(S1011,"c:#006633;s:1;f:24;dh:true");
STL(S21,"c:#117dad;h:1;s:1;f:24");
STL(angl26,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl2,"c:#006633;h:2;s:4;f:24;p:1");
STL(S108,"c:#006633;s:1;f:24");
STL(angl21,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl27,"c:#006633;h:2;s:4;f:24;p:1");
STL(S103,"c:#006633;s:1;f:24;dh:true");
STL(A,"c:#0000b2;o:0.83;s:6;sn:true;f:17;np:3.520582904778641");
STL(angl29,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl1,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl22,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl211,"c:#006633;h:2;s:4;f:24;p:1");
STL(S101,"c:#006633;s:1;f:24");
STL(angl13,"c:#006633;h:2;s:4;f:24;p:1");
STL(S10,"c:#006633;s:1;f:24");
STL(angl12,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl23,"c:#006633;h:2;s:4;f:24;p:1");
STL(S105,"c:#006633;s:1;f:24");
STL(angl16,"c:#006633;h:2;s:4;f:24;p:1");
STL(S104,"c:#006633;s:1;f:24");
STL(angl14,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl24,"c:#006633;h:2;s:4;f:24;p:1");
STL(S102,"c:#006633;s:1;f:24");
STL(angl15,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl25,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl19,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl110,"c:#006633;h:2;s:4;f:24;p:1");
STL(S109,"c:#006633;s:1;f:24");
STL(angl28,"c:#006633;h:2;s:4;f:24;p:1");
STL(Poly2,"c:#0026ff;h:1;o:0.06;s:1;f:30");
STL(angl11,"c:#006633;h:2;s:4;f:24;p:1");
STL(B,"c:#0000b2;o:1;s:6;sn:true;f:17;np:5.438208894501161");
STL(angl18,"c:#006633;h:2;s:4;f:24;p:1");
STL(E37,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E38,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E36,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E310,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E39,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(C,"c:#0000b2;o:1;s:6;sn:true;f:17;np:0.6856459153448841");
STL(R,"c:#b40000;o:1;s:6;sn:true;f:17");
STL(E31,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E32,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E33,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E3,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E35,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E34,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(E311,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(Poly1,"c:#966400;o:0.2;s:1;f:30");
STL(v,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTc=");
STL(CdR,"c:#7c6072;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(M,"c:#b40000;o:0.88;s:6;sn:true;f:17");
STL(zg,"c:#0d4043;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(L1,"c:#780013;s:1;f:30;p:0");
STL(yg,"c:#4f1200;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(CdM,"c:#70445e;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E6,"c:#0000b2;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E4,"c:#0000b2;s:7;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(Q,"c:#007c00;o:1;s:6;sn:true;f:18;sp:2");
STL(E5,"c:#0000b2;s:7;f:14;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(xg,"c:#63671e;s:7;sn:true;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(tT,"c:#007c00;s:7;sn:true;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E11,"c:#966400;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E7,"c:#007c7c;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E8,"c:#007c7c;s:7;f:15;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(E9,"c:#007c7c;s:7;f:15;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");