中建007 发表于 2017-5-19 11:26

请教高手级别老师编制解算三元二次方程组的VBA程序

本帖最后由 中建007 于 2017-5-19 17:36 编辑

第一组(计算首中心三维坐标)(X3-X首)2+(Y3-Y首)2+(Z3-Z首)2=L32(空间两点距离)(X6-X首)2+(Y6-Y首)2+(Z6-Z首)2=L62(空间两点距离)(X9-X首)2+(Y9-Y首)2+(Z9-Z首)2=L92(空间两点距离)第二组(计算尾中心三维坐标)(X3-X尾)2+(Y3-Y尾)2+(Z3-Z尾)2=D32(空间两点距离)(X6-X尾)2+(Y6-Y尾)2+(Z6-Z尾)2=D62(空间两点距离)(X9-X尾)2+(Y9-Y尾)2+(Z9-Z尾)2=D92(空间两点距离)三个方程三个未知量,可以解算出方程组,得出首中心和尾中心的实际三维坐标。

特征点相对坐标位置关系
X(m)Y(m)Z(m)L(m)D(m)
1-7.4030.872-4.9198.9314.996
2-7.3993.832-3.2118.9304.999
3-7.398508.9295.000
4-7.4023.8313.2118.9324.999
5-7.4010.8714.9198.9294.996
6-7.397-2.5034.3288.9285.000
7-7.398-4.7011.7118.9315.003
8-7.403-4.701-1.7098.9345.002
9-7.402-2.499-4.338.9324.999

页: [1]
查看完整版本: 请教高手级别老师编制解算三元二次方程组的VBA程序