Labfans是一个针对大学生、工程师和科研工作者的技术社区。 | 论坛首页 | 联系我们(Contact Us) |
![]() |
|
![]() |
#1 |
初级会员
注册日期: 2008-02-03
年龄: 47
帖子: 3
声望力: 0 ![]() |
![]() ![]() ![]() |
![]() |
![]() |
![]() |
#2 |
初级会员
注册日期: 2007-05-08
帖子: 5
声望力: 0 ![]() |
![]()
clc
clear [x,y,z]=sphere(50); r=7; t=0:0.08:10; bb1='D:\'; for i=1:70 x1=x+r*cos(t(i)); y1=y+r*sin(t(i)); z1=z; h=surf(x1,y1,z1); hold on x2=x*2; y2=y*2; z2=z*2; surf(x2,y2,z2); colormap([0 0.8 0.7]) axis([-10 10 -10 10 -10 10]) axis square grid on set(h,'facelighting','flat','facecolor','interp') light('position',[100 1 10],'color',[1 1 1],'style','local') shading interp hold off m(i)=getframe(gcf); [xx,mm] = frame2im(m(i)); hh1=int2str(i); mm1=[bb1,hh1,'.bmp']; imwrite(xx,mm1); end hold off 以前做的玩的,在D盘生成电影图片的每一钲,下个软件就可以做成视频了 |
![]() |
![]() |