摘要：
在水利水电工程中，水准测量是常用的测量工作。PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）解决水准测量外业记录问题，提高测量的工作效益。但实际的应用中本程序存在一些问题，在工作中造成不必要的失误和数据整理计算的麻烦，通过优化水准记录程序，其效果显著。
关键词：水准测量，可编数据文件
一，问题的提出及对程序分析
在实际水准测量工作中，外业记录是较重要的，在PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）中，因存在计算机程序重新启动记录数据丟失，记录转点名或记录数据受数组限制，记录转点名容易无记或记错无法修改，测段记录数据无法整理的问题。通过对PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）的分析，在程序中取用测段记录数据组。外业记录中记录转点采用先记录转点名再记录观测数据的顺序，测段记录数据采用测段记录完整后存数。测段记录数据文件无法查阅，整理。因此就必需优化水准记录程序。
二，水准记录程序的优化及程序清单
水准记录程序优化中设置测段记录数据文件名同名而不能运行，取消测段记录数据组，用数据文件代替数组。测段记录数据采用测站记录完成后存数，避免记录数据丟失。改变作业顺序采用先记录观测数据再记录转点名顺序，便于作业过程报记转点名，无转点名时程序自动默认为测站数。测站记录数据文件采用可以查阅，整理的可编数据文件，可以进行分段，合并生成新数据文件，可以在程序中直接读取，重新计算，得到只有转点名的测段成果数据文件。测段成果数据输出采用附加测段成果平差后的高程数据格式。
数据存储
140 ON ERROR GOTO 155
145 CLS :INPUT "Name=";N$：LLL$="S1:"+N$+".JL"
150 OPEN LLL$ FOR INPUT AS #10:CLOSE #10:GOTO 140
155 ON ERROR GOTO 0
160 INPUT "Date=";Y$,"KA=";KA,"KB=";KB:KA1=KA:KB1=KB:F$="W"
165 ABC=0:MM=10
170 OPEN LLL$ FOR OUTPUT AS #1
175 PRINT #1,MM;",";N$;",";Y$;",";DJ$;",";YQ$:MM=MM+2
180 PRINT
#1,MM;",";XC1;",";XC2;",";XC3;",";XC4;",";XC5;",";KA1;",";KB1:MM=MM+2
185 CLOSE #1
190 I=0:SA=0:SB=0:H=0
195 CLS :GOTO 215
200 OPEN LLL$ FOR APPEND AS #1
205 PRINT
#1,MM;",";SAI;",";SBI;",";ABI;",";ARI;",";BBI;",";BRI:MM=MM+2
210 CLOSE #1
215 N=I:I=I+1
220 CLS :NB$="*"+STR$ (N)：PAUSE "("+STR$ N+"----Name=)";:INPUT NB$
225 IF MID$ (NB$,1,1)<>"*"THEN GOSUB *NA
230 OPEN LLL$ FOR APPEND AS #1
235 PRINT #1,MM;",";NB$:MM=MM+2
240 CLOSE #1
数据读取
1550 *P77:INPUT "(File.DAT----Name?)";N$：LLL$="S1:"+N$+".JL"
1555 SA=0:SB=0:H=0:I=0:ABC=0
1560 OPEN LLL$ FOR INPUT AS #10
1565 INPUT #10,MM,N$,Y$,DJ$,YQ$
1570 INPUT #10,MM,XC1,XC2,XC3,XC4,XC5,KA1,KB1
1575 GOTO 1610
1580 IF EOF (10)THEN END
1585 INPUT #10,MM,SAI,SBI,ABI,ARI,BBI,BRI
1590 IF N/2=INT (N/2)THEN KA=KA1:KB=KB1 ELSE KA=KB1:KB=KA1
1595 HB=ABI-BBI:HR=ARI-BRI-KA+KB
1600 VH=HB-HR:IF ABS VH>XC5 THEN PRINT "VH>XC5"：PRINT "I=";I:END
1605 H=H+(HB+HR)/2:SA=SA+SAI:SB=SB+SBI：DS=SA-SB:S=SA+SB
1610 N=I:I=I+1
1615 INPUT #10,MM,NB$
1620 IF MID$ (NB$,1,1)<>"*"THEN GOSUB *NA
1625 GOTO 1580
1630 END
数据输出
4005 *LP:WAIT ：PRINT "N Name h(m) s(m) V
HH":U$="&&&&&&&&&"
4006 OPEN LCG$ FOR INPUT AS #20
4008 IF EOF (20)THEN END
4009 INPUT #20,MM,NA0$,NA1$,NA2$,NA3$
4010 VVV=INT ((VAL NA0$*VV)*10000+0.5)/10000:HH=H0+VAL NA2$+VVV
4015 PRINT USING U$;NA0$; NA1$; NA2$; NA3$; VVV; HH
4012 GOTO408
三，水准记录文件格式及成果数据输出格式
水准记录文件格式
10 ,LIN-4,2000.0913,IV,S3
12 , 100 , 3 , 3 , 10 , 5 , 4787 , 4687
14 ,IV-29
16, 40.5 , 40.6 , 639 , 5426 , 731 , 5418
18 ,* 1
20, 20.5 , 20.6 , 1398 , 6085 , 2057 , 6845
22 ,IV-30
24, 20.6 , 20.8 , 2072 , 6857 , 1508 , 6196
26 ,* 3
28, 60.6 , 60.8 , 240 , 4928 , 2637 , 7423
30 ,* 4
32, 20.5 , 20.2 , 291 , 5077 , 1999 , 6686
34 ,* 5
36, 80.8 , 80.6 , 1147 , 5834 , 54 , 4840
38 ,* 6
40, 50.5 , 50.2 , 1888 , 6674 , 1326 , 6014
42 ,IV-31
成果数据输出格式
N Name h(m) s(m) V HH
0 IV-71 0 0 0 13.4713
3 0+590 -3.9565 300 -0.0003 9.5145
4 0+500 -4.7245 390 -0.0004 8.7464
5 0+400 -4.1115 490 -0.0005 9.3593
6 0+300 -4.2735 590 -0.0006 9.1972
7 0+200 -4.412 690 -0.0007 9.0586
8 0+100 -3.8935 790 -0.0008 9.577
9 0+000 -2.78 890 -0.0009 10.6904
10 IV-70 -2.8595 900 -0.001 10.6108
11 0+050 -4.11 950 -0.0011 9.3602
12 0+150 -4.092 1050 -0.0012 9.3781
13 0+250 -4.3855 1150 -0.0013 9.0845
14 0+350 -4.115 1250 -0.0014 9.3549
15 0+450 -4.3965 1350 -0.0015 9.0733
16 0+550 -4.8635 1450 -0.0016 8.6062
20 IV-71 0.002 1800 -0.002 13.4713
四，结论
各测段记录数据文件可通过分段，合并或对复测段进行记录数据替换整理成一条线路记录数据文件。可以在程序中直接读取，重新计算，得到只有转点名的一条线路成果数据文件，进行成果平差输出。水准记录程序通过优化，在水利水电工程中应用其效果显著，效益明显提高。
