// Macros : $macros={}; $macros["rotation"]={ name:"rotation", parameters:["point","point"], exec: function (P4,P5){ P6=Point("P6","P4+(P5-P4)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); STL(P6,"c:#0000b2;s:6;f:30"); return [P6]; }}; // Coordinates System : SetCoords(498.6017061940354,408.1528464897307,234.1787717754324); // Geometry : T=Point("T",1.4181388120572676,1.0173290819841032); ang=Expression("ang","","","","\u03C0/180","-2.0864474712617582","0.3337315585747284"); R=Point("R",1.5750769892961658,-0.35673007078846913); S=Point("S",0.813281125363981,-0.06460363049309328); A=Point("A",-0.6741024469368011,0.4379263273912123); R1=Ray("R1",S,R); b=Expression("b","","","","y(A)","-2.0864474712617582","0.8888630037283675"); R2=Ray("R2",S,T); C1=Circle1("C1",A,"1"); a=Expression("a","","","","x(A)","-2.0864474712617582","1.0596726791602564"); M=PointOn("M",C1,0.20289146570464084); f=Expression("f","","","","y(M)","-2.0864474712617582","0.5045412340066173"); e=Expression("e","","","","x(M)","-2.0864474712617582","0.7180533282964785"); P612=Point("P612","A+(M-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); Symc1=Symmetry("Symc1",A,M); S1=Segment("S1",Symc1,M); E1=Expression("E1","","","","var tab=[];for (var k=1;k<=360;k++){var v=[a+(e-a)*cos(k*ang)-(f-b)*sin(k*ang),b+(e-a)*sin(k*ang)+(f-b)*cos(k*ang)];tab.push(v); var w=[a+0.95*((e-a)*cos(k*ang)-(f-b)*sin(k*ang)),b+0.95*((e-a)*sin(k*ang)+(f-b)*cos(k*ang))];tab.push(w); var u=[NaN,NaN];tab.push(u); };tab","-2.0864474712617582","1.2304823545921453"); P613=Point("P613","A+(P612-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); E3=Expression("E3","","","","var tab=[];for (var k=1;k<=36;k++){var v=[a+(e-a)*cos(10*k*ang)-(f-b)*sin(10*k*ang),b+(e-a)*sin(10*k*ang)+(f-b)*cos(10*k*ang)];tab.push(v); var w=[a+0.8*((e-a)*cos(10*k*ang)-(f-b)*sin(10*k*ang)),b+0.8*((e-a)*sin(10*k*ang)+(f-b)*cos(10*k*ang))];tab.push(w); var u=[NaN,NaN];tab.push(u); };tab","-2.1291498901197308","1.3158871923080897"); P616=Point("P616","A+(Symc1-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P=Point("P","[a+(e-a)*cos(5*ang)-(f-b)*sin(5*ang),b+(e-a)*sin(5*ang)+(f-b)*cos(5*ang)]","0"); g=Expression("g","","","","x(P)","-0.9334821620965081","1.187779935734173"); List3=List("List3",E3); List1=List("List1",E1); P3=PointOn("P3",S1,0.7866370639571553); P617=Point("P617","A+(P616-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); h=Expression("h","","","","y(P)","-0.9334821620965081","1.016970260302284"); Perp1=Perpendicular("Perp1",S1,A); P2=OrderedIntersection("P2",Perp1,C1,1); C2=Circle("C2",A,P3); P61=Point("P61","A+(P3-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); E2=Expression("E2","","","","var tab=[];for (var k=1;k<=36;k++){var v=[a+(g-a)*cos(10*k*ang)-(h-b)*sin(10*k*ang),b+(g-a)*sin(10*k*ang)+(h-b)*cos(10*k*ang)];tab.push(v); var w=[a+0.9*((g-a)*cos(10*k*ang)-(h-b)*sin(10*k*ang)),b+0.9*((g-a)*sin(10*k*ang)+(h-b)*cos(10*k*ang))];tab.push(w); var u=[NaN,NaN];tab.push(u); };tab","-2.0864474712617582","1.2304823545921453"); P1=OrderedIntersection("P1",Perp1,C1,0); S2=Segment("S2",P1,P2); P618=Point("P618","A+(P2-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); List2=List("List2",E2); P62=Point("P62","A+(P61-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S3=Segment("S3",P612,P61); P614=Point("P614","A+(P1-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S4=Segment("S4",P613,P62); P63=Point("P63","A+(P62-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P615=Point("P615","A+(P614-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P619=Point("P619","A+(P618-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P64=Point("P64","A+(P63-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S5=Segment("S5",P614,P64); P65=Point("P65","A+(P64-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S6=Segment("S6",P615,P65); P66=Point("P66","A+(P65-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P67=Point("P67","A+(P66-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P68=Point("P68","A+(P67-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S7=Segment("S7",P616,P67); S8=Segment("S8",P617,P68); P69=Point("P69","A+(P68-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); P610=Point("P610","A+(P69-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S9=Segment("S9",P618,P610); P611=Point("P611","A+(P610-A)*(cos(\u03C0/6)+i*sin(\u03C0/6))","0"); S10=Segment("S10",P619,P611); // Styles : STL(T,"c:#0000b2;s:6;sn:true;f:30"); STL(ang,"c:#1a2b44;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(R,"c:#0000b2;s:6;sn:true;f:30"); STL(S,"c:#0000b2;s:6;sn:true;f:30"); STL(A,"c:#007c00;o:0.4;s:9.5;f:30"); STL(R1,"c:#993300;s:2.5;f:30;p:0"); STL(b,"c:#406919;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(R2,"c:#993300;s:3;f:30;p:0"); STL(C1,"c:#0a0a0a;s:1;f:30;p:0"); STL(a,"c:#176174;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(M,"c:#b40000;o:0.51;s:9.5;f:30"); STL(f,"c:#702030;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(e,"c:#635f16;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(P612,"c:#0000b2;h:1;s:6;f:30"); STL(Symc1,"c:#0000b2;h:1;s:6;f:30"); STL(S1,"c:#006633;s:2.5;f:24"); STL(E1,"c:#2d534c;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(P613,"c:#0000b2;h:1;s:6;f:30"); STL(E3,"c:#565a44;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(P616,"c:#0000b2;h:1;s:6;f:30"); STL(P,"c:#0000b2;h:1;s:6;sn:true;f:30"); STL(g,"c:#1e0a40;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(List3,"c:#1f1f21;s:0;f:30;p:0;sg:2"); STL(List1,"c:#0b0b0c;s:0;f:30;p:0;sg:1"); STL(P3,"c:#0000b2;h:1;s:6;f:30"); STL(P617,"c:#0000b2;h:1;s:6;f:30"); STL(h,"c:#2b2a78;h:1;s:7;sn:true;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(Perp1,"c:#780013;h:1;s:2.5;f:30;p:0"); STL(P2,"c:#0000b2;h:1;s:6;f:30"); STL(C2,"c:#cc66cc;h:1;s:1;f:30;p:0"); STL(P61,"c:#0000b2;h:1;s:6;f:30"); STL(E2,"c:#1b100b;h:1;s:7;f:24;p:4;cL:200;cPT:YzojNzgwMDEzO2g6MTtzOjEwO2Y6MzA="); STL(P1,"c:#0000b2;h:1;s:6;f:30"); STL(S2,"c:#131414;s:2.5;f:24"); STL(P618,"c:#0000b2;h:1;s:6;f:30"); STL(List2,"c:#b40000;s:0;f:30;p:0;sg:1.5"); STL(P62,"c:#0000b2;h:1;s:6;f:30"); STL(S3,"c:#131414;s:2.5;f:24"); STL(P614,"c:#0000b2;h:1;s:6;f:30"); STL(S4,"c:#181918;s:2.5;f:24"); STL(P63,"c:#0000b2;h:1;s:6;f:30"); STL(P615,"c:#0000b2;h:1;s:6;f:30"); STL(P619,"c:#0000b2;h:1;s:6;f:30"); STL(P64,"c:#0000b2;h:1;s:6;f:30"); STL(S5,"c:#1b1c1b;s:2.5;f:24"); STL(P65,"c:#0000b2;h:1;s:6;f:30"); STL(S6,"c:#292b2a;s:2.5;f:24"); STL(P66,"c:#0000b2;h:1;s:6;f:30"); STL(P67,"c:#0000b2;h:1;s:6;f:30"); STL(P68,"c:#0000b2;h:1;s:6;f:30"); STL(S7,"c:#2b2d2c;s:2.5;f:24"); STL(S8,"c:#292b2a;s:2.5;f:24"); STL(P69,"c:#0000b2;h:1;s:6;f:30"); STL(P610,"c:#0000b2;h:1;s:6;f:30"); STL(S9,"c:#222322;s:2.5;f:24"); STL(P611,"c:#0000b2;h:1;s:6;f:30"); STL(S10,"c:#242625;s:2.5;f:24"); SetCoordsStyle("isAxis:false;isGrid:true;isOx:true;isOy:true;isLockOx:false;isLockOy:false;centerZoom:false;color:#111111;fontSize:18;axisWidth:1;gridWidth:0.1");