// Coordinates System : SetCoords(587.5,366.5,40); // Geometry : O=Point("O",-6.4125,-0.5625); A=Point("A",-1.0125,3.1625); k=Expression("k","","0","0.2","0.02","-4.6875","7.9125"); ch=Expression("ch","","0","1","0","3.3125","7.9125"); Eb=Point("Eb","O+[cos(2*\u03C0/5)*(A[0]-O[0])+sin(2*\u03C0/5)*(A[1]-O[1]),-sin(2*\u03C0/5)*(A[0]-O[0])+cos(2*\u03C0/5)*(A[1]-O[1])]","0"); iter=Expression("iter","","40","200","102","-11.6875","7.9125"); Bb=Point("Bb","O+[cos(2*\u03C0/5)*(A[0]-O[0])-sin(2*\u03C0/5)*(A[1]-O[1]),sin(2*\u03C0/5)*(A[0]-O[0])+cos(2*\u03C0/5)*(A[1]-O[1])]","0"); S2=Segment("S2",Eb,O); S1=Segment("S1",O,Bb); Cb=Reflection("Cb",S1,A); Db=Reflection("Db",S2,A); C=Point("C","Cb*(ch==0)+Eb*(ch==1)","0"); D=Point("D","Db*(ch==0)+Bb*(ch==1)","0"); B=Point("B","Bb*(ch==0)+Cb*(ch==1)","0"); E=Point("E","Eb*(ch==0)+Db*(ch==1)","0"); Poly1=Polygon("Poly1","_A,_Bb,_Cb,_Db,_Eb"); E1=Expression("E1","","","","var m=A;var n=B;var p=C;var q=D;var r=E;var tab=[];for (i=0; i