<br />
x <- seq(-2,3,0.05)<br />
y <- seq(-1,7,0.05)<br />
f <- function(x,y)<br />
{<br />
x^4-2*x^2*y-2*x*y+2*y^2+4.5*x-4*y+4<br />
}<br />
z <- outer(x,y,f)<br />
a <- seq(0,100,10)<br />
a<br />
for (i in a)<br />
{</p>
<p> persp(x,y,z,theta=i,phi=30,expand=0.7,col="blue")</p>
<p> Sys.sleep(3)<br />
}<br />
这是我用R语言做的一个三维的图像，实现了每隔3秒换一个视角展示图像。不过我想实现的是渐变的效果，像放电影一样，而不是3秒之后就重绘一次，闪烁几次。不知道R语言能否实现呢？
</p>
