布尔沙模型求七参数

利用布尔沙模型求七参数 ，里面包含有 matlab源程序代码

function [X0Y0Z0uvwk]=bursa7para（oldXYZnewXYZ）
%布尔沙模型求七参数
%输入参数：oldXYZnewXYZ均为空间直角坐标
%输出7参数：3个平移参数，3个旋转参数，1个尺度参数
X1=oldXYZ（:1）;
Y1=oldXYZ（:2）;
Z1=oldXYZ（:3）;
X2=newXYZ（:1）;
Y2=newXYZ（:2）;
Z2=newXYZ（:3）;
m=length（oldXYZ）;%重合点个数
if（m<3）
    return;
end
P=eye（3*m）;
B=[ones（m1） zeros（m1） zeros（m1） X1 zeros（m1） -Z1 Y1;
   zeros（m1） ones（m1） zeros（m1） Y1 Z1 zeros（m1） -X1;
   zeros（m1） zeros（m1） ones（m1） Z1 -Y1 X1 zeros（m1）];
L=[X2;Y2;Z2];
N=B‘*P*B;
%M=B‘*P*L;
dx=（inv（N））*B‘*P*L;
X0=dx（11）;
Y0=dx（21）;
Z0=dx（31）;
u=dx（51）/dx（41）;
v=dx（61）/dx（41）;
w=dx（71）/dx（41）;
k=dx（41）-1;
end

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

     文件        687  2017-03-31 19:55  布尔沙求七参数\bursa7para.asv

     文件        706  2017-03-31 19:56  布尔沙求七参数\bursa7para.m

     文件        532  2017-03-31 20:00  布尔沙求七参数\my7para.asv

     文件        545  2017-03-31 20:04  布尔沙求七参数\my7para.m

     文件        150  2017-03-31 19:03  布尔沙求七参数\newXYZ.txt

     文件        150  2017-03-31 18:59  布尔沙求七参数\oldXYZ.txt

     文件        164  2017-03-31 20:05  布尔沙求七参数\result.txt

     文件     153857  2017-03-31 12:19  布尔沙求七参数\基于MATLAB的布尔莎模型七参数解算实现_朱小美.caj

     文件        134  2017-03-31 21:38  布尔沙求七参数\说明.txt

     目录          0  2017-09-17 18:54  布尔沙求七参数

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

               156925                    10