图形图象

开发平台：
Matlab

projandadj_4.m：源码内容
							f=f1;
for w=1:width    
    for h=1:height      
    y1=round(sqrt(f^2/((w-width_o)^2+f^2))*(h-height_o))+height_o;     
    x1=round(sqrt(f^2/((w-width_o)^2+f^2))*(w-width_o))+width_o;         
     dest1(y1,x1,1)=im1(h,w,1);      
     dest1(y1,x1,2)=im1(h,w,2);     
     dest1(y1,x1,3)=im1(h,w,3);    
     dest2(y1,x1,1)=im2(h,w,1);      
     dest2(y1,x1,2)=im2(h,w,2);     
     dest2(y1,x1,3)=im2(h,w,3);
     dest3(y1,x1,1)=im3(h,w,1);      
     dest3(y1,x1,2)=im3(h,w,2);     
     dest3(y1,x1,3)=im3(h,w,3);
     dest4(y1,x1,1)=im4(h,w,1);      
     dest4(y1,x1,2)=im4(h,w,2);     
     dest4(y1,x1,3)=im4(h,w,3);
     dest5(y1,x1,1)=im5(h,w,1);      
     dest5(y1,x1,2)=im5(h,w,2);     
     dest5(y1,x1,3)=im5(h,w,3);
     dest6(y1,x1,1)=im6(h,w,1);      
     dest6(y1,x1,2)=im6(h,w,2);     
     dest6(y1,x1,3)=im6(h,w,3);    
     dest7(y1,x1,1)=im7(h,w,1);      
     dest7(y1,x1,2)=im7(h,w,2);     
     dest7(y1,x1,3)=im7(h,w,3);
     dest8(y1,x1,1)=im8(h,w,1);      
     dest8(y1,x1,2)=im8(h,w,2);     
     dest8(y1,x1,3)=im8(h,w,3);
     dest9(y1,x1,1)=im9(h,w,1);      
     dest9(y1,x1,2)=im9(h,w,2);     
     dest9(y1,x1,3)=im9(h,w,3);
     dest10(y1,x1,1)=im10(h,w,1);      
     dest10(y1,x1,2)=im10(h,w,2);     
     dest10(y1,x1,3)=im10(h,w,3);
     dest11(y1,x1,1)=im11(h,w,1);      
     dest11(y1,x1,2)=im11(h,w,2);     
     dest11(y1,x1,3)=im11(h,w,3);
     dest12(y1,x1,1)=im12(h,w,1);      
     dest12(y1,x1,2)=im12(h,w,2);     
     dest12(y1,x1,3)=im12(h,w,3);
     if w==1 
          if h==1
             w_1 =x1;
             h_1 =y1;
          end
          if h==height
              h_2=y1;
          end
     end
     if w==width
          if h==1
             w_2 =x1;
          end    
     end    
   end;
end;
I1=imcrop(dest1,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I2=imcrop(dest2,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I3=imcrop(dest3,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I4=imcrop(dest4,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I5=imcrop(dest5,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I6=imcrop(dest6,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I7=imcrop(dest7,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I8=imcrop(dest8,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I9=imcrop(dest9,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I10=imcrop(dest10,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I11=imcrop(dest11,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
I12=imcrop(dest12,[w_1,h_1,(w_2-w_1),(h_2-h_1)]);
 imwrite(I1,'I1.jpg');
 imwrite(I2,'I2.jpg');
 imwrite(I3,'I3.jpg');
 imwrite(I4,'I4.jpg');
 imwrite(I5,'I5.jpg');
 imwrite(I6,'I6.jpg');
 imwrite(I7,'I7.jpg');
 imwrite(I8,'I8.jpg');
 imwrite(I9,'I9.jpg');
 imwrite(I10,'I10.jpg');
 imwrite(I11,'I11.jpg');
 imwrite(I12,'I12.jpg');

						