PC机测量平差程序

TrueBASIC1.0语言是BASIC语言的创始人JohnG.Kemeny和ThomasE.Kurtz等人于1985年根据美国国家BASIC标准设计的一个典型的结构化程序设计语言中国科学院软件研究所引进后，对其进行了汉化汉化后的TrueBASIC可以处理汉字字符1988年1月推出了2.03版，这也是TrueBASIC的最终版本TrueBASIC保留了BASIC语言清晰、易懂、易学的特点屏弃了非结构化BASIC版本中陈腐有害的内容是一个适合于大型数值计算具有较高和完整性能的结构化程序设计语言尤其是它的矩阵运算语句MAT非常适合于编制测量平差计算程序TrueBASIC测量平差程序程序段展示了TrueBASIC的矩阵运算语句MAT的魅力平差计算程序变得简单易读为使程序易读，在语句行后输入中文注释在注释文字前加“！”字符实现。TrueBASIC语言编写的测量计算程序，编译并汇集成成扩展名为.exe的可执行程序。可在任意Windows下运行已知数据输入——从用户指定的文本格式文件读入。计算结果输出——存入SU文件,CS文件,SV文件。SU文件——存档，CS文件——CASS展点或上传到全站仪，SV文件——SV300展点。4.2水准网条件平差程序(PG4-2)水准网特点——构成闭、附合环不多，每条水准路线上的未知点较多，间接平差法——法方程阶数较大，占用PC机内存较多。水准网较适合采用条件平差。PG4-2.exe程序信息设计1.点编号从1开始编起，先编已知点，后编未知点，未知点的编号顺序没有要求。某四等水准路线湘1-03-49(1)——国家二等水准点，网内唯一已知点，其余点名为I点的17个点为一级导线点，“龙王桥”和“麻山塘”为新埋设的两个四等水准点，共有19个未知点，点编号如图所示。

