// Macros :
$macros={};
$macros["ConstDroiteck2"]={
	name:"Const. Droite [c,k2]",
	parameters:["expression","expression"],
	exec:
	function (CdA,CdB){
CstGene=Expression("CstGene","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","1.5","-0.4");
STL(CstGene,"c:#2f542d;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [CstGene];
}};

$macros["CoordInter2droites"]={
	name:"Coord Inter 2 droites",
	parameters:["expression","expression"],
	exec:
	function (CstDrt1,CstDrt2){
CdInter=Expression("CdInter","CoordInter = ","","","[log(sqrt(CstDrt1[1]-(((CstDrt1[1]-CstDrt2[1])/(CstDrt1[0]-CstDrt2[0])-CstDrt1[0]-CstDrt2[0])/2+CstDrt1[0])^2)+sqrt(CstDrt1[1]-(((CstDrt1[1]-CstDrt2[1])/(CstDrt1[0]-CstDrt2[0])-CstDrt1[0]-CstDrt2[0])/2+CstDrt1[0])^2-1)),((CstDrt1[1]-CstDrt2[1])/(CstDrt1[0]-CstDrt2[0])-CstDrt1[0]-CstDrt2[0])/2]","2.3","-0.9");
STL(CdInter,"c:#512475;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [CdInter];
}};

$macros["CoordMilieu"]={
	name:"Coord Milieu",
	parameters:["expression","expression"],
	exec:
	function (CdA,CdB){
CstAB=Expression("CstAB","Const AB = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","-0.2","0.1");
xIab=Expression("xIab","xIab = ","","","log((sqrt(CstAB[1])+CdA[1]+CstAB[0])*((sqrt(CstAB[1])+CdB[1]+CstAB[0]))/((sqrt(CstAB[1])-CdA[1]-CstAB[0])*(sqrt(CstAB[1])-CdB[1]-CstAB[0])))/4","1.8","-1.5");
tI=Expression("tI","thetaI= ","","","sqrt(CstAB[1])*(exp(xIab)-exp(-xIab))/(exp(xIab)+exp(-xIab))-CstAB[0]","2.4","-1.6");
chuI=Expression("chuI","chuI =","","","sqrt(CstAB[1]-(tI+CstAB[0])^2)","1.7","-0.9");
uI=Expression("uI","uI = ","","","log(chuI+sqrt(chuI^2-1))","1.3","-0.9");
CoordMilieu=Expression("CoordMilieu","coord Milieu =","","","[uI,tI]","1.8","-1.3");
STL(CoordMilieu,"c:#697917;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoyMA==");
return [CoordMilieu];
}};

$macros["CoordMilieu3Exp"]={
	name:"Coord Milieu 3Exp",
	parameters:["expression","expression","expression"],
	exec:
	function (CdA,CdB,CstAB){
xIab=Expression("xIab","xIab = ","","","log((sqrt(CstAB[1])+CdA[1]+CstAB[0])*((sqrt(CstAB[1])+CdB[1]+CstAB[0]))/((sqrt(CstAB[1])-CdA[1]-CstAB[0])*(sqrt(CstAB[1])-CdB[1]-CstAB[0])))/4","1.8","-1.5");
tI=Expression("tI","thetaI= ","","","sqrt(CstAB[1])*(exp(xIab)-exp(-xIab))/(exp(xIab)+exp(-xIab))-CstAB[0]","2.3","-1.7");
chuI=Expression("chuI","chuI =","","","sqrt(CstAB[1]-(tI+CstAB[0])^2)","1.7","-0.9");
uI=Expression("uI","uI = ","","","log(chuI+sqrt(chuI^2-1))","1.3","-0.9");
CoordMilieu=Expression("CoordMilieu","coord Milieu =","","","[uI,tI]","1.8","-1.3");
STL(CoordMilieu,"c:#697917;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoyMA==");
return [CoordMilieu];
}};

$macros["CoordparAoAuA"]={
	name:"Coord par A oA uA",
	parameters:["point","point","point"],
	exec:
	function (A,oA,uA){
E1=Expression("E1","","","","A-oA","0.36049591399451686","-0.736224049707112");
CdA=Expression("CdA","","","","[uA[2],IF(E1[1]>0,acos(E1[0]/sqrt(E1[0]^2+E1[1]^2)),2*\u03C0-acos(E1[0]/sqrt(E1[0]^2+E1[1]^2)))]","0.6143662759624864","-1.4470610632174268");
STL(CdA,"c:#435805;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
return [CdA];
}};

$macros["droiteparConst"]={
	name:"droite par Const",
	parameters:["expression"],
	exec:
	function (CstAB){
PmaxDrte=Point("PmaxDrte","[-CstAB[0]+sqrt(CstAB[1]-1),-1]","0");
PminDrte=Point("PminDrte","[-CstAB[0]-sqrt(CstAB[1]-1),-1]","0");
SegDrte=Segment("SegDrte",PminDrte,PmaxDrte);
tetaK=PointOn("tetaK",SegDrte,0.8);
chuK=Expression("chuK","chuK = ","","","sqrt(CstAB[1]-(x(tetaK)+CstAB[0])^2)","2","-0.7");
uK=Expression("uK","uK = ","","","log(chuK+sqrt(chuK^2-1))","2.","-0.5");
PtDrt=Point("PtDrt","[cos(x(tetaK))/chuK,sin(x(tetaK))/chuK,uK-(exp(uK)-exp(-uK))/(exp(uK)+exp(-uK))]","0");
LaDroite=Locus("LaDroite",PtDrt,tetaK);
STL(LaDroite,"c:#b40000;s:3;f:30;p:0");
return [LaDroite];
}};

$macros["HoricycleAltitude"]={
	name:"Horicycle Altitude",
	parameters:["point"],
	exec:
	function (uG){
altG=Expression("altG","","","","uG[2]","-1.6498183460809837","-0.40080332701402427");
G1=Point("G1","[2/(exp(altG)+exp(-altG)),0,altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
G2=Point("G2","[0,2/(exp(altG)+exp(-altG)),altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
P13=Point("P13","[-2/(exp(altG)+exp(-altG)),0,altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
C11=Circle3pts3D("C11",G1,G2,P13);
STL(C11,"c:#cc66cc;s:1;f:30;p:0");
return [C11];
}};

$macros["Mediatriceetcoord"]={
	name:"M\u00e9diatrice et coord",
	parameters:["expression","expression"],
	exec:
	function (CdA,CdB){
// calcul de la constante de la droite et du milieu du segment
CstAB=Expression("CstAB","Const AB = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","1.8","-2.6");
xIab=Expression("xIab","xIab = ","","","log((sqrt(CstAB[1])+CdA[1]+CstAB[0])*((sqrt(CstAB[1])+CdB[1]+CstAB[0]))/((sqrt(CstAB[1])-CdA[1]-CstAB[0])*(sqrt(CstAB[1])-CdB[1]-CstAB[0])))/4","1.8","-1.5");
tI=Expression("tI","thetaI= ","","","sqrt(CstAB[1])*(exp(xIab)-exp(-xIab))/(exp(xIab)+exp(-xIab))-CstAB[0]","2.2","-1.2");
chuI=Expression("chuI","chuI =","","","sqrt(CstAB[1]-(tI+CstAB[0])^2)","1.7","-0.9");
uI=Expression("uI","uI = ","","","log(chuI+sqrt(chuI^2-1))","1.3","-0.9");
CdIab=Expression("CdIab","coord Iab =","","","[uI,tI]","1.6","-2.2");
CstMed=Expression("CstMed","Const Mediatrice AB = ","","","[CstAB[0]-CstAB[1]/(CdIab[1]+CstAB[0]),(CstAB[1]/(CdIab[1]+CstAB[0]))^2-CstAB[1]]","1.8","-2.9");
PminMed=Point("PminMed","[-CstMed[0]-sqrt(CstMed[1]-1),-1.5]","0");
PmaxMed=Point("PmaxMed","[-CstMed[0]+sqrt(CstMed[1]-1),-1.5]","0");
SegMed=Segment("SegMed",PminMed,PmaxMed);
tetaK=PointOn("tetaK",SegMed,0.7);
chuK=Expression("chuK","chuK = ","","","sqrt(CstMed[1]-(x(tetaK)+CstMed[0])^2)","-1.3","-0.7");
uK=Expression("uK","uK = ","","","log(chuK+sqrt(chuK^2-1))","1.2","-0.6");
PtDrt=Point("PtDrt","[cos(x(tetaK))/chuK,sin(x(tetaK))/chuK,uK-(exp(uK)-exp(-uK))/(exp(uK)+exp(-uK))]","0");
LaDroite=Locus("LaDroite",PtDrt,tetaK);
STL(CdIab,"c:#697917;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjoyMA==");
STL(CstMed,"c:#660937;s:7;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA==");
STL(LaDroite,"c:#b40000;s:3;f:30;p:1000");
return [CdIab,CstMed,LaDroite];
}};

$macros["PtparCoorduMthetaM"]={
	name:"Pt par Coord[uM,thetaM]",
	parameters:["expression"],
	exec:
	function (CdM){
LePt=Point("LePt","[2*cos(CdM[1])/(exp(CdM[0])+exp(-CdM[0])),2*sin(CdM[1])/(exp(CdM[0])+exp(-CdM[0])),CdM[0]-(exp(CdM[0])-exp(-CdM[0]))/(exp(CdM[0])+exp(-CdM[0]))]","0");
STL(LePt,"c:#0000b2;s:6;f:18");
return [LePt];
}};

$macros["SegmentParCoord"]={
	name:"Segment Par Coord",
	parameters:["expression","expression"],
	exec:
	function (CdA,CdB){
Cst2Pts=Expression("Cst2Pts","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","-1","-0.4")
PmaxSeg=Point("PmaxSeg","[max(CdA[1],CdB[1]),-0.5]","0");
PminSeg=Point("PminSeg","[min(CdA[1],CdB[1]),-0.5]","0");
Segdeseg=Segment("Segdeseg",PminSeg,PmaxSeg);
tetaK=PointOn("tetaK",Segdeseg,0.4);
chuK=Expression("chuK","chuK = ","","","sqrt(Cst2Pts[1]-(x(tetaK)+Cst2Pts[0])^2)","0.9","-1.7");
uK=Expression("uK","uK = ","","","log(chuK+sqrt(chuK^2-1))","0.8","-1.5");
PtSeg=Point("PtSeg","[cos(x(tetaK))/chuK,sin(x(tetaK))/chuK,uK-(exp(uK)-exp(-uK))/(exp(uK)+exp(-uK))]","0");
LeSeg=Locus("LeSeg",PtSeg,tetaK);
STL(LeSeg,"c:#b40000;s:3;f:30;p:100");
return [LeSeg];
}};

// Coordinates System :
SetCoords(-28,35,225.0003762722886,true);


// Geometry :
O=Point("O",1.915552352136589,-1.9066634781127534);
P1=Point("P1",2.7288843253175536,-1.9022190411008355);
P11=Point("P11","[-sqrt(2)/2,-sqrt(2)/2,0]","0");
Y=Point("Y","[0,1,0]","0");
Z=Point("Z","[0,0,1]","0");
X=Point("X","[1,0,0]","0");
uI=Point("uI","[x(O.coords2D())+1,y(O.coords2D())]","0");
S31=Segment("S31",O,Z);
C1=Circle3pts3D("C1",X,Y,P11);
S21=Segment("S21",O,Y);
S11=Segment("S11",O,X);
Center1=Center("Center1",C1);
S2=Segment("S2",O,uI);
S3=Segment("S3",uI,Y);
Symc1=Symmetry("Symc1",Z,Center1);
Symc2=Symmetry("Symc2",Symc1,Center1);
Symc3=Symmetry("Symc3",Symc2,Center1);
S1=Segment("S1",O,Symc3);
uG=PointOn("uG",S1,0.20052710313256453);
uB=PointOn("uB",S1,0.10386397073736173);
uC=PointOn("uC",S1,0.06319623257191247);
uA=PointOn("uA",S1,0.27863635373861545);
altG2=Expression("altG2","","","","uB[2]","0.12444423633369951","-0.3529536839511436");
altG1=Expression("altG1","","","","uA[2]","0.12444423633369951","-0.3440648099273079");
altG=Expression("altG","","","","uG[2]","0.2577773466912347","-0.9111095874431572");
altG3=Expression("altG3","","","","uC[2]","0.12444423633369951","-0.34194868087469316");
G11=Point("G11","[2/(exp(altG1)+exp(-altG1)),0,altG1-(exp(altG1)-exp(-altG1))/(exp(altG1)+exp(-altG1))]","0");
P132=Point("P132","[-2/(exp(altG2)+exp(-altG2)),0,altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","0");
G22=Point("G22","[0,2/(exp(altG2)+exp(-altG2)),altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","0");
P13=Point("P13","[-2/(exp(altG)+exp(-altG)),0,altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
G12=Point("G12","[2/(exp(altG2)+exp(-altG2)),0,altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","0");
G1=Point("G1","[2/(exp(altG)+exp(-altG)),0,altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
G21=Point("G21","[0,2/(exp(altG1)+exp(-altG1)),altG1-(exp(altG1)-exp(-altG1))/(exp(altG1)+exp(-altG1))]","0");
P131=Point("P131","[-2/(exp(altG1)+exp(-altG1)),0,altG1-(exp(altG1)-exp(-altG1))/(exp(altG1)+exp(-altG1))]","0");
G13=Point("G13","[2/(exp(altG3)+exp(-altG3)),0,altG3-(exp(altG3)-exp(-altG3))/(exp(altG3)+exp(-altG3))]","0");
G23=Point("G23","[0,2/(exp(altG3)+exp(-altG3)),altG3-(exp(altG3)-exp(-altG3))/(exp(altG3)+exp(-altG3))]","0");
G2=Point("G2","[0,2/(exp(altG)+exp(-altG)),altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0");
P133=Point("P133","[-2/(exp(altG3)+exp(-altG3)),0,altG3-(exp(altG3)-exp(-altG3))/(exp(altG3)+exp(-altG3))]","0");
Par2=Parallel("Par2",S3,G2);
oG=MidPoint("oG",G1,P13);
HoriA=Circle3pts3D("HoriA",G11,G21,P131);
HoriB=Circle3pts3D("HoriB",G12,G22,P132);
HoriC=Circle3pts3D("HoriC",G13,G23,P133);
Locus4=Locus("Locus4",P13,uG);
Locus3=Locus("Locus3",G1,uG);
Center4=Center("Center4",HoriC);
C=PointOn("C",HoriC,109);
B=PointOn("B",HoriB,550);
Center2=Center("Center2",HoriA);
Par1=Parallel("Par1",S2,oG);
Center3=Center("Center3",HoriB);
A=PointOn("A",HoriA,637);
E12=Expression("E12","","","","C-Center4","0.23999959864356332","-0.6355544927042511");
uG1=OrderedIntersection("uG1",Par2,Par1,0);
E11=Expression("E11","","","","B-Center3","0.2577773466912347","-0.6444433667280868");
E1=Expression("E1","","","","A-Center2","0.2577773466912347","-0.6444433667280868");
Symc4=Symmetry("Symc4",oG,uG1);
Locus1=Locus("Locus1",uG1,uG);
CdB=Expression("CdB","","","","[uB[2],IF(E11[1]>0,acos(E11[0]/sqrt(E11[0]^2+E11[1]^2)),2*\u03C0-acos(E11[0]/sqrt(E11[0]^2+E11[1]^2)))]","3.4577719952720796","-0.999998327681514");
CdC=Expression("CdC","","","","[uC[2],IF(E12[1]>0,acos(E12[0]/sqrt(E12[0]^2+E12[1]^2)),2*\u03C0-acos(E12[0]/sqrt(E12[0]^2+E12[1]^2)))]","3.5911051056296146","-1.5333307691116547");
CdA=Expression("CdA","","","","[uA[2],IF(E1[1]>0,acos(E1[0]/sqrt(E1[0]^2+E1[1]^2)),2*\u03C0-acos(E1[0]/sqrt(E1[0]^2+E1[1]^2)))]","3.3688832550337224","-0.7333321069664436");
PmaxSeg5=Point("PmaxSeg5","[max(CdC[1],CdA[1]),-0.5]","0");
Cst2Pts3=Expression("Cst2Pts3","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","0.12444423633369951","-0.33235662584813513");
PmaxSeg3=Point("PmaxSeg3","[max(CdA[1],CdB[1]),-0.5]","0");
PminSeg5=Point("PminSeg5","[min(CdC[1],CdA[1]),-0.5]","0");
CstAB2=Expression("CstAB2","Const AB = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdA[1]^2-CdC[1]^2)/(2*(CdC[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdA[1]^2-CdC[1]^2)/(2*(CdC[1]-CdA[1])))^2]","0.12444423633369951","0.10531134152162298");
Cst2Pts5=Expression("Cst2Pts5","Const2pts = ","","","[((exp(CdC[0])+exp(-CdC[0]))^2/4-(exp(CdA[0])+exp(-CdA[0]))^2/4+CdC[1]^2-CdA[1]^2)/(2*(CdA[1]-CdC[1])),(exp(CdC[0])+exp(-CdC[0]))^2/4+(CdC[1]+((exp(CdC[0])+exp(-CdC[0]))^2/4-(exp(CdA[0])+exp(-CdA[0]))^2/4+CdC[1]^2-CdA[1]^2)/(2*(CdA[1]-CdC[1])))^2]","0.12444423633369951","-0.33235662584813513");
Locus2=Locus("Locus2",Symc4,uG);
CstAB=Expression("CstAB","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdA[1]^2-CdB[1]^2)/(2*(CdB[1]-CdA[1])))^2]","3.324438884914544","-0.2888884057746596");
PminSeg3=Point("PminSeg3","[min(CdA[1],CdB[1]),-0.5]","0");
PminSeg4=Point("PminSeg4","[min(CdB[1],CdC[1]),-0.5]","0");
PmaxSeg4=Point("PmaxSeg4","[max(CdB[1],CdC[1]),-0.5]","0");
Cst2Pts4=Expression("Cst2Pts4","Const2pts = ","","","[((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdB[1]^2-CdC[1]^2)/(2*(CdC[1]-CdB[1])),(exp(CdB[0])+exp(-CdB[0]))^2/4+(CdB[1]+((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdB[1]^2-CdC[1]^2)/(2*(CdC[1]-CdB[1])))^2]","0.12444423633369951","-0.33235662584813513");
CstAB1=Expression("CstAB1","Const AB = ","","","[((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdB[1]^2-CdC[1]^2)/(2*(CdC[1]-CdB[1])),(exp(CdB[0])+exp(-CdB[0]))^2/4+(CdB[1]+((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdB[1]^2-CdC[1]^2)/(2*(CdC[1]-CdB[1])))^2]","0.12444423633369951","0.10531134152162298");
Segdeseg4=Segment("Segdeseg4",PminSeg4,PmaxSeg4);
xIab2=Expression("xIab2","xIab = ","","","log((sqrt(CstAB2[1])+CdA[1]+CstAB2[0])*((sqrt(CstAB2[1])+CdC[1]+CstAB2[0]))/((sqrt(CstAB2[1])-CdA[1]-CstAB2[0])*(sqrt(CstAB2[1])-CdC[1]-CstAB2[0])))/4","1.575604682531129","-1.2952261540616028");
xIab1=Expression("xIab1","xIab = ","","","log((sqrt(CstAB[1])+CdA[1]+CstAB[0])*((sqrt(CstAB[1])+CdB[1]+CstAB[0]))/((sqrt(CstAB[1])-CdA[1]-CstAB[0])*(sqrt(CstAB[1])-CdB[1]-CstAB[0])))/4","1.575604682531129","-1.2952261540616028");
Segdeseg5=Segment("Segdeseg5",PminSeg5,PmaxSeg5);
Segdeseg3=Segment("Segdeseg3",PminSeg3,PmaxSeg3);
PminDrte=Point("PminDrte","[-CstAB[0]-sqrt(CstAB[1]-1),-1]","0");
xIab=Expression("xIab","xIab = ","","","log((sqrt(CstAB1[1])+CdB[1]+CstAB1[0])*((sqrt(CstAB1[1])+CdC[1]+CstAB1[0]))/((sqrt(CstAB1[1])-CdB[1]-CstAB1[0])*(sqrt(CstAB1[1])-CdC[1]-CstAB1[0])))/4","1.575604682531129","-1.2952261540616028");
PmaxDrte=Point("PmaxDrte","[-CstAB[0]+sqrt(CstAB[1]-1),-1]","0");
SegDrte=Segment("SegDrte",PminDrte,PmaxDrte);
tI=Expression("tI","thetaI= ","","","sqrt(CstAB1[1])*(exp(xIab)-exp(-xIab))/(exp(xIab)+exp(-xIab))-CstAB1[0]","2.1008062433748385","-1.3827597475355546");
tetaK4=PointOn("tetaK4",Segdeseg3,0.4);
tetaK5=PointOn("tetaK5",Segdeseg4,0.4);
tI2=Expression("tI2","thetaI= ","","","sqrt(CstAB2[1])*(exp(xIab2)-exp(-xIab2))/(exp(xIab2)+exp(-xIab2))-CstAB2[0]","2.1008062433748385","-1.3827597475355546");
tetaK6=PointOn("tetaK6",Segdeseg5,0.4);
tI1=Expression("tI1","thetaI= ","","","sqrt(CstAB[1])*(exp(xIab1)-exp(-xIab1))/(exp(xIab1)+exp(-xIab1))-CstAB[0]","2.013272649900887","-1.470293341009506");
chuI=Expression("chuI","chuI =","","","sqrt(CstAB1[1]-(tI+CstAB1[0])^2)","1.4880710890571773","-0.7700245932178931");
chuI2=Expression("chuI2","chuI =","","","sqrt(CstAB2[1]-(tI2+CstAB2[0])^2)","1.4880710890571773","-0.7700245932178931");
chuI1=Expression("chuI1","chuI =","","","sqrt(CstAB[1]-(tI1+CstAB[0])^2)","1.4880710890571773","-0.7700245932178931");
chuK5=Expression("chuK5","chuK = ","","","sqrt(Cst2Pts4[1]-(x(tetaK5)+Cst2Pts4[0])^2)","0.7878023412655645","-1.470293341009506");
chuK6=Expression("chuK6","chuK = ","","","sqrt(Cst2Pts5[1]-(x(tetaK6)+Cst2Pts5[0])^2)","0.7878023412655645","-1.470293341009506");
chuK4=Expression("chuK4","chuK = ","","","sqrt(Cst2Pts3[1]-(x(tetaK4)+Cst2Pts3[0])^2)","0.7878023412655645","-1.470293341009506");
tetaK=PointOn("tetaK",SegDrte,0.8);
chuK=Expression("chuK","chuK = ","","","sqrt(CstAB[1]-(x(tetaK)+CstAB[0])^2)","1.7506718694790322","-0.5949574062699898");
uI2=Expression("uI2","uI = ","","","log(chuI1+sqrt(chuI1^2-1))","1.1379367151613708","-0.7700245932178931");
uK4=Expression("uK4","uK = ","","","log(chuK4+sqrt(chuK4^2-1))","0.700268747791613","-1.2952261540616028");
uK6=Expression("uK6","uK = ","","","log(chuK6+sqrt(chuK6^2-1))","0.700268747791613","-1.2952261540616028");
uI3=Expression("uI3","uI = ","","","log(chuI2+sqrt(chuI2^2-1))","1.1379367151613708","-0.7700245932178931");
uK5=Expression("uK5","uK = ","","","log(chuK5+sqrt(chuK5^2-1))","0.700268747791613","-1.2952261540616028");
uI1=Expression("uI1","uI = ","","","log(chuI+sqrt(chuI^2-1))","1.1379367151613708","-0.7700245932178931");
PtSeg3=Point("PtSeg3","[cos(x(tetaK4))/chuK4,sin(x(tetaK4))/chuK4,uK4-(exp(uK4)-exp(-uK4))/(exp(uK4)+exp(-uK4))]","0");
uK=Expression("uK","uK = ","","","log(chuK+sqrt(chuK^2-1))","1.7506718694790322","-0.4198902193220867");
CdMab=Expression("CdMab","coord Milieu [AB]=","","","[uI2,tI1]","3.2355501446761874","-2.3333294312568658");
PtSeg5=Point("PtSeg5","[cos(x(tetaK6))/chuK6,sin(x(tetaK6))/chuK6,uK6-(exp(uK6)-exp(-uK6))/(exp(uK6)+exp(-uK6))]","0");
PtSeg4=Point("PtSeg4","[cos(x(tetaK5))/chuK5,sin(x(tetaK5))/chuK5,uK5-(exp(uK5)-exp(-uK5))/(exp(uK5)+exp(-uK5))]","0");
CdMac=Expression("CdMac","coord Milieu [AC] =","","","[uI3,tI2]","3.5466607355104363","-1.9333301001842604");
CdMbc=Expression("CdMbc","coord Milieu [BC] =","","","[uI1,tI]","3.2355501446761874","-2.1555519507801524");
PtDrt=Point("PtDrt","[cos(x(tetaK))/chuK,sin(x(tetaK))/chuK,uK-(exp(uK)-exp(-uK))/(exp(uK)+exp(-uK))]","0");
CstGene=Expression("CstGene","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdMbc[0])+exp(-CdMbc[0]))^2/4+CdA[1]^2-CdMbc[1]^2)/(2*(CdMbc[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdMbc[0])+exp(-CdMbc[0]))^2/4+CdA[1]^2-CdMbc[1]^2)/(2*(CdMbc[1]-CdA[1])))^2]","1.2799978594323378","-0.1555552954171244");
J=Point("J","[2*cos(CdMab[1])/(exp(CdMab[0])+exp(-CdMab[0])),2*sin(CdMab[1])/(exp(CdMab[0])+exp(-CdMab[0])),CdMab[0]-(exp(CdMab[0])-exp(-CdMab[0]))/(exp(CdMab[0])+exp(-CdMab[0]))]","0");
I=Point("I","[2*cos(CdMbc[1])/(exp(CdMbc[0])+exp(-CdMbc[0])),2*sin(CdMbc[1])/(exp(CdMbc[0])+exp(-CdMbc[0])),CdMbc[0]-(exp(CdMbc[0])-exp(-CdMbc[0]))/(exp(CdMbc[0])+exp(-CdMbc[0]))]","0");
LeSeg3=Locus("LeSeg3",PtSeg3,tetaK4);
PmaxSeg=Point("PmaxSeg","[max(CdA[1],CdMbc[1]),-0.5]","0");
PminSeg=Point("PminSeg","[min(CdA[1],CdMbc[1]),-0.5]","0");
PminSeg1=Point("PminSeg1","[min(CdB[1],CdMac[1]),-0.5]","0");
PmaxSeg1=Point("PmaxSeg1","[max(CdB[1],CdMac[1]),-0.5]","0");
Cst2Pts1=Expression("Cst2Pts1","Const2pts = ","","","[((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdMac[0])+exp(-CdMac[0]))^2/4+CdB[1]^2-CdMac[1]^2)/(2*(CdMac[1]-CdB[1])),(exp(CdB[0])+exp(-CdB[0]))^2/4+(CdB[1]+((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdMac[0])+exp(-CdMac[0]))^2/4+CdB[1]^2-CdMac[1]^2)/(2*(CdMac[1]-CdB[1])))^2]","0.12444423633369951","-0.33235662584813513");
K=Point("K","[2*cos(CdMac[1])/(exp(CdMac[0])+exp(-CdMac[0])),2*sin(CdMac[1])/(exp(CdMac[0])+exp(-CdMac[0])),CdMac[0]-(exp(CdMac[0])-exp(-CdMac[0]))/(exp(CdMac[0])+exp(-CdMac[0]))]","0");
Cst2Pts=Expression("Cst2Pts","Const2pts = ","","","[((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdMbc[0])+exp(-CdMbc[0]))^2/4+CdA[1]^2-CdMbc[1]^2)/(2*(CdMbc[1]-CdA[1])),(exp(CdA[0])+exp(-CdA[0]))^2/4+(CdA[1]+((exp(CdA[0])+exp(-CdA[0]))^2/4-(exp(CdMbc[0])+exp(-CdMbc[0]))^2/4+CdA[1]^2-CdMbc[1]^2)/(2*(CdMbc[1]-CdA[1])))^2]","0.12444423633369951","-0.33235662584813513");
LeSeg5=Locus("LeSeg5",PtSeg5,tetaK6);
PminSeg2=Point("PminSeg2","[min(CdC[1],CdMab[1]),-0.5]","0");
PmaxSeg2=Point("PmaxSeg2","[max(CdC[1],CdMab[1]),-0.5]","0");
LeSeg4=Locus("LeSeg4",PtSeg4,tetaK5);
Cst2Pts2=Expression("Cst2Pts2","Const2pts = ","","","[((exp(CdC[0])+exp(-CdC[0]))^2/4-(exp(CdMab[0])+exp(-CdMab[0]))^2/4+CdC[1]^2-CdMab[1]^2)/(2*(CdMab[1]-CdC[1])),(exp(CdC[0])+exp(-CdC[0]))^2/4+(CdC[1]+((exp(CdC[0])+exp(-CdC[0]))^2/4-(exp(CdMab[0])+exp(-CdMab[0]))^2/4+CdC[1]^2-CdMab[1]^2)/(2*(CdMab[1]-CdC[1])))^2]","0.12444423633369951","-0.33235662584813513");
CstGene1=Expression("CstGene1","Const2pts = ","","","[((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdMac[0])+exp(-CdMac[0]))^2/4+CdB[1]^2-CdMac[1]^2)/(2*(CdMac[1]-CdB[1])),(exp(CdB[0])+exp(-CdB[0]))^2/4+(CdB[1]+((exp(CdB[0])+exp(-CdB[0]))^2/4-(exp(CdMac[0])+exp(-CdMac[0]))^2/4+CdB[1]^2-CdMac[1]^2)/(2*(CdMac[1]-CdB[1])))^2]","1.6965399125985705","-0.43463289531194743");
Segdeseg=Segment("Segdeseg",PminSeg,PmaxSeg);
Segdeseg2=Segment("Segdeseg2",PminSeg2,PmaxSeg2);
CdInter=Expression("CdInter","CoordInter = ","","","[log(sqrt(CstGene[1]-(((CstGene[1]-CstGene1[1])/(CstGene[0]-CstGene1[0])-CstGene[0]-CstGene1[0])/2+CstGene[0])^2)+sqrt(CstGene[1]-(((CstGene[1]-CstGene1[1])/(CstGene[0]-CstGene1[0])-CstGene[0]-CstGene1[0])/2+CstGene[0])^2-1)),((CstGene[1]-CstGene1[1])/(CstGene[0]-CstGene1[0])-CstGene[0]-CstGene1[0])/2]","2.835550813603582","-1.222220178277406");
Segdeseg1=Segment("Segdeseg1",PminSeg1,PmaxSeg1);
tetaK1=PointOn("tetaK1",Segdeseg,0.4);
G=Point("G","[2*cos(CdInter[1])/(exp(CdInter[0])+exp(-CdInter[0])),2*sin(CdInter[1])/(exp(CdInter[0])+exp(-CdInter[0])),CdInter[0]-(exp(CdInter[0])-exp(-CdInter[0]))/(exp(CdInter[0])+exp(-CdInter[0]))]","0");
tetaK2=PointOn("tetaK2",Segdeseg1,0.4);
tetaK3=PointOn("tetaK3",Segdeseg2,0.4);
chuK3=Expression("chuK3","chuK = ","","","sqrt(Cst2Pts2[1]-(x(tetaK3)+Cst2Pts2[0])^2)","0.7878023412655645","-1.470293341009506");
chuK2=Expression("chuK2","chuK = ","","","sqrt(Cst2Pts1[1]-(x(tetaK2)+Cst2Pts1[0])^2)","0.7878023412655645","-1.470293341009506");
chuK1=Expression("chuK1","chuK = ","","","sqrt(Cst2Pts[1]-(x(tetaK1)+Cst2Pts[0])^2)","0.7878023412655645","-1.470293341009506");
uK1=Expression("uK1","uK = ","","","log(chuK1+sqrt(chuK1^2-1))","0.700268747791613","-1.2952261540616028");
uK2=Expression("uK2","uK = ","","","log(chuK2+sqrt(chuK2^2-1))","0.700268747791613","-1.2952261540616028");
uK3=Expression("uK3","uK = ","","","log(chuK3+sqrt(chuK3^2-1))","0.700268747791613","-1.2952261540616028");
PtSeg=Point("PtSeg","[cos(x(tetaK1))/chuK1,sin(x(tetaK1))/chuK1,uK1-(exp(uK1)-exp(-uK1))/(exp(uK1)+exp(-uK1))]","0");
PtSeg1=Point("PtSeg1","[cos(x(tetaK2))/chuK2,sin(x(tetaK2))/chuK2,uK2-(exp(uK2)-exp(-uK2))/(exp(uK2)+exp(-uK2))]","0");
PtSeg2=Point("PtSeg2","[cos(x(tetaK3))/chuK3,sin(x(tetaK3))/chuK3,uK3-(exp(uK3)-exp(-uK3))/(exp(uK3)+exp(-uK3))]","0");
LeSeg1=Locus("LeSeg1",PtSeg1,tetaK2);
LeSeg2=Locus("LeSeg2",PtSeg2,tetaK3);
LeSeg=Locus("LeSeg",PtSeg,tetaK1);


// Styles :
STL(O,"c:#0000b2;s:6;sn:true;f:18;fl:true");
STL(P1,"c:#0000b2;s:6;f:30");
STL(P11,"c:#0000b2;h:1;s:6;f:18");
STL(Y,"c:#0000b2;o:1;s:4;sn:true;f:18");
STL(Z,"c:#0000b2;h:1;o:1;s:4;sn:true;f:18");
STL(X,"c:#0000b2;o:1;s:4;sn:true;f:18");
STL(uI,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(S31,"c:#117dad;h:1;s:1;f:24");
STL(C1,"c:#cc66cc;s:2.5;f:30;p:0");
STL(S21,"c:#117dad;s:1;f:24");
STL(S11,"c:#117dad;s:1;f:24");
STL(Center1,"c:#0000b2;h:1;s:6;f:18");
STL(S2,"c:#006633;h:2;s:1;f:24");
STL(S3,"c:#006633;h:2;s:1;f:24");
STL(Symc1,"c:#0000b2;h:1;s:6;f:18");
STL(Symc2,"c:#0000b2;h:1;s:6;f:18");
STL(Symc3,"c:#0000b2;h:1;s:6;f:18");
STL(S1,"c:#006633;s:1;f:24");
STL(uG,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(uB,"c:#966400;s:6;sn:true;f:18;sp:2");
STL(uC,"c:#966400;s:6;sn:true;f:18;sp:2");
STL(uA,"c:#966400;s:6;sn:true;f:18;sp:2");
STL(altG2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(altG1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(altG,"c:#567f3b;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MTg=");
STL(altG3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(G11,"c:#0000b2;h:2;s:6;f:18");
STL(P132,"c:#0000b2;h:2;s:6;f:18");
STL(G22,"c:#0000b2;h:2;s:6;f:18");
STL(P13,"c:#0000b2;h:2;s:6;f:18");
STL(G12,"c:#0000b2;h:2;s:6;f:18");
STL(G1,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(G21,"c:#0000b2;h:2;s:6;f:18");
STL(P131,"c:#0000b2;h:2;s:6;f:18");
STL(G13,"c:#0000b2;h:2;s:6;f:18");
STL(G23,"c:#0000b2;h:2;s:6;f:18");
STL(G2,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(P133,"c:#0000b2;h:2;s:6;f:18");
STL(Par2,"c:#780013;h:2;s:1;f:30;p:0");
STL(oG,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(HoriA,"c:#cc66cc;s:1;sn:true;f:30;p:0;dh:true");
STL(HoriB,"c:#cc66cc;s:1;sn:true;f:30;p:0;dh:true");
STL(HoriC,"c:#cc66cc;s:1;sn:true;f:30;p:0;dh:true");
STL(Locus4,"c:#780013;s:1;f:30;p:100");
STL(Locus3,"c:#780013;s:1;f:30;p:100");
STL(Center4,"c:#0000b2;h:1;s:6;sn:true;f:18");
STL(C,"c:#0000b2;o:1;s:6;sn:true;f:18");
STL(B,"c:#0000b2;o:0.98;s:6;sn:true;f:18");
STL(Center2,"c:#0000b2;h:1;s:6;sn:true;f:18");
STL(Par1,"c:#780013;h:1;s:1;f:30;p:0");
STL(Center3,"c:#0000b2;h:1;s:6;sn:true;f:18");
STL(A,"c:#0000b2;o:1;s:6;sn:true;f:18");
STL(E12,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(uG1,"c:#0000b2;h:2;s:6;sn:true;f:18");
STL(E11,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MTg=");
STL(E1,"c:#48314c;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MTg=");
STL(Symc4,"c:#0000b2;h:1;s:6;f:18");
STL(Locus1,"c:#780013;s:1;f:30;p:100");
STL(CdB,"c:#435805;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MTg=");
STL(CdC,"c:#435805;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MTg=");
STL(CdA,"c:#435805;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MTg=");
STL(PmaxSeg5,"c:#0000b2;h:2;s:6;f:30");
STL(Cst2Pts3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(PmaxSeg3,"c:#0000b2;h:2;s:6;f:30");
STL(PminSeg5,"c:#0000b2;h:2;s:6;f:30");
STL(CstAB2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(Cst2Pts5,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(Locus2,"c:#780013;s:1;f:30;p:100");
STL(CstAB,"c:#2f542d;h:1;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(PminSeg3,"c:#0000b2;h:2;s:6;f:30");
STL(PminSeg4,"c:#0000b2;h:2;s:6;f:30");
STL(PmaxSeg4,"c:#0000b2;h:2;s:6;f:30");
STL(Cst2Pts4,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(CstAB1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(Segdeseg4,"c:#006633;h:2;s:1;f:24");
STL(xIab2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(xIab1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(Segdeseg5,"c:#006633;h:2;s:1;f:24");
STL(Segdeseg3,"c:#006633;h:2;s:1;f:24");
STL(PminDrte,"c:#0000b2;h:2;s:6;f:30");
STL(xIab,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(PmaxDrte,"c:#0000b2;h:2;s:6;f:30");
STL(SegDrte,"c:#006633;h:2;s:1;f:24");
STL(tI,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(tetaK4,"c:#0000b2;h:2;s:6;f:30");
STL(tetaK5,"c:#0000b2;h:2;s:6;f:30");
STL(tI2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(tetaK6,"c:#0000b2;h:2;s:6;f:30");
STL(tI1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuI,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuI2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuI1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuK5,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuK6,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuK4,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(tetaK,"c:#0000b2;h:2;s:6;f:30");
STL(chuK,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uI2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK4,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK6,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uI3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK5,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uI1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(PtSeg3,"c:#0000b2;h:2;s:6;f:30");
STL(uK,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(CdMab,"c:#697917;h:1;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MjA=");
STL(PtSeg5,"c:#0000b2;h:2;s:6;f:30");
STL(PtSeg4,"c:#0000b2;h:2;s:6;f:30");
STL(CdMac,"c:#697917;h:1;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MjA=");
STL(CdMbc,"c:#697917;h:1;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MjA=");
STL(PtDrt,"c:#0000b2;h:2;s:6;f:30");
STL(CstGene,"c:#2f542d;h:1;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(J,"c:#007c00;s:6;sn:true;f:18");
STL(I,"c:#007c00;s:6;sn:true;f:18");
STL(LeSeg3,"c:#b40000;s:3;f:30;p:100");
STL(PmaxSeg,"c:#0000b2;h:2;s:6;f:30");
STL(PminSeg,"c:#0000b2;h:2;s:6;f:30");
STL(PminSeg1,"c:#0000b2;h:2;s:6;f:30");
STL(PmaxSeg1,"c:#0000b2;h:2;s:6;f:30");
STL(Cst2Pts1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(K,"c:#007c00;s:6;sn:true;f:18");
STL(Cst2Pts,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(LeSeg5,"c:#b40000;s:3;f:30;p:100");
STL(PminSeg2,"c:#0000b2;h:2;s:6;f:30");
STL(PmaxSeg2,"c:#0000b2;h:2;s:6;f:30");
STL(LeSeg4,"c:#b40000;s:3;f:30;p:100");
STL(Cst2Pts2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(CstGene1,"c:#2f542d;h:1;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(Segdeseg,"c:#006633;h:2;s:1;f:24");
STL(Segdeseg2,"c:#006633;h:2;s:1;f:24");
STL(CdInter,"c:#512475;h:1;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA=");
STL(Segdeseg1,"c:#006633;h:2;s:1;f:24");
STL(tetaK1,"c:#0000b2;h:2;s:6;f:30");
STL(G,"c:#007c7c;s:6;sn:true;f:18");
STL(tetaK2,"c:#0000b2;h:2;s:6;f:30");
STL(tetaK3,"c:#0000b2;h:2;s:6;f:30");
STL(chuK3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuK2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(chuK1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(uK3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjEwO2Y6MzA=");
STL(PtSeg,"c:#0000b2;h:2;s:6;f:30");
STL(PtSeg1,"c:#0000b2;h:2;s:6;f:30");
STL(PtSeg2,"c:#0000b2;h:2;s:6;f:30");
STL(LeSeg1,"c:#007c00;s:3;f:30;p:100");
STL(LeSeg2,"c:#007c00;s:3;f:30;p:100");
STL(LeSeg,"c:#007c00;s:3;f:30;p:100");
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");