function exm1074_1()	
%exm1074_1.m	連續(xù)改變相機(jī)位置，產(chǎn)生貫穿地球的效果
earth_zzy(0)	% 調(diào)用函數(shù)文件，產(chǎn)生三維地球圖形。						 	 <2>
set(gca,'CameraViewAngleMode','manual')									%<3>
pos=get(gca,'CameraPosition');				%獲取相機(jī)初始位置	
tar=get(gca,'CameraTarget');				%獲取相機(jī)目標(biāo)位置
kk=(0:2:40)/15;nk=length(kk);												%<6>
for i=1:nk-1
   newpos=pos-kk(i)*(pos-tar);				%計(jì)算新位置					 <8>
   set(gca,'CameraPosition',newpos)		%設(shè)置相機(jī)新位置				 <9>
   drawnow																		%<10>
end