4800三四等水准测量程序

本资料包含doc文件1个，下载需要20积分

4800三四等水准测量程序
杜保义 2012年2月
Lbl 0:A，B，C:A"A":B"B":C"C":Goto 1 ↓
Lbl 1 :Abs(4737-KB-C) ≤3＞Goto 2:≠＞Goto 0⊿↓
Lbl 2:D，E，F:D"D":E"E":F"F":Goto 3↓
Lbl 3 :Abs(4737KE-F) ≤3＞Goto 4:≠＞Goto 2⊿↓
Lbl 4 :K＞0＞M100: Goto 5≠＞:K＜0＞M-100:Goto 5⊿↓
Lbl 5 :GGAD:II1:J(((B-E)(C-FM))÷2)J:K-K:END”: Goto 0↓