butterfly <- function(t, color = "purple")
{ x <- sin(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)
y <- cos(t)*(exp(1)^cos(t)-2*cos(4*t)-(sin(t/12))^5)
plot(x, y, type = "l", col = color)
}
t = seq(-100*pi, pi, 0.01)
butterfly(t)
求大神教这个蝴蝶图怎么填充颜色？