// 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];
}};

// Coordinates System :
SetCoords(508,18.5,158.16524961639843,true);


// Geometry :
P13=Point("P13","[-1,1,-1]","1");
P11=Point("P11","[1,1,-1]","1");
P1=Point("P1",0.7523776574728852,-1.7608166185394833);
P12=Point("P12","[1,-1,-1]","1");
P14=Point("P14","[-1,-1,-1]","1");
X=Point("X","[1,0,0]","1");
Z=Point("Z","[0,0,1]","1");
Y=Point("Y","[0,1,0]","1");
Symc1=Symmetry("Symc1",P1,P11);
S1010=Segment("S1010",P13,P11);
angl17=Angle("angl17",P14,P12,P11);
Symc2=Symmetry("Symc2",P1,P12);
Symc4=Symmetry("Symc4",P1,P14);
S11=Segment("S11",P1,X);
S21=Segment("S21",P1,Y);
S1011=Segment("S1011",P14,P12);
S106=Segment("S106",P14,P13);
angl26=Angle("angl26",P13,P14,P12);
Symc3=Symmetry("Symc3",P1,P13);
angl111=Angle("angl111",P13,P14,P12);
angl210=Angle("angl210",P11,P13,P14);
S107=Segment("S107",P12,P11);
S31=Segment("S31",P1,Z);
A=PointOn("A",S106,0.6017723937450595);
angl11=Angle("angl11",Symc4,Symc2,P13);
angl22=Angle("angl22",P14,Symc1,Symc3);
S101=Segment("S101",Symc2,P13);
B=PointOn("B",S1011,0.6771406529717611);
angl2=Angle("angl2",P11,Symc4,Symc2);
S103=Segment("S103",Symc3,P12);
angl1=Angle("angl1",Symc3,Symc4,P11);
angl13=Angle("angl13",Symc1,Symc3,P12);
S10=Segment("S10",Symc4,P11);
angl12=Angle("angl12",Symc2,Symc1,P14);
angl23=Angle("angl23",P12,Symc3,Symc4);
S104=Segment("S104",Symc3,Symc4);
angl14=Angle("angl14",P12,Symc3,Symc4);
angl24=Angle("angl24",Symc4,Symc3,Symc1);
S105=Segment("S105",Symc1,Symc2);
angl15=Angle("angl15",Symc3,Symc1,Symc2);
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);
S102=Segment("S102",Symc1,P14);
angl110=Angle("angl110",Symc2,P13,P11);
angl211=Angle("angl211",P12,P14,Symc1);
angl29=Angle("angl29",Symc4,Symc2,P13);
angl21=Angle("angl21",P13,Symc2,Symc1);
Poly2=Polygon("Poly2","_Symc1,_Symc3,_Symc4,_Symc2");
E3=Expression("E3","","","","S10.setDash((angl1>\u03C0)&&(angl2>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E36=Expression("E36","","","","S106.setDash((angl16>\u03C0)&&(angl26>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
C=PointOn("C",S10,0.4757555667333682);
E34=Expression("E34","","","","S104.setDash((angl14>\u03C0)&&(angl24>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E39=Expression("E39","","","","S109.setDash((angl19>\u03C0)&&(angl29>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E38=Expression("E38","","","","S108.setDash((angl18>\u03C0)&&(angl28>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E32=Expression("E32","","","","S102.setDash((angl12>\u03C0)&&(angl22>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E37=Expression("E37","","","","S107.setDash((angl17>\u03C0)&&(angl27>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E311=Expression("E311","","","","S1011.setDash((angl111>\u03C0)&&(angl211>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E35=Expression("E35","","","","S105.setDash((angl15>\u03C0)&&(angl25>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E31=Expression("E31","","","","S101.setDash((angl11>\u03C0)&&(angl21>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E33=Expression("E33","","","","S103.setDash((angl13>\u03C0)&&(angl23>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
E310=Expression("E310","","","","S1010.setDash((angl110>\u03C0)&&(angl210>\u03C0));\"Dash code\"","-2.134417238886304","-0.5294678569298926");
R=PointOn("R",Poly2,[-0.24983845344304847,0.5757847431798276]);
v=Expression("v","AB vect AC ","","","unitVector(crossProduct(B-C,A-C))","-1.8651370157194378","-1.837195102824979");
Poly1=Polygon("Poly1","_B,_C,_A");
M=PointOn("M",Poly1,[0.5575384358224156,0.15112078776139334]);
G=Point("G","Poly1.barycenter3D()","1");
CoordG=Expression("CoordG","","","","G","-3.022155632538144","-1.0843089769462169");
CoordM=Expression("CoordM","","","","M","-2.958930619305128","-2.475259268072559");
V=Point("V","G+unitVector(crossProduct(B-C,B-A))","1");
n=Expression("n","n=V-G = ","","","V-G","-2.958930619305128","-1.4004340431112947");
S1=Segment("S1",G,V);


// Styles :
STL(P13,"c:#0000b2;h:1;s:6;f:18");
STL(P11,"c:#0000b2;h:1;s:6;f:18");
STL(P1,"c:#b40000;s:5;f:18;fl:true");
STL(P12,"c:#0000b2;h:1;s:6;f:18");
STL(P14,"c:#0000b2;h:1;s:6;f:18");
STL(X,"c:#0000b2;h:1;o:1;s:4;sn:true;f:18");
STL(Z,"c:#0000b2;h:1;o:1;s:4;sn:true;f:18");
STL(Y,"c:#0000b2;h:1;o:1;s:4;sn:true;f:18");
STL(Symc1,"c:#0000b2;h:1;s:6;f:18");
STL(S1010,"c:#006633;s:1;f:24;dh:true");
STL(angl17,"c:#006633;h:2;s:4;f:24;p:1");
STL(Symc2,"c:#0000b2;h:1;s:6;f:18");
STL(Symc4,"c:#0000b2;h:1;s:6;f:18");
STL(S11,"c:#117dad;h:1;s:1;f:24");
STL(S21,"c:#117dad;h:1;s:1;f:24");
STL(S1011,"c:#006633;s:1;f:24");
STL(S106,"c:#006633;s:1;f:24;dh:true");
STL(angl26,"c:#006633;h:2;s:4;f:24;p:1");
STL(Symc3,"c:#0000b2;h:1;s:6;f:18");
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(S107,"c:#006633;s:1;f:24");
STL(S31,"c:#117dad;h:1;s:1;f:24");
STL(A,"c:#0000b2;o:0.83;s:6;sn:true;f:18;np:3.520582904778641");
STL(angl11,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl22,"c:#006633;h:2;s:4;f:24;p:1");
STL(S101,"c:#006633;s:1;f:24;dh:true");
STL(B,"c:#0000b2;o:1;s:6;sn:true;f:18;np:5.438208894501161");
STL(angl2,"c:#006633;h:2;s:4;f:24;p:1");
STL(S103,"c:#006633;s:1;f:24");
STL(angl1,"c:#006633;h:2;s:4;f:24;p:1");
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(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(S105,"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(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;s:1;f:24");
STL(angl19,"c:#006633;h:2;s:4;f:24;p:1");
STL(S102,"c:#006633;s:1;f:24");
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(angl29,"c:#006633;h:2;s:4;f:24;p:1");
STL(angl21,"c:#006633;h:2;s:4;f:24;p:1");
STL(Poly2,"c:#0026ff;h:1;o:0.06;s:1;f:30");
STL(E3,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E36,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(C,"c:#0000b2;o:1;s:6;sn:true;f:18;np:0.6856459153448841");
STL(E34,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E39,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E38,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E32,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E37,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E311,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E35,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E31,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E33,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E310,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(R,"c:#b40000;o:1;s:6;sn:true;f:18");
STL(v,"c:#780013;h:2;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(Poly1,"c:#966400;o:0.2;s:1;f:30");
STL(M,"c:#b40000;o:0.88;s:6;sn:true;f:18");
STL(G,"c:#007c00;s:6;sn:true;f:18;sp:1");
STL(CoordG,"c:#0000b2;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxOA==");
STL(CoordM,"c:#b40000;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxOA==");
STL(V,"c:#007c00;s:6;sn:true;f:18;sp:1;np:2.7755013624618496");
STL(n,"c:#0063ff;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoxOA==");
STL(S1,"c:#006633;s:1;f:24");
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");