Teardrop Curve

 投稿者：しばっち  投稿日：2015年10月28日(水)22時24分59秒
 
!'Teardrop Curve
SET WINDOW -1.2,1.2,-1.2,1.2
DRAW GRID(.1,.1)
FOR M=0 TO 7
   PLOT LINES
   FOR T=0 TO 360
      LET X=COS(RAD(T))
      LET Y=SIN(RAD(T))*SIN(RAD(T/2))^M
      PLOT LINES:X,Y;
   NEXT T
NEXT M
END
 		 

戻る