for i=1:34,
   i
   load x;
   eval(['load c' num2str(i)]);
   eval(['cm=c' num2str(i) ';clear c' num2str(i)]);
   q=cpolspc(30,x,cm);
   s=['No.' num2str(i)];
   gtext(s);
   if i==1
      gtext('n04_g series');      %Title
   end
   M(:,i)=getframe(gcf);
   close;
end

clear cm q i s ans