用SAS画蝴蝶

好玩！！！！

太有创意了啊

还算凑合的胡须:
DATA Butterfly;
   DO t=-400 TO 4 BY 0.01;
   a = cos(t);
   b = cos(4*t);
   x = sin(t)*(exp(a)-2*b-(sin(t/12)*sin(t/12)*sin(t/12)*sin(t/12)*sin(t/12)));
   y = cos(t)*(exp(a)-2*b-(sin(t/12)*sin(t/12)*sin(t/12)*sin(t/12)*sin(t/12)));
   OUTPUT;
   END;
  pi=constant('pi');
   do x=0.20 to (pi/4+0.20) by 0.01;
   y=3*sin(2*(x-0.20))+2.5;
   output;
   x=-1*x;
   output;
   x=-1*x;
   end;
   run;
SYMBOL C=GREEN;
PROC GPLOT ;
PLOT  y*x  ;        
RUN;

很感兴趣，向楼主学习！

看看

赞一个。

ziyenano 发表于 2012-11-20 15:31
还算凑合的胡须:
DATA Butterfly;
   DO t=-400 TO 4 BY 0.01;

都很有娱乐精神。

webgu 发表于 2012-11-20 15:57
都很有娱乐精神。

ziyenano 发表于 2012-11-20 15:31
还算凑合的胡须:
DATA Butterfly;
   DO t=-400 TO 4 BY 0.01;