水准网条件平差点编号案例1水准网条件平差点编号案例21.点编号从1开始编起，先编已知点，后编未知点，未知点的编号顺序没有要求。2.水准测段观测数据的输入每个水准测段观测数据的输入格式为：起讫点号,测段高差(m),路线长(km)每个水准测段观测数据占一行，6点→5点水准测段输入数据为：6.05,-8.615,0.95876.05——起讫点号，整数位为起点号，小数位为讫点号，根据总点数的不同分两种情形输入：(1)水准网总点数<100，小数位讫点号为两位数，不足两位数前面添0凑足两位数。如6.05的讫点号为5，而6.5的讫点号为50。(2)水准网总点数>100,<1000时，小数位的讫点号保证三位数，不足三位数前面添0凑足。如6.005的讫点号为5，6.05的讫点号为50，而6.5的讫点号为500。水准测段的高差观测方向按实际观测方向定，不要求统一到一个方向，不需要为水准测段编号，程序根据测段的起讫点号自动搜索平差计算所需水准测段数据。3.闭合或附合水准路线条件方程点号列立条件方程时推算高差闭合差的路径，闭合水准路线点号的起讫点号应相同，附合水准路线点号的起讫点号不同，应为已知点。每条水准路线点号数据占一行，水准路线点号数=水准网多余观测数。作用——列条件方程和计算平差后未知点高程，要求第一条水准路线点号的起点点号应为已知点，其余水准路线点号的起点点号不要求。下图水准测段高差观测数=22，未知点数=19，多余观测数22-19=3，3个条件的水准路线点号可以是：1,2,3,4,5,6,16,17,18,11,19,20,15,111,19,20,15,14,13,12,116,7,8,9,10,11,18,17,16,6下图水准测段高差观测数=12，未知点数=3，多余观测数=12-3=9。9个条件可以是下列4个闭合水准路线和5个附合水准路线：1,9,7,17,8,9,72,7,8,25,8,9,51,7,22,8,33,8,44,8,55,9,64.平差值函数水准路线点号平差值函数只能为未知点高程。为计算15,6,17,11四个未知点高程平差值的误差，应给出这些点从网中唯一已知点——1号点推算高程的点号路线：1,151,2,3,4,5,61,2,3,4,5,6,16,171,15,20,19,11为计算7,8,9三个点高程平差值的误差，给出这些点从网中任一已知点推算高程的点号路线：1,72,86,9水准网条件平差已知数据文件案例标题每km全中误差已知点数,未知点数,测段高差数点名已知点高程22个测段高差与路线长条件方程路线点号计算高程平差值中误差推算点号每km高差中数全中误差限差二等——2mm三等——6mm四等——10mm图根——22mm程序PG4-2.exe运行界面水准网条件平差已知数据文件案例4.3三角高程网间接平差程序(PG4-3)1.点编号从1开始编起，先编已知高程点，后编未知点，未知点的编号顺序没有要求。2.测边数据的输入格式一条三角高程测边观测数据的输入格式为：起讫点号,高斯或参考椭球面的边长(m),往测竖角(dms),仪高(m),觇标高(m),返测竖角(dms),仪高(m),觇标高(m)若为单向高差观测，则要求是往测边方向，返测边的竖角,仪高,觇标高均应输0。测边的输入顺序可以是任意顺序。“老虫坡→小院子”测边的输入数据为：1.05,3353.4068,-2.39463,1.52,3.12,2.43515,1.67,5.726.近似高程推算路线与三角形高差闭合差计算已知数据文件尾输入近似高程推算路线点号。目的——计算未知点高程近似值与三角形高差闭合差。为避免三角形高差闭合差重复，可编写多条近似高程推算路线，路线数由程序自动计算，不需要输入。下面为两条近似高程推算路线，要求在第一条路线的前3个点中至少有一个是已知点，且在后面任意一条路线的前3个点中，至少有一个点的点号出现在此前的路线中。1,11,7,-10,-9,-8,4,-6,-2,-3,-5,-11,12,-13,-11,12三角高程网间接平差已知数据文件案例数据项1——标题字符。数据项2——测区平均曲率半径Rm(m)，x坐标加常数数据项3——边长投影高程面高程，边长投影面字符为高斯面，Y，否则为参考椭球面。数据项4——已知点数，未知点数，高差观测测边数。数据项5——点名字符。数据项6——全部点的概略横坐标值y，边长为高斯平面长度时才需输入。数据项7——已知点高程。数据项8——测边高差观测数据，每条测边的往返对向高差观测数据应在一行内输完。起讫点号,边长值(m),往测竖角(ddd.mmss),测站高(m),觇标高(m),返测竖角(ddd.mmss),测站高(m),觇标高(m)单向观测测边，将其编为往测数据，返测竖角、测站高、觇标高均应输0。数据项9——未知点高程推算与三角形高差闭合差计算路线点号。程序PG4-3.exe运行界面4.4光电测距三角高程导线网概算与条件平差程序(PG4-4)1.点编号从1开始编起，先编已知高程点，后编未知点，对未知点编号顺序无要求。2.三角高程导线边的输入顺序与格式

一条三角高程导线边观测数据的输入格式为：起讫点号,往测斜距(m),往测竖角(dms),仪高(m),觇标高(m),返测斜距(m),返测竖角(dms),仪高(m),觇标高(m)“I45→高顶山”三角高程导线边的输入数据为：8.01,1316.6287,3.1318,1.605,1.535,1316.6374,-3.1434,1.55,1.365单向观测边，应是往测边，返测边的“斜距,竖角,仪高,觇标高”均应输0。

