用SAS画蝴蝶

kankan

kankan

茶余饭后，我用R来复制一遍
t=seq(-400, 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)))
x1=seq(0.20, (pi/4+0.20), by=0.01)
y1=3*sin(2*(x1-0.20))+2.5;
x2=-1*x1;

plot(x, y, xlim=c(-4,4), ylim=c(-3,6),col=4, lty=2, pch=3, cex=0.7)
points(x1,y1, col=2, pch="*", cex=1.5)
points(x2,y1, col=2, pch="*", cex=1.5)

真心牛逼

领教了

画得好

厉害

lihai