水准记录程序的优化v
摘要：在水利水电工程中，水准测量是常用的测量工作。PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）解决水准测量外业记录问题，提高测量的工作效益。但实际的应用中本程序存在一些问，在工作中造成不必要的失误和数据整理计算的麻烦，通过优化水准记录程序，其效果显著。
关键词：水准测量，可编数据文件
一，问题的提出及对程序分析
在实际水准测量工作中，外业记录是较重要的，在PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）中，因存在计算机程序重新启动记录数据丟失，记录转点名或记录数据受数组限制，记录转点名容易无记或记错无法修改，测段记录数据无法整理的问题。通过对PC—E500综合应用及测量常用程序集（SZJL。BAS III。IV等及等外水准记录程序）的分析，在程序中取用测段记录数据组。外业记录中记录转点采用先记录转点名再记录观测数据的顺序，测段记录数据采用测段记录完整后存数。测段记录数据文件无法查阅，整理。因此就必需优化水准记录程序。
二，水准记录程序的优化及程序清单
水准记录程序优化中设置测段记录数据文件名同名而不能运行，取消测段记录数据组，用数据文件代替数组。测段记录数据采用测站记录完成后存数，避免记录数据丟失。改变作业顺序采用先记录观测数据再记录转点名顺序，便于作业过程报记转点名，无转点名时程序自动默认为测站数。测站记录数据文件采用可以查阅，整理的可编数据文件，可以进行分段，合并生成新数据文件，可以在程序中直接读取，重新计算，得到只有转点名的测段成果数据文件。测段成果数据输出采用附加测段成果平差后的高程数据格式。
数据存储
231 OPEN LLL$ FOR OUTPUT AS #1
232 PRINT #1,MM;",";N$;",";Y$;",";DJ$;",";YQ$:MM=MM+2
234 PRINT #1,MM;",";XC1;",";XC2;",";XC3;",";XC4;",";XC5;",";KA1;",";
KB1:MM=MM+2
236 CLOSE #1
240 I=0:SA=0:SB=0:H=0:GOTO 271
250 CLS
260 OPEN LLL$ FOR APPEND AS #1
262 PRINT #1,MM;",";SAI;",";SBI;",";ABI;",";ARI;",";BBI;",";BRI:MM=MM+2
266 CLOSE #1
269 N=I:I=I+1
271 CLS :NB$="*"+STR$ (N):PAUSE "("+STR$ N+"----Name=)";:INPUT NB$
272 IF MID$ (NB$,1,1)﹤﹥"*"THEN GOSUB *NA
273 OPEN LLL$ FOR APPEND AS #1
274 PRINT #1,MM;",";NB$:MM=MM+2
275 CLOSE #1
数据读取
6900 *PF77:INPUT "(File.DAT----Name?)";N$:LLL$="S1:"+N$+".JL"
6905 SA=0：SB=0：H=0：I=0
6910 OPEN LLL$ FOR INPUT AS #10
6920 INPUT #10,MM,N$,Y$,DJ$,YQ$
6922 INPUT #10,MM,XC1,XC2,XC3,XC4,XC5,KA1,KB1
6930 GOTO 6968
6940 N=I:I=I+1
6942 IF EOF (10)THEN END
6950 INPUT #10,MM,SAI,SBI,ABI,ARI,BBI,BRI
6960 IF N/2=INT (N/2)THEN KA=KA1:KB=KB1 ELSE KA=KB1:KB=KA1
6964 HB=ABI-BBI:HR=ARI-BRI-KA+KB
6965 VH=HB-HR:IF ABS VH﹥XC5 THEN PRINT "VH﹥XC5":PRINT "I=";I:END
6966 H=H+(HB+HR)/2:SA=SA+SAI:SB=SB+SBI:DS=SA-SB:S=SA+SB
6968 INPUT #10,MM,NB$
6970 IF MID$ (NB$,1,1)﹤﹥"*"THEN GOSUB *NA
6980 GOTO 6940
数据输出
4000 *PC:INPUT "H0= ";H0
4001 INPUT "DV= ";DV:INPUT "NN= ";NN:VV=DV/NN
4005 *LP:WAIT :PRINT "N Name h(m) s(m) V HH":U$="&&&&&&&&&"
4006 OPEN LCG$ FOR INPUT AS #20
4008 IF EOF (10)THEN END
4009 INPUT #20,MM,NA0$,NA1$,NA2$,NA3$
4010 VVV=INT ((VAL NA0$*VV)*10000+0.5)/10000:PRINT USING U$;NA0$;:PRINT USING U$;NA1$;:PRINT USING U$;NA2$;:PRINT USING U$;NA3$;:PRINT VVV;:PRINT H0+VAL NA2$+VVV
4012 GOTO408
三，水准记录文件格式及成果数据输出格式
四，结论
各测段记录数据文件可通过分段，合并或对复测段进行记录数据替换整理成一条线路记录数据文件。可以在程序中直接读取，重新计算，得到只有转点名的一条线路成果数据文件，进行成果平差输出。水准记录程序通过优化，在水利水电工程中应用其效果显著，效益明显提高。
