摄影测量框标坐标系与像平面坐标系的转换

clear
[filename pathname] = uigetfile（{‘*.txt‘;‘*.*‘}‘选择图像文件‘）;
if isequal（filename0） || isequal（pathname0）
       msgbox（‘用户取消输入，程序被迫终止。‘‘错误‘‘error‘）;
       break;
end
filename=fullfile（pathname filename）;
clear pathname
fid = fopen（filename‘r‘）;
[X1count] =fscanf（fid ‘%f‘ [16inf]）;
[X2count]=fscanf（fid ‘\n%f‘ [2inf]）;
[X3count]=fscanf（fid ‘\n%f‘ [2inf]）;
fclose（fid）;
[mn]=size（X1）;
for i=1:2:m
    X1（i1）=X1（i1）+0.004;
    X1（i+11）=X1（i+11）+0.008;
 end   
for i=1:2:m
A（i1）=1;
A（i+12）=1;
A（i+11）=0;
A（i2）=0;
A（i+13）=0;
A（i4）=0;
A（i+15）=0;
A（i6）=0;
A（i+17）=0;
A（i8）=0;
end
j=1;
for i=1:2:m
A（i3）=X2（1j）;
A（i+14）=X2（1j）;
A（i5）=X2