VB源码,图形处理,图形绘制一个VB测绘程序的示例源码文件,条件平差求解中点多边形VB测绘程序编制实习报告,界面设计方面:左侧是测角网中点多边形示意图。右侧有两个Frame框,左侧已知数据,右侧计算结果。
功能运算方面:功能设计在已知数据面板上输入已知坐标值,A、B两点的X、Y坐标,还有a1,a2,a3,b1,b2,b3,c1,c2,c3角度观测值,点击下面的按钮条件平差,即可进行平差,在计算结果处显示C、D点坐标和a1,a2,a3,b1,b2,b3,c1,c2,c3角度平差值。
主要使用条件平差算法来实现具体的代码。主要用到的数据类型为双精度Double符号为#,整形Integer符号%angle(i)为一一维数组,范围1~9,用途:依次赋值a1,a2,a3,b1,b2,b3,c1,c2,c3角度的弧度值a1,a2,a3等为角度值,小数点前为度,小数点后两位分,倒数两位为秒以上为关键代码改动,按照测角网条件平差的方法对条件方程、法方程、系数阵等进行了修正。其他函数为公共模块调用,在这里代码就不粘了。