tsai经典两步法 很不错的

可以直接使用！减少你的编程！总之，还是很好用的东西！

clc
clear
x=load（‘M.txt‘）;
X=load（‘Dscfl3.txt‘）;
Xf=X（:1）;
Yf=X（:2）;
xw=x（:1）;
yw=x（:2）;
[MN]=size（x）;
zw=zeros（M1）;
Ncx=1;
Nfx=1;
Cx=785.835;
Cy=642.75;
dx=0.0044708;
dy=0.0044708;
sx=1;
[R T f k1] = Tsai（Xf Yf xw yw zw Ncx Nfx dx dy Cx Cy sx）

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

     文件      13805  2004-06-14 09:04  Tsai\DSCFL3.txt

     文件      11683  2004-07-18 09:33  Tsai\faq.txt

     文件      13220  2004-05-30 14:24  Tsai\M.txt

     文件        678  2004-08-05 10:57  Tsai\read me.txt

     文件        278  2004-11-09 23:00  Tsai\testData.asv

     文件        283  2004-08-05 10:54  Tsai\testData.m

     文件       7461  2004-07-13 19:10  Tsai\Tsai.m

     文件       1098  2004-07-13 19:07  Tsai\Tsai_8b.m

     目录          0  2008-08-21 09:58  Tsai

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

                48506                    9