三角高程观测边数=57，未知点数也即必要观测数=46，多余观测数也即条件方程数=11。可列出5个闭合三角高程路线,6个附合三角高程路线。点号为：3,13,14,15,16,17,4,35,34,33,32,31,30,33,30,31,32,33,34,35,4,18,19,20,21,5,39,38,37,36,2,11,12,32,36,37,38,39,5,22,23,24,43,42,41,40,22,40,41,42,43,24,50,49,48,47,46,45,44,246,47,48,49,50,24,6,25,26,53,52,51,461,8,9,10,22,11,12,33,13,14,15,16,17,44,18,19,20,21,55,22,23,24,66,25,26,27,28,29,73.平差值函数水准路线点号平差值函数只能为未知点高程。为计算24,26,46三个未知点高程平差值的误差，给出从网中任意已知点推算这些点高程的点号路线：6,246,25,262,44,45,46光电测距三角高程导线网平差已知数据文件数据项1——标题字符。数据项2——测区平均曲率半径Rm,如<6000000,取6371000。数据项3——三角高程测量等级数字,4——四等,5——五等。数据项4——已知点数,未知点数,三角高程导线测边数n。数据项5——点名字符。数据项6——已知点高程。数据项7——三角高程导线边观测数据,格式为：起讫点号,往测斜距(m),往测竖角(dms),仪高(m),觇标高(m),返测斜距(m),返测竖角(dms),仪高(m),觇标高(m)

光电测距三角高程导线网平差已知数据文件数据项8——闭附合路线点号，每环线或附合路线点号占一行，行数应等于网的多余观测数。数据项9——需评定未知点高程中误差的平差值函数路线点号，从已知点号开始，沿网中测边经历的点号至需要评定高程精度的未知点止，图中最后三行为评定24，26，46点高程精度。光电测距三角高程导线网平差已知数据文件程序PG4-4.exe运行界面4.5三角网、边角网概算与按方向附条件间接平差程序(PG4-5)1.点编号从1开始编起，先编已知高程点，后编未知点，对未知点编号顺序无要求。2.近似坐标计算与坐标推算路线点号保证A,B,P三点构成的旋转方向为逆时针方向,实际情况相符，保证三角型闭合差计算。三种情形讨论。(1)有两个以上已知点且已知点间的连线为三角网的观测边“桥东饭店”,“南山”为两个已知点，已知点连线为三角网的一条方向观测边，坐标推算路线的头两个点为这两个已知点，沿坐标推算路线计算一次即可得到全网未知点的真坐标。1,2,-9,-10,-3,-4,2,-5,-6,-7,-8,-9(2)线形锁——坐标推算路线的头一个点为已知点，箭头所示方向的坐标推算路线点号为：1,6,7,5,3,-4,-2(3)一个已知点，一个或多个已知边及已知方位角已知点“观音山”，有两条已知基线边和两个已知方位角。图中箭头所示方向的两条坐标推算路线点号分别为：1,2,4,-3,-5,-6,7,11,12,131,4,8,-7,9,-10,-11数据项1——标题字符。数据项2——等级三角网与边角网测角中误差允许值1→二等,1.8→三等,2.5→四等,5→一级,10→二级。数据项3——是否计算边长的椭球与高斯投影改正?偏心改正?Y或y，计算边长的椭球与高斯投影改正，Y或y，计算偏心改正。数据项4——测区平均曲率半径，横坐标加常数。数据项5——高程异常，边长投影高程面的高程H0。只有当Y时才需要。数据项6——已知点数，未知点数，方向观测数，边长数，已知方位角数。没有测距边或没有已知方位角时，应输0。

数据项7——点名字符，可在一行内输完，也可分行输入。分行输入时，中间行应以“,”结束。数据项8——点的概略高程值，应在一行内全部输完。只有当Y时，才需要输入。数据项9——已知点平面坐标。数据项10——已知方位角数据，格式为：起讫点号，方位角。只有当方位角数≠0时才需要输入。

数据项11——按点号顺序的方向观测值与觇点号每行一个点的全部方向观测值和觇点号，共13个点。格式：方向观测值，觇点号。数据项12——全网测站归心元素和照准点归心元素，13个点。只有当eYT$=“Y”或“y”时才需要输入。数据项13——已知基线边或测距边数据，每条边长的数据占一行，格式为:起讫点号，边长值,权。当边长为已知基线边时，其权可输2000。数据项14——近似坐标推算路线点号每条坐标推算路线点号数据占用一行。程序PG4-5.exe运行界面4.6导线网概算与按方向与边长间接平差程序(PG4-6)1.点编号从1开始编起，先编已知坐标点，后编未知坐标点，未知坐标点的编号顺序没有要求。

