// Macros : $macros={}; $macros["CercleCentrePoint"]={ name:"Cercle Centre Point", parameters:["expression","expression"], exec: function (CdO,CdB){ PthMin=Point("PthMin","[0,0]","0"); PthMax=Point("PthMax","[2*\u03C0,0]","0"); Scerc=Segment("Scerc",PthMin,PthMax); tCerc=PointOn("tCerc",Scerc,0.6); CstOB=Expression("CstOB","Const OB = ","","","[((exp(CdO[0])+exp(-CdO[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdO[1]^2-CdB[1]^2)/(2*(CdB[1]-CdO[1])),(exp(CdO[0])+exp(-CdO[0]))^2/4+(CdO[1]+((exp(CdO[0])+exp(-CdO[0]))^2/4-(exp(CdB[0])+exp(-CdB[0]))^2/4+CdO[1]^2-CdB[1]^2)/(2*(CdB[1]-CdO[1])))^2]","1.2","-2.6"); R=Expression("R","R = ","","","abs(log((sqrt(CstOB[1])+CdO[1]+CstOB[0])*(sqrt(CstOB[1])-CdB[1]-CstOB[0])/((sqrt(CstOB[1])-CdO[1]-CstOB[0])*(sqrt(CstOB[1])+CdB[1]+CstOB[0]))))/2","2.4","-0.4"); ChuCerc=Expression("ChuCerc","ChuCerc = ","","","(exp(R)+exp(-R))*(exp(CdO[0])+exp(-CdO[0]))/4+(exp(R)-exp(-R))*(exp(CdO[0])+exp(-CdO[0]))*cos(x(tCerc))/4","2.3","-0.5"); CdPtC=Expression("CdPtC","Coord PtCerc = ","","","[log(ChuCerc+sqrt(ChuCerc^2-1)),CdO[1]+(exp(R)-exp(-R))*(exp(CdO[0])+exp(-CdO[0]))*sin(x(tCerc))/4]","2.3","-0.4"); LePtC=Point("LePtC","[2*cos(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),2*sin(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),CdPtC[0]-(exp(CdPtC[0])-exp(-CdPtC[0]))/(exp(CdPtC[0])+exp(-CdPtC[0]))]","0"); LeCercle=Locus("LeCercle",LePtC,tCerc); STL(LeCercle,"c:#b40000;s:1;f:30;p:100"); return [LeCercle]; }}; $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["ConstMedetCdMilieu"]={ name:"ConstMed et CdMilieu", 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]","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"); return [CdIab,CstMed]; }}; $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["DistanceparCoord"]={ name:"Distance par Coord", 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]","1.2743523874591296","-2.73154653165846"); dAB=Expression("dAB","d(A,B) = ","","","abs(log((sqrt(CstOB1[1])+CdA[1]+CstOB1[0])*(sqrt(CstOB1[1])-CdB[1]-CstOB1[0])/((sqrt(CstOB1[1])-CdA[1]-CstOB1[0])*(sqrt(CstOB1[1])+CdB[1]+CstOB1[0]))))/2","4","-2.25"); STL(dAB,"c:#6c6834;s:7;sn:true;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO3M6MTA7ZjozMA=="); return [dAB]; }}; $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["HauteurABC"]={ name:"Hauteur (AB) C", parameters:["expression","expression","expression"], exec: function (CdA,CdB,CdC){ 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.2","-1.3"); tHc=Expression("tHc","theta H_C = ","","","(2*CdC[1]*CstAB[1]-CstAB[0]*((exp(CdC[0])+exp(-CdC[0]))^2/4+(CdC[1]+CstAB[0])^2-CstAB[1]))/((exp(CdC[0])+exp(-CdC[0]))^2/4+(CdC[1]+CstAB[0])^2+CstAB[1]) ","1.1","-0.8"); chuHc=Expression("chuHc","chuHc = ","","","sqrt(CstAB[1]-(tHc+CstAB[0])^2)","1.6963991054406837","-2.393472484595991"); uHc=Expression("uHc","uHc = ","","","log(chuHc+sqrt(chuHc^2-1))","1.93","-0.8"); CdHc=Expression("CdHc","Coord Hc = ","","","[uHc,tHc]","1.3","-1.6"); Hc=Point("Hc","[cos(tHc)/chuHc,sin(tHc)/chuHc,uHc-(exp(uHc)-exp(-uHc))/(exp(uHc)+exp(-uHc))]","0"); CstHc=Expression("CstHc","Const Hauteur Hc = ","","","[((exp(CdHc[0])+exp(-CdHc[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdHc[1]^2-CdC[1]^2)/(2*(CdC[1]-CdHc[1])),(exp(CdHc[0])+exp(-CdHc[0]))^2/4+(CdHc[1]+((exp(CdHc[0])+exp(-CdHc[0]))^2/4-(exp(CdC[0])+exp(-CdC[0]))^2/4+CdHc[1]^2-CdC[1]^2)/(2*(CdC[1]-CdHc[1])))^2]","1.5","-1.8"); PmaxHt=Point("PmaxHt","[-CstHc[0]+sqrt(CstHc[1]-1),-1.3]","0"); PminHt=Point("PminHt","[-CstHc[0]-sqrt(CstHc[1]-1),-1.3]","0"); SegHaut=Segment("SegHaut",PminHt,PmaxHt); tetaK3=PointOn("tetaK3",SegHaut,0.7); chuK3=Expression("chuK3","chuK = ","","","sqrt(CstHc[1]-(x(tetaK3)+CstHc[0])^2)","-1.3","-0.7"); uK3=Expression("uK3","uK = ","","","log(chuK3+sqrt(chuK3^2-1))","-1.1","-0.55"); PtSurH=Point("PtSurH","[cos(x(tetaK3))/chuK3,sin(x(tetaK3))/chuK3,uK3-(exp(uK3)-exp(-uK3))/(exp(uK3)+exp(-uK3))]","0"); Hauteur=Locus("Hauteur",PtSurH,tetaK3); STL(Hc,"c:#007c00;s:4;f:30"); STL(Hauteur,"c:#007c00;s:2;f:30;p:200"); return [Hc,CstHc,Hauteur]; }}; $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["PointparCoord"]={ name:"Point par Coord", parameters:["expression"], exec: function (CdPtC){ LePt=Point("LePt","[2*cos(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),2*sin(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),CdPtC[0]-(exp(CdPtC[0])-exp(-CdPtC[0]))/(exp(CdPtC[0])+exp(-CdPtC[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(-50,39,291.24046159545946,true); // Geometry : O=Point("O",1.3768691266428474,-1.3528340047313763); P11=Point("P11","[-sqrt(2)/2,-sqrt(2)/2,0]","0"); PthMax=Point("PthMax","[2*\u03C0,0]","0"); PthMin=Point("PthMin","[0,0]","0"); Y=Point("Y","[0,1,0]","0"); X=Point("X","[1,0,0]","0"); Z=Point("Z","[0,0,1]","0"); S11=Segment("S11",O,X); C1=Circle3pts3D("C1",X,Y,P11); Scerc=Segment("Scerc",PthMin,PthMax); uI=Point("uI","[x(O.coords2D())+1,y(O.coords2D())]","0"); S21=Segment("S21",O,Y); S31=Segment("S31",O,Z); S3=Segment("S3",uI,Y); S2=Segment("S2",O,uI); Center1=Center("Center1",C1); tCerc=PointOn("tCerc",Scerc,0.6); Symc1=Symmetry("Symc1",Z,Center1); Symc2=Symmetry("Symc2",Symc1,Center1); Symc3=Symmetry("Symc3",Symc2,Center1); S1=Segment("S1",O,Symc3); uC=PointOn("uC",S1,0.1046518393384369); uG=PointOn("uG",S1,0.20052710313256453); uB=PointOn("uB",S1,0.18483058233642727); uA=PointOn("uA",S1,0.2816680827776674); altG2=Expression("altG2","","","","uB[2]","0.17167944222479392","-0.25894311278922066"); altG3=Expression("altG3","","","","uC[2]","0.17167944222479392","-0.25044110101683703"); altG1=Expression("altG1","","","","uA[2]","0.17167944222479392","-0.2520759351002289"); altG=Expression("altG","","","","uG[2]","0.2746871075596703","-0.6901513577436716"); G12=Point("G12","[2/(exp(altG2)+exp(-altG2)),0,altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","0"); G21=Point("G21","[0,2/(exp(altG1)+exp(-altG1)),altG1-(exp(altG1)-exp(-altG1))/(exp(altG1)+exp(-altG1))]","0"); P133=Point("P133","[-2/(exp(altG3)+exp(-altG3)),0,altG3-(exp(altG3)-exp(-altG3))/(exp(altG3)+exp(-altG3))]","0"); P132=Point("P132","[-2/(exp(altG2)+exp(-altG2)),0,altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","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"); 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"); G11=Point("G11","[2/(exp(altG1)+exp(-altG1)),0,altG1-(exp(altG1)-exp(-altG1))/(exp(altG1)+exp(-altG1))]","0"); G23=Point("G23","[0,2/(exp(altG3)+exp(-altG3)),altG3-(exp(altG3)-exp(-altG3))/(exp(altG3)+exp(-altG3))]","0"); P13=Point("P13","[-2/(exp(altG)+exp(-altG)),0,altG-(exp(altG)-exp(-altG))/(exp(altG)+exp(-altG))]","0"); G22=Point("G22","[0,2/(exp(altG2)+exp(-altG2)),altG2-(exp(altG2)-exp(-altG2))/(exp(altG2)+exp(-altG2))]","0"); Locus3=Locus("Locus3",G1,uG); Locus4=Locus("Locus4",P13,uG); HoriB=Circle3pts3D("HoriB",G12,G22,P132); HoriC=Circle3pts3D("HoriC",G13,G23,P133); Par2=Parallel("Par2",S3,G2); HoriA=Circle3pts3D("HoriA",G11,G21,P131); oG=MidPoint("oG",G1,P13); Center4=Center("Center4",HoriB); Center3=Center("Center3",HoriC); Par1=Parallel("Par1",S2,oG); A=PointOn("A",HoriA,122); B=PointOn("B",HoriB,560); C=PointOn("C",HoriC,275); Center2=Center("Center2",HoriA); E1=Expression("E1","","","","A-Center2","0.2746871075596703","-0.4841360270739189"); uG1=OrderedIntersection("uG1",Par2,Par1,0); E11=Expression("E11","","","","B-Center4","0.2746871075596703","-0.4841360270739189"); E12=Expression("E12","","","","C-Center3","0.2609527521816868","-0.47726884938492714"); 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)))]","2.849878740931579","-0.2781206964041662"); 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)))]","2.8155428524866206","-0.5184719155188777"); 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)))]","2.849878740931579","-0.6901513577436716"); Locus1=Locus("Locus1",uG1,uG); Symc4=Symmetry("Symc4",oG,uG1); 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]","1.217247234411782","-1.7582460052614628"); PminSeg=Point("PminSeg","[min(CdA[1],CdB[1]),-0.5]","0"); Locus2=Locus("Locus2",Symc4,uG); PmaxSeg=Point("PmaxSeg","[max(CdA[1],CdB[1]),-0.5]","0"); 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]","0.17167944222479392","-0.2704993854248405"); PminSeg2=Point("PminSeg2","[min(CdC[1],CdA[1]),-0.5]","0"); PminSeg1=Point("PminSeg1","[min(CdB[1],CdC[1]),-0.5]","0"); PmaxSeg1=Point("PmaxSeg1","[max(CdB[1],CdC[1]),-0.5]","0"); Cst2Pts1=Expression("Cst2Pts1","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.17167944222479392","-0.2704993854248405"); PmaxSeg2=Point("PmaxSeg2","[max(CdC[1],CdA[1]),-0.5]","0"); Cst2Pts2=Expression("Cst2Pts2","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.17167944222479392","-0.2704993854248405"); 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.2927861889906913","-1.7307772945054958"); 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]","1.2927861889906913","-1.7307772945054958"); Segdeseg=Segment("Segdeseg",PminSeg,PmaxSeg); Segdeseg1=Segment("Segdeseg1",PminSeg1,PmaxSeg1); Segdeseg2=Segment("Segdeseg2",PminSeg2,PmaxSeg2); xIab1=Expression("xIab1","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.2927861889906913","-0.9869039845871846"); 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.2927861889906913","-0.9869039845871846"); 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.217247234411782","-1.0143726953431518"); tI2=Expression("tI2","thetaI= ","","","sqrt(CstAB2[1])*(exp(xIab2)-exp(-xIab2))/(exp(xIab2)+exp(-xIab2))-CstAB2[0]","1.4877466198366225","-0.8114981562745212"); tetaK4=PointOn("tetaK4",Segdeseg1,0.4); tI=Expression("tI","thetaI= ","","","sqrt(CstAB[1])*(exp(xIab)-exp(-xIab))/(exp(xIab)+exp(-xIab))-CstAB[0]","1.5632855744155318","-0.7840294455185541"); tetaK5=PointOn("tetaK5",Segdeseg2,0.4); tI1=Expression("tI1","thetaI= ","","","sqrt(CstAB1[1])*(exp(xIab1)-exp(-xIab1))/(exp(xIab1)+exp(-xIab1))-CstAB1[0]","1.5632855744155318","-0.7840294455185541"); tetaK3=PointOn("tetaK3",Segdeseg,0.4); chuK3=Expression("chuK3","chuK = ","","","sqrt(Cst2Pts[1]-(x(tetaK3)+Cst2Pts[0])^2)","0.608623617205891","-1.149622388055572"); chuK4=Expression("chuK4","chuK = ","","","sqrt(Cst2Pts1[1]-(x(tetaK4)+Cst2Pts1[0])^2)","0.608623617205891","-1.149622388055572"); chuI1=Expression("chuI1","chuI =","","","sqrt(CstAB1[1]-(tI1+CstAB1[0])^2)","1.2251613426344814","-0.581154906449924"); chuK5=Expression("chuK5","chuK = ","","","sqrt(Cst2Pts2[1]-(x(tetaK5)+Cst2Pts2[0])^2)","0.608623617205891","-1.149622388055572"); chuI=Expression("chuI","chuI =","","","sqrt(CstAB[1]-(tI+CstAB[0])^2)","1.2251613426344814","-0.581154906449924"); chuI2=Expression("chuI2","chuI =","","","sqrt(CstAB2[1]-(tI2+CstAB2[0])^2)","1.149622388055572","-0.608623617205891"); uI3=Expression("uI3","uI = ","","","log(chuI2+sqrt(chuI2^2-1))","0.8791230026307314","-0.608623617205891"); uK3=Expression("uK3","uK = ","","","log(chuK3+sqrt(chuK3^2-1))","0.540998770849681","-1.0143726953431518"); uK4=Expression("uK4","uK = ","","","log(chuK4+sqrt(chuK4^2-1))","0.540998770849681","-1.0143726953431518"); uK5=Expression("uK5","uK = ","","","log(chuK5+sqrt(chuK5^2-1))","0.540998770849681","-1.0143726953431518"); uI1=Expression("uI1","uI = ","","","log(chuI+sqrt(chuI^2-1))","0.9546619572096408","-0.581154906449924"); uI2=Expression("uI2","uI = ","","","log(chuI1+sqrt(chuI1^2-1))","0.9546619572096408","-0.581154906449924"); CdIab=Expression("CdIab","coord Iab =","","","[uI1,tI]","2.849878740931579","-0.8961666884134244"); CdIab1=Expression("CdIab1","coord Ibc =","","","[uI2,tI1]","2.7468710755967027","-1.1708537959730947"); PtSeg1=Point("PtSeg1","[cos(x(tetaK4))/chuK4,sin(x(tetaK4))/chuK4,uK4-(exp(uK4)-exp(-uK4))/(exp(uK4)+exp(-uK4))]","0"); PtSeg2=Point("PtSeg2","[cos(x(tetaK5))/chuK5,sin(x(tetaK5))/chuK5,uK5-(exp(uK5)-exp(-uK5))/(exp(uK5)+exp(-uK5))]","0"); CdIab2=Expression("CdIab2","coord Iac =","","","[uI3,tI2]","2.5065198564819915","-0.07210536573441345"); PtSeg=Point("PtSeg","[cos(x(tetaK3))/chuK3,sin(x(tetaK3))/chuK3,uK3-(exp(uK3)-exp(-uK3))/(exp(uK3)+exp(-uK3))]","0"); CstMed1=Expression("CstMed1","Const Mediatrice BC = ","","","[CstAB1[0]-CstAB1[1]/(CdIab1[1]+CstAB1[0]),(CstAB1[1]/(CdIab1[1]+CstAB1[0]))^2-CstAB1[1]]","2.5408557449269504","-1.3425332381978885"); CstMed=Expression("CstMed","Const Mediatrice AB = ","","","[CstAB[0]-CstAB[1]/(CdIab[1]+CstAB[0]),(CstAB[1]/(CdIab[1]+CstAB[0]))^2-CstAB[1]]","2.7468710755967027","-1.0335102421932596"); LeSeg1=Locus("LeSeg1",PtSeg1,tetaK4); J=Point("J","[2*cos(CdIab[1])/(exp(CdIab[0])+exp(-CdIab[0])),2*sin(CdIab[1])/(exp(CdIab[0])+exp(-CdIab[0])),CdIab[0]-(exp(CdIab[0])-exp(-CdIab[0]))/(exp(CdIab[0])+exp(-CdIab[0]))]","0"); CstMed2=Expression("CstMed2","Const Mediatrice AC = ","","","[CstAB2[0]-CstAB2[1]/(CdIab2[1]+CstAB2[0]),(CstAB2[1]/(CdIab2[1]+CstAB2[0]))^2-CstAB2[1]]","2.6781992987067853","-0.3811283617390425"); I=Point("I","[2*cos(CdIab1[1])/(exp(CdIab1[0])+exp(-CdIab1[0])),2*sin(CdIab1[1])/(exp(CdIab1[0])+exp(-CdIab1[0])),CdIab1[0]-(exp(CdIab1[0])-exp(-CdIab1[0]))/(exp(CdIab1[0])+exp(-CdIab1[0]))]","0"); LeSeg=Locus("LeSeg",PtSeg,tetaK3); LeSeg2=Locus("LeSeg2",PtSeg2,tetaK5); K=Point("K","[2*cos(CdIab2[1])/(exp(CdIab2[0])+exp(-CdIab2[0])),2*sin(CdIab2[1])/(exp(CdIab2[0])+exp(-CdIab2[0])),CdIab2[0]-(exp(CdIab2[0])-exp(-CdIab2[0]))/(exp(CdIab2[0])+exp(-CdIab2[0]))]","0"); PmaxDrte=Point("PmaxDrte","[-CstMed[0]+sqrt(CstMed[1]-1),-1]","0"); PminDrte=Point("PminDrte","[-CstMed[0]-sqrt(CstMed[1]-1),-1]","0"); PmaxDrte2=Point("PmaxDrte2","[-CstMed2[0]+sqrt(CstMed2[1]-1),-1]","0"); PminDrte2=Point("PminDrte2","[-CstMed2[0]-sqrt(CstMed2[1]-1),-1]","0"); PminDrte1=Point("PminDrte1","[-CstMed1[0]-sqrt(CstMed1[1]-1),-1]","0"); PmaxDrte1=Point("PmaxDrte1","[-CstMed1[0]+sqrt(CstMed1[1]-1),-1]","0"); CdInter=Expression("CdInter","Coord centre CCir ABC = ","","","[log(sqrt(CstMed[1]-(((CstMed[1]-CstMed1[1])/(CstMed[0]-CstMed1[0])-CstMed[0]-CstMed1[0])/2+CstMed[0])^2)+sqrt(CstMed[1]-(((CstMed[1]-CstMed1[1])/(CstMed[0]-CstMed1[0])-CstMed[0]-CstMed1[0])/2+CstMed[0])^2-1)),((CstMed[1]-CstMed1[1])/(CstMed[0]-CstMed1[0])-CstMed[0]-CstMed1[0])/2]","2.5065198564819915","-1.6515562342025176"); SegDrte1=Segment("SegDrte1",PminDrte1,PmaxDrte1); SegDrte2=Segment("SegDrte2",PminDrte2,PmaxDrte2); SegDrte=Segment("SegDrte",PminDrte,PmaxDrte); oABC=Point("oABC","[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"); CstOB=Expression("CstOB","Const OB = ","","","[((exp(CdInter[0])+exp(-CdInter[0]))^2/4-(exp(CdA[0])+exp(-CdA[0]))^2/4+CdInter[1]^2-CdA[1]^2)/(2*(CdA[1]-CdInter[1])),(exp(CdInter[0])+exp(-CdInter[0]))^2/4+(CdInter[1]+((exp(CdInter[0])+exp(-CdInter[0]))^2/4-(exp(CdA[0])+exp(-CdA[0]))^2/4+CdInter[1]^2-CdA[1]^2)/(2*(CdA[1]-CdInter[1])))^2]","0.8870371108534305","-1.7307772945054958"); tetaK1=PointOn("tetaK1",SegDrte1,0.8); tetaK2=PointOn("tetaK2",SegDrte2,0.8); R=Expression("R","R = ","","","abs(log((sqrt(CstOB[1])+CdInter[1]+CstOB[0])*(sqrt(CstOB[1])-CdA[1]-CstOB[0])/((sqrt(CstOB[1])-CdInter[1]-CstOB[0])*(sqrt(CstOB[1])+CdA[1]+CstOB[0]))))/2","1.6985352671279519","-0.24303067466887346"); tetaK=PointOn("tetaK",SegDrte,0.8); chuK2=Expression("chuK2","chuK = ","","","sqrt(CstMed2[1]-(x(tetaK2)+CstMed2[0])^2)","1.3524969271242022","-0.4733739244934707"); chuK1=Expression("chuK1","chuK = ","","","sqrt(CstMed1[1]-(x(tetaK1)+CstMed1[0])^2)","1.3524969271242022","-0.4733739244934707"); ChuCerc=Expression("ChuCerc","ChuCerc = ","","","(exp(R)+exp(-R))*(exp(CdInter[0])+exp(-CdInter[0]))/4+(exp(R)-exp(-R))*(exp(CdInter[0])+exp(-CdInter[0]))*cos(x(tCerc))/4","1.630910420771742","-0.31065552102508354"); chuK=Expression("chuK","chuK = ","","","sqrt(CstMed[1]-(x(tetaK)+CstMed[0])^2)","1.3524969271242022","-0.4733739244934707"); uK=Expression("uK","uK = ","","","log(chuK+sqrt(chuK^2-1))","1.3524969271242022","-0.33812423178105055"); uK1=Expression("uK1","uK = ","","","log(chuK1+sqrt(chuK1^2-1))","1.3524969271242022","-0.33812423178105055"); uK2=Expression("uK2","uK = ","","","log(chuK2+sqrt(chuK2^2-1))","1.3524969271242022","-0.33812423178105055"); CdPtC=Expression("CdPtC","Coord PtCerc = ","","","[log(ChuCerc+sqrt(ChuCerc^2-1)),CdInter[1]+(exp(R)-exp(-R))*(exp(CdInter[0])+exp(-CdInter[0]))*sin(x(tCerc))/4]","1.630910420771742","-0.24303067466887346"); LePtC=Point("LePtC","[2*cos(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),2*sin(CdPtC[1])/(exp(CdPtC[0])+exp(-CdPtC[0])),CdPtC[0]-(exp(CdPtC[0])-exp(-CdPtC[0]))/(exp(CdPtC[0])+exp(-CdPtC[0]))]","0"); PtDrt2=Point("PtDrt2","[cos(x(tetaK2))/chuK2,sin(x(tetaK2))/chuK2,uK2-(exp(uK2)-exp(-uK2))/(exp(uK2)+exp(-uK2))]","0"); PtDrt1=Point("PtDrt1","[cos(x(tetaK1))/chuK1,sin(x(tetaK1))/chuK1,uK1-(exp(uK1)-exp(-uK1))/(exp(uK1)+exp(-uK1))]","0"); PtDrt=Point("PtDrt","[cos(x(tetaK))/chuK,sin(x(tetaK))/chuK,uK-(exp(uK)-exp(-uK))/(exp(uK)+exp(-uK))]","0"); LaDroite1=Locus("LaDroite1",PtDrt1,tetaK1); LaDroite2=Locus("LaDroite2",PtDrt2,tetaK2); LeCercle=Locus("LeCercle",LePtC,tCerc); LaDroite=Locus("LaDroite",PtDrt,tetaK); // Styles : STL(O,"c:#0000b2;o:0.99;s:4.5;sn:true;f:18;fl:true"); STL(P11,"c:#0000b2;h:1;s:4.5;f:18"); STL(PthMax,"c:#0000b2;h:2;s:4.5;f:30"); STL(PthMin,"c:#0000b2;h:2;s:4.5;f:30"); STL(Y,"c:#0000b2;o:1;s:4.5;sn:true;f:18"); STL(X,"c:#0000b2;o:1;s:4.5;sn:true;f:18"); STL(Z,"c:#0000b2;h:1;o:1;s:4.5;sn:true;f:18"); STL(S11,"c:#117dad;s:1;f:24"); STL(C1,"c:#cc66cc;s:2.5;f:30;p:0"); STL(Scerc,"c:#006633;h:2;s:1;f:24"); STL(uI,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(S21,"c:#117dad;s:1;f:24"); STL(S31,"c:#117dad;h:1;s:1;f:24"); STL(S3,"c:#006633;h:2;s:1;f:24"); STL(S2,"c:#006633;h:2;s:1;f:24"); STL(Center1,"c:#0000b2;h:1;s:4.5;f:18"); STL(tCerc,"c:#0000b2;h:2;s:4.5;f:30"); STL(Symc1,"c:#0000b2;h:1;s:4.5;f:18"); STL(Symc2,"c:#0000b2;h:1;s:4.5;f:18"); STL(Symc3,"c:#0000b2;h:1;s:4.5;f:18"); STL(S1,"c:#006633;s:1;f:24"); STL(uC,"c:#ff00a5;s:4.5;sn:true;f:18;sp:2"); STL(uG,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(uB,"c:#ff00b5;s:4.5;sn:true;f:18;sp:2"); STL(uA,"c:#0000b2;s:4.5;sn:true;f:18"); STL(altG2,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjE4"); STL(altG3,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjE4"); STL(altG1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjE4"); STL(altG,"c:#567f3b;h:1;s:7;sn:true;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjE4"); STL(G12,"c:#0000b2;h:2;s:4.5;f:18"); STL(G21,"c:#0000b2;h:2;s:4.5;f:18"); STL(P133,"c:#0000b2;h:2;s:4.5;f:18"); STL(P132,"c:#0000b2;h:2;s:4.5;f:18"); STL(P131,"c:#0000b2;h:2;s:4.5;f:18"); STL(G13,"c:#0000b2;h:2;s:4.5;f:18"); STL(G1,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(G2,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(G11,"c:#0000b2;h:2;s:4.5;f:18"); STL(G23,"c:#0000b2;h:2;s:4.5;f:18"); STL(P13,"c:#0000b2;h:2;s:4.5;f:18"); STL(G22,"c:#0000b2;h:2;s:4.5;f:18"); STL(Locus3,"c:#780013;s:1;f:30;p:100"); STL(Locus4,"c:#780013;s:1;f:30;p:100"); STL(HoriB,"c:#cc66cc;s:1;sn:true;f:30;p:0"); STL(HoriC,"c:#cc66cc;s:1;sn:true;f:30;p:0"); STL(Par2,"c:#780013;h:2;s:1;f:30;p:0"); STL(HoriA,"c:#cc66cc;s:1;sn:true;f:30;p:0"); STL(oG,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(Center4,"c:#0000b2;h:1;s:4.5;sn:true;f:18"); STL(Center3,"c:#0000b2;h:1;s:4.5;sn:true;f:18"); STL(Par1,"c:#780013;h:1;s:1;f:30;p:0"); STL(A,"c:#0000b2;o:1;s:4.5;sn:true;f:18"); STL(B,"c:#0000b2;o:1;s:4.5;sn:true;f:18"); STL(C,"c:#0000b2;o:1;s:4.5;sn:true;f:18"); STL(Center2,"c:#0000b2;h:1;s:4.5;sn:true;f:18"); STL(E1,"c:#48314c;h:1;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjE4"); STL(uG1,"c:#0000b2;h:2;s:4.5;sn:true;f:18"); STL(E11,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjE4"); STL(E12,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjE4"); STL(CdA,"c:#435805;h:1;s:7;sn:true;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjE4"); STL(CdB,"c:#435805;h:1;s:7;sn:true;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjE4"); STL(CdC,"c:#435805;h:1;s:7;sn:true;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjE4"); STL(Locus1,"c:#780013;s:1;f:30;p:100"); STL(Symc4,"c:#0000b2;h:1;s:4.5;f:18"); STL(CstAB2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(PminSeg,"c:#0000b2;h:2;s:4.5;f:30"); STL(Locus2,"c:#780013;s:1;f:30;p:100"); STL(PmaxSeg,"c:#0000b2;h:2;s:4.5;f:30"); STL(Cst2Pts,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(PminSeg2,"c:#0000b2;h:2;s:4.5;f:30"); STL(PminSeg1,"c:#0000b2;h:2;s:4.5;f:30"); STL(PmaxSeg1,"c:#0000b2;h:2;s:4.5;f:30"); STL(Cst2Pts1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(PmaxSeg2,"c:#0000b2;h:2;s:4.5;f:30"); STL(Cst2Pts2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(CstAB,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(CstAB1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(Segdeseg,"c:#006633;h:2;s:1;f:24"); STL(Segdeseg1,"c:#006633;h:2;s:1;f:24"); STL(Segdeseg2,"c:#006633;h:2;s:1;f:24"); STL(xIab1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(xIab,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(xIab2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tI2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tetaK4,"c:#0000b2;h:2;s:4.5;f:30"); STL(tI,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tetaK5,"c:#0000b2;h:2;s:4.5;f:30"); STL(tI1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tetaK3,"c:#0000b2;h:2;s:4.5;f:30"); STL(chuK3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuK4,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuI1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuK5,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuI,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuI2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uI3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK3,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK4,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK5,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uI1,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uI2,"c:#780013;h:2;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(CdIab,"c:#780013;h:1;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(CdIab1,"c:#780013;h:1;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(PtSeg1,"c:#0000b2;h:2;s:4.5;f:30"); STL(PtSeg2,"c:#0000b2;h:2;s:4.5;f:30"); STL(CdIab2,"c:#780013;h:1;s:7;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(PtSeg,"c:#0000b2;h:2;s:4.5;f:30"); STL(CstMed1,"c:#780013;h:1;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(CstMed,"c:#780013;h:1;s:7;f:16;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(LeSeg1,"c:#b40000;s:3;f:30;p:100"); STL(J,"c:#b40000;s:4.5;sn:true;f:18"); STL(CstMed2,"c:#780013;h:1;s:7;f:17;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(I,"c:#b40000;s:4.5;sn:true;f:18"); STL(LeSeg,"c:#b40000;s:3;f:30;p:100"); STL(LeSeg2,"c:#b40000;s:3;f:30;p:100"); STL(K,"c:#b40000;s:4.5;sn:true;f:18"); STL(PmaxDrte,"c:#0000b2;h:2;s:4.5;f:30"); STL(PminDrte,"c:#0000b2;h:2;s:4.5;f:30"); STL(PmaxDrte2,"c:#0000b2;h:2;s:4.5;f:30"); STL(PminDrte2,"c:#0000b2;h:2;s:4.5;f:30"); STL(PminDrte1,"c:#0000b2;h:2;s:4.5;f:30"); STL(PmaxDrte1,"c:#0000b2;h:2;s:4.5;f:30"); STL(CdInter,"c:#512475;h:1;s:7;f:18;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjQuNTtmOjMw"); STL(SegDrte1,"c:#006633;h:2;s:1;f:24"); STL(SegDrte2,"c:#006633;h:2;s:1;f:24"); STL(SegDrte,"c:#006633;h:2;s:1;f:24"); STL(oABC,"c:#0035ff;s:4.5;sn:true;f:15;sp:2;np:1.3565836614582154"); STL(CstOB,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tetaK1,"c:#0000b2;h:2;s:4.5;f:30"); STL(tetaK2,"c:#0000b2;h:2;s:4.5;f:30"); STL(R,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(tetaK,"c:#0000b2;h:2;s:4.5;f:30"); STL(chuK2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuK1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(ChuCerc,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(chuK,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK1,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(uK2,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(CdPtC,"c:#780013;h:2;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MjtzOjQuNTtmOjMw"); STL(LePtC,"c:#0000b2;h:2;s:4.5;f:30"); STL(PtDrt2,"c:#0000b2;h:2;s:4.5;f:30"); STL(PtDrt1,"c:#0000b2;h:2;s:4.5;f:30"); STL(PtDrt,"c:#0000b2;h:2;s:4.5;f:30"); STL(LaDroite1,"c:#007c00;s:3;f:30;p:200"); STL(LaDroite2,"c:#007c00;s:3;f:30;p:200"); STL(LeCercle,"c:#1600ff;s:3;f:30;p:100"); STL(LaDroite,"c:#007c00;s:3;f:30;p:200"); 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");