|
水準記錄程序的優(yōu)化v
（作者未知） 2009/5/21
（接上頁）I,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
數(shù)據(jù)輸出
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
三，水準記錄文件格式及成果數(shù)據(jù)輸出格式
四，結(jié)論
各測段記錄數(shù)據(jù)文件可通過分段，合并或?qū)蜏y段進行記錄數(shù)據(jù)替換整理成一條線路記錄數(shù)據(jù)文件�？梢栽诔绦蛑兄苯幼x取，重新計算，得到只有轉(zhuǎn)點名的一條線路成果數(shù)據(jù)文件，進行成果平差輸出。水準記錄程序通過優(yōu)化，在水利水電工程中應用其效果顯著，效益明顯提高。
|