fly_zzy.m

这是本人收集的一些程序源代码

%fly_zzy.m		连续改变相机位置，产生贯穿地球的效果
earth_zzy(0)	% 调用函数文件，产生三维地球图形。							<2>
set(gca,'CameraViewAngleMode','manual')									%<3>
pos=get(gca,'CameraPosition');				%获取相机初始位置	
tar=get(gca,'CameraTarget');				%获取相机目标位置
kk=(0:2:40)/15;nk=length(kk);												%<6>
for i=1:nk-1
   newpos=pos-kk(i)*(pos-tar);				%计算新位置					<8>
   set(gca,'CameraPosition',newpos)		%设置相机新位置				<9>
   drawnow																		%<10>
end