|
水準(zhǔn)記錄程序的優(yōu)化v
（作者未知） 2009/5/21
摘要：在水利水電工程中，水準(zhǔn)測(cè)量是常用的測(cè)量工作。PC—E500綜合應(yīng)用及測(cè)量常用程序集（SZJL。BAS III。IV等及等外水準(zhǔn)記錄程序）解決水準(zhǔn)測(cè)量外業(yè)記錄問(wèn)題，提高測(cè)量的工作效益。但實(shí)際的應(yīng)用中本程序存在一些問(wèn)，在工作中造成不必要的失誤和數(shù)據(jù)整理計(jì)算的麻煩，通過(guò)優(yōu)化水準(zhǔn)記錄程序，其效果顯著。
關(guān)鍵詞：水準(zhǔn)測(cè)量，可編數(shù)據(jù)文件
一，問(wèn)題的提出及對(duì)程序分析
在實(shí)際水準(zhǔn)測(cè)量工作中，外業(yè)記錄是較重要的，在PC—E500綜合應(yīng)用及測(cè)量常用程序集（SZJL。BAS III。IV等及等外水準(zhǔn)記錄程序）中，因存在計(jì)算機(jī)程序重新啟動(dòng)記錄數(shù)據(jù)丟失，記錄轉(zhuǎn)點(diǎn)名或記錄數(shù)據(jù)受數(shù)組限制，記錄轉(zhuǎn)點(diǎn)名容易無(wú)記或記錯(cuò)無(wú)法修改，測(cè)段記錄數(shù)據(jù)無(wú)法整理的問(wèn)題。通過(guò)對(duì)PC—E500綜合應(yīng)用及測(cè)量常用程序集（SZJL。BAS III。IV等及等外水準(zhǔn)記錄程序）的分析，在程序中取用測(cè)段記錄數(shù)據(jù)組。外業(yè)記錄中記錄轉(zhuǎn)點(diǎn)采用先記錄轉(zhuǎn)點(diǎn)名再記錄觀測(cè)數(shù)據(jù)的順序，測(cè)段記錄數(shù)據(jù)采用測(cè)段記錄完整后存數(shù)。測(cè)段記錄數(shù)據(jù)文件無(wú)法查閱，整理。因此就必需優(yōu)化水準(zhǔn)記錄程序。
二，水準(zhǔn)記錄程序的優(yōu)化及程序清單
水準(zhǔn)記錄程序優(yōu)化中設(shè)置測(cè)段記錄數(shù)據(jù)文件名同名而不能運(yùn)行，取消測(cè)段記錄數(shù)據(jù)組，用數(shù)據(jù)文件代替數(shù)組。測(cè)段記錄數(shù)據(jù)采用測(cè)站記錄完成后存數(shù)，避免記錄數(shù)據(jù)丟失。改變作業(yè)順序采用先記錄觀測(cè)數(shù)據(jù)再記錄轉(zhuǎn)點(diǎn)名順序，便于作業(yè)過(guò)程報(bào)記轉(zhuǎn)點(diǎn)名，無(wú)轉(zhuǎn)點(diǎn)名時(shí)程序自動(dòng)默認(rèn)為測(cè)站數(shù)。測(cè)站記錄數(shù)據(jù)文件采用可以查閱，整理的可編數(shù)據(jù)文件，可以進(jìn)行分段，合并生成新數(shù)據(jù)文件，可以在程序中直接讀取，重新計(jì)算，得到只有轉(zhuǎn)點(diǎn)名的測(cè)段成果數(shù)據(jù)文件。測(cè)段成果數(shù)據(jù)輸出采用附加測(cè)段成果平差后的高程數(shù)據(jù)格式。
數(shù)據(jù)存儲(chǔ)
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
數(shù)據(jù)讀取
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,SB（未完，下一頁(yè)）
|