2.近似坐标计算与坐标推算路线四种类型：(1)附合导线——坐标推算路线最前面两个点和最尾部两个点为已知坐标点或其坐标已经在该坐标推算路线前的坐标推算路线中计算出。1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19,20,21,22,23,24,25,26,27,28,29,1,25,6,30,31,32,33,34,35,26,27(3)单边定向导线只能计算出坐标增量闭合差，无方位角闭合差，1,2,4,5,6,3(4)无定向导线这类导线两端的两个已知点1,2号点不通视，先在假定坐标系中推算未知点的假定坐标，再将其变换到真坐标系。1,3,4,5,2数据项1——标题字符。数据项2——等级导线网测角中误差允许值1.5→三等,2.5→四等,5→一级,8——二级,12→三级。测距仪标称测距精度，5mm+5ppm→5,5数据项3——是(y)否计算边长的椭球与高斯投影改正，导线边长是(y)否已为水平距离。数据项4——测区平均曲率半径，横坐标的加常数。数据项5——高程异常，边长投影高程面的高程。只有当project$=“Y”时才需要。数据项6——已知点数，未知点数，方向观测数，边长数。湖南望城火电厂大众坡方案一级导线平面网严密平差计算资料5,5,5Y,N6366335,385000000,02,51,116,57数据项7——点名字符。数据项8——点概略高程值，当project$=“Y”

