getfivepoint.m

这是我们组参加2008年全国大学生数学建模时A题(数码相机定位)所用到得程序

clear   %求五个圆的圆心的坐标
clc
M=getM;
Object=[12,12;42,12;112,12;112,112;12,112];
result1=[];
result2=[];
for i=1:5
    [pointFirst,pointLast]=getImagePoint(M,Object(i,1),Object(i,2));
    result1=[result1;pointFirst];
    result2=[result2;pointLast];
end
z=1577/3.78;
disp('A、B、C、D、E圆的圆心在像上的坐标分别为：(以像素个数为单位)')
disp(result1);
disp('A、B、C、D、E圆的圆心在空间坐标系的坐标分别为：(以毫米为单位)')
disp([result2,z*ones(5,1)]);