clear
zen=[70,75,80,82,84,85,86,87,88,89,89.5];
for i=1:length(zen)
 sun(zen(i));
 M(i)=getframe;
end

%movie(M,1,1)