时，才输入。数据项9——已知点的平面坐标。高顶山,高冲,I49,I48,I47,I46,I17,I18,I19,I20,I21,I5,I4,I3,I2,I1,I30,I42,I41,I40,I39,I38,I37,I29,I28,I10,I43,I44,I45,I22,I23,I24,I25,I26,I27,I52,I51,I50,I6,I7,I8,I9,I31,I32,I33,I34,I35,I36,I53,I16,I15,I14,I13156.96,96.22,69.86,58.26,44.37,32.10,35.91,42.796,56.91,62.95,69.31,39.608,30.995,31.442,36.207,35.982,36.201,36.24,35.54,35.363,50.25,69.13,71.559,73.06,81.91,80.465,50.93,55.33,82.78,33.34,36.05,36.98,72.73,66.38,90.11,51.98,56.21,77.19,67.799,60.50,68.03,74.65,35.721,36.05,37.588,30.45,58.10,71.67,46.72,61.78,52.037,54.706,74.313130334.4515,38387901.6828,3134621.62,38384764.47数据项10——导线点方向观测值与觇点号每行输一个点的全部方向观测值和觇点号，每个方向观测的输入格式为：方向观测值，觇点号。0,2,104.4701,290,3,40.0841,10,4,254.0213,20,5,84.5819,30,6,178.4755,40,7,29.1807,30,201.0704,50,8,198.5540,60,9,159.3435,70,10,31.2620,49,155.0625,50,185.121,80,11,194.5230,90,12,185.181,100,13,148.0445,39,187.5427,110,14,227.0234,120,15,167.2806,130,16,88.2648,140,15,189.2322,170,16,181.5724,18,271.0652,430,17,276.2339,190,18,158.1622,200,19,181.3314,210,20,179.5442,220,21,175.5938,230,24,131.0145,48,173.0024,220,23,207.4050,250,24,249.2348,260,25,45.0006,27,129.3753,35,187.1409,38,252.0405,420,28,142.5029,260,29,185.4840,270,1,145.1711,280,31,144.4501,60,30,189.1903,320,31,161.4545,330,32,77.3405,53,95.2619,340,33,264.3524,350,26,253.1406,340,37,143.2806,490,38,199.4501,360,26,201.0819,370,12,144.2736,400,39,220.2800,410,40,169.1126,420,41,174.2731,260,17,153.1808,440,43,214.4150,450,44,221.3906,460,45,82.4244,470,46,153.3130,480,47,195.0608,230,36,163.2038,90,51,284.3656,90,52,175.4900,500,51,270.3850,530,52,171.3514,33数据项11——测距边数据，每条边长数据占一行，格式分为两种情况，hor$=“Y”时为：起讫点号,水平边长值；hor$≠“Y”时为：起讫点号,往测斜距,往测竖角,返测斜距,返测竖角。2.03,1117.3677,-1.2048,1117.3626,1.20143.04,1049.2690,-0.3850,1049.2608,0.37404.05,692.6772,-1.0902,692.6733,1.08325.06,589.5769,-1.1136,589.5736,1.11106.07,684.4627,0.1830,684.4597,-0.18597.08,361.3508,1.0506,361.3500,-1.05388.09,703.9727,1.0834,703.9697,-1.09139.10,617.9871,0.3250,617.9890,-0.331910.11,647.5212,0.3424,647.5207,-0.345511.12,728.5811,-2.2050,728.5770,2.202712.13,721.5765,-0.4122,721.5711,0.404413.14,618.3475,0.0234,618.3465,-0.030614.15,565.5008,0.2833,565.4979,-0.290215.16,578.9502,-0.0220,578.9322,0.021816.17,303.9428,0.0240,303.9429,-0.031517.18,550.3615,0.0026,550.3548,-0.002618.19,387.4466,-0.1648,387.4434,0.161819.20,695.8640,0.0402,695.8654,-0.043420.21,577.9320,1.2844,577.9376,-1.291621.22,405.6676,2.3930,405.6734,-2.395922.23,296.5693,0.2800,296.5823,-0.290023.24,599.3939,0.0826,599.4045,-0.090124.25,1051.0746,0.2804,1051.0805,-0.284025.26,894.8822,-0.0516,894.8884,0.044226.27,538.9529,-3.0832,538.9199,3.070627.28,395.6487,0.3650,395.6519,-0.400028.29,921.3101,1.4229,921.3148,-1.440229.01,1316.6623,3.1318,1316.6675,-3.14346.30,775.1006,0.0552,775.1015,-0.060130.31,444.2571,0.2034,444.2594,-0.211031.32,337.7719,0.0904,337.7780,-0.094432.33,663.8379,3.0512,663.8437,-3.054033.34,777.6143,-0.2826,777.6172,0.280034.35,424.4006,3.1248,424.3883,-3.115635.26,733.0975,-0.4527,733.0913,0.445426.38,474.9799,-0.2450,474.9835,0.241838.37,425.9490,-2.4940,425.9425,2.482437.36,414.8751,-0.3658,414.8828,0.335036.49,327.0196,-0.5740,327.0175,0.540449.09,401.5972,1.2548,401.5951,-1.270012.39,468.8005,3.2543,468.7998,-3.261639.40,337.4099,-1.1346,337.4098,1.131340.41,492.9877,0.5146,492.9919,-0.521841.42,332.7452,1.0757,332.7492,-1.083042.26,577.8875,0.3434,577.8828,-0.345617.43,342.8990,-0.0430,342.9008,0.040043.44,537.7473,0.0150,537.7537,-0.022244.45,337.9014,0.1500,337.9051,-0.153445.46,682.3638,-0.3634,682.3653,0.361246.47,533.5230,2.5812,533.5229,-2.584247.48,660.3458,1.1038,660.3516,-1.110348.23,326.5478,-0.0156,326.5476,0.01269.50,609.0899,0.2707,609.0946,-0.275250.51,619.8298,-0.5430,619.8299,0.535751.52,541.2319,0.1625,541.2295,-0.170452.53,368.8258,3.0112,368.8379,-3.021053.33,491.9328,-0.1128,491.9330,0.1104数据项12——近似坐标推算路线点