摘要：
    在水利水電工程中，水準測量是常用的測量工作。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 
             
                 
            四，結論
                
    各測段記錄數據文件可通過分段，合并或對復測段進行記錄數據替換整理成一條線路記錄數據文件。可以在程序中直接讀取，重新計算，得到只有轉點名的一條線路成果數據文件，進行成果平差輸出。水準記錄程序通過優化，在水利水電工程中應用其效果顯著，效益明顯提高。