foshuochanyu 在wiki上看到一个“蝴蝶图像”的函数 http://en.wikipedia.org/wiki/Butterfly_curve_%28transcendental%29 以下是我的拙作 <br /> butterfly <- function(t, color = "red")<br /> { x <- sin(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)<br /> y <- cos(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)<br /> plot(x, y, type = "l", col = color)<br /> }<br /> </p>
yihui 回复 第2楼 的 foshuochanyu：恭喜你找到了真相。 回复 第1楼 的 foshuochanyu：图是幅好图，只可惜被postscript()了……我是该仰天长啸呢还是该怒发冲冠呢，这年头到底为神马还不把postscript拖出去枪毙了？
dengyishuo 上色之后，有一点空隙，期待楼主再完善。 <br /> t=seq(0,2*pi,length=500)<br /> x <- sin(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)<br /> y <- cos(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)<br /> plot(x,y,type="n")<br /> polygon(x,y,col="red")</p> [attachment=224618,1409]
foshuochanyu 回复 第3楼 的 谢益辉：莫非谢大的意思是“输入代码就蹦图”？ 回复 第4楼 的 dengyishuo：试试 t = seq(-pi, pi, 0.01) http://www.speedyshare.com/files/30913067/butterfly_pi.jpg 再试个有花纹的蝴蝶 t = seq(-10*pi, 10*pi, 0.01) http://www.speedyshare.com/files/30913068/butterfly_10pi.jpg </p>
yihui 回复 第5楼 的 foshuochanyu：我找不到一个这个年头还需要用postscript图片的理由，它不支持透明色，光这一点就足够枪毙八百次了。我希望所有的LaTeX入门教材都更新一下，用PDF，不要用EPS。 回复 第6楼 的 cloud wei：SVG的时代还没来临，也不知道会不会来临，不过它只影响网页的变革，跟LaTeX关系不大，我也不在乎。
yihui 回复 第8楼 的 daxiawj：PDF图片又漂亮又容易写入LaTeX，而EPS只不过是当年LaTeX首先支持的图片格式而已，话说回来，图是用来看的，不是用来打开源代码看画图命令的：） 回复 第11楼 的 foshuochanyu：我没有推荐，只有不推荐的三种：postscript、微软的bmp和wmf（这两种图片见了能躲多远躲多远），然后jpg多数情况下不推荐，用无损的png替代之。
foshuochanyu 回复 第15楼 的 yaofengluan：可以把postscript("butterfly.ps")与dev.off()去了，最后运行butterfly(seq(-pi, pi, 0.01))，或者参考5楼给出的其他参数。 </p>
yihui 回复 第14楼 的 cloud wei：这时代不是在变化么，当年我还是坚定的Windows用户呢[s:11] 回复 第16楼 的 foshuochanyu：你自己能修改帖子吗？这种演示没必要存为文件再看，直接在窗口中蹦出来就很好了。
