donghua_x.m

来自「一个小小的c语言编程」· M 代码 · 共 38 行

function donghua_x              %图形绕x轴旋转  
global X1 X2 X3 b r rotate_angle rotate_repeat rotate_zhen
figure(14)
str='Roll';
set(gcf,'name',str,'numbertitle','off')

singularity1_x=0;singularity1_y=0;singularity1_z=0;
singularity2_x=(b*(r-1))^(1/2);singularity2_y=(b*(r-1))^(1/2);singularity2_z=r-1;
singularity3_x=-(b*(r-1))^(1/2);singularity3_y=-(b*(r-1))^(1/2);singularity3_z=r-1;

clf;shg,
h=plot3(X1,X2,X3,singularity2_x,singularity2_y,singularity2_z,'k.','MarkerSize',20);
colormap(jet);
%axis off
axis vis3d,       %旋转时避免图形大小发生变化
grid on,
xlabel('x'),ylabel('y'),zlabel('z'), 

n=360/rotate_angle;mmm=moviein(n);			%预设画面矩阵。
helpdlg('开始图像采集，请稍后......','提示信息');pause(3),
for i=1:n
	rotate(h,[1 0 0],rotate_angle);		%是图形绕z轴旋转4度/每次
    %pause(2)
	mmm(:,i)=getframe;			%捕获画面。新版改为mmm(i)=getframe 。
end

ButtonName=questdlg('What is your wish?', ...
                       'Genie Question', ...
                       'replay','roll z','exit Matlab','replay');  
   switch ButtonName,
     case 'replay', 
        movie(mmm,rotate_repeat,rotate_zhen);         %以每秒3帧速度（可调节速度），重复播放4次。 开始会回放一遍
     case 'roll z',
      donghua_z
     case 'exit Matlab',
      quit 
  end