vanishing-points 灭点标定

灭点标定，利用拍摄图像的两组灭点，求解摄像机标定的焦距、旋转矩阵、平移向量

function cross_point=linecross（k1b1k2b2）
x=[];
y=[];
if k1==k2&b1==b2
disp（‘all the line is cross_point‘）;
elseif k1==k2&b1~=b2
disp（‘there is no cross_point‘）;
else
x=（b2-b1）/（k1-k2）;
y=k1*x+b1;
cross_point=[x y];
disp（‘The cross-point is‘）;
disp（cross_point）;
end

 属性            大小     日期    时间   名称
----------- ---------  ---------- -----  ----

     文件         87  2011-03-23 21:03  vanishing points\camera coordinate.txt

     文件        281  2011-03-23 22:30  vanishing points\cross_point.m

     文件       1852  2011-04-12 21:40  vanishing points\vashingpointscalibration.asv

     文件       1852  2011-04-12 21:56  vanishing points\vashingpointscalibration.m

     文件         84  2011-03-23 21:04  vanishing points\world coordinate.txt

     目录          0  2011-04-27 09:20  vanishing points

----------- ---------  ---------- -----  ----

                 4156                    6