5800计算器程序

(三、四等水准测量现场计算程序)

三、四等水准水准测量是新建项目开工复测必不可少工作之一，因现场计算繁琐，直接影响工作效率，特此编程序交流学习

LbI A:o->E:o->F:H->N:I->O:Norm 1:4787->U:4687->V:”D”?Q:”L”?W:”H”?S:”-1->4787,1->4

687”?X<┘ (o为零)

LbI o:”A12B34C5J6X7Z8”?Z:Cls:Z<1 Or Z>8=>Goto o:Z=1=>Goto 1: Z=2=>Goto 2: Z=3=>Goto 3:

Z=4=>Goto 4: Int(Z)=5=>Goto 7: Z=6=>Goto 8: Z=7=>Goto 9: Z=8=>Goto A<┘ LbI 1:”A1”?A:Cls:”A2”?B:o.1(A-B)->E:2->Z:Goto 5<┘

LbI 2:Locate5,1,o.5(A+B:”A3”?H:H+U->Z:X=1=>H+V->Z:Cls:Locate5,1,Z:”A4”?J:H+U-J->N:X=

1=>H+V-J->N:3->Z:Goto 6<┘

LbI 3:”B1”?C:Cls:”B2”?D:o.1(C-D)->F:4->Z:Goto 5<┘

LbI 4:Locate5,1,o.5(C+D:”B3”?I:I+V->Z:X=1=>I+U->Z:Cls:Locate5,1,Z:”B4”?K:I+V-K->O:X=

1=>I+U-K->O:5->Z:Goto 6<┘

LbI 5:Cls:If E≠o:Then”S1=“:Locate4,1,E:IfEnd:If F≠o:Then E=o=>““:Locate9,1,”S2=“:

Locate 12,1,F:IfEnd:If E≠o And F≠o:Then E-F->G:”D1=“:Locate 4,2,G: Locate 9,2,”D2=“:Locate 12,2,G+Q:IfEnd:Goto o<┘

LbI 6:Cls:H-I->L:J-K->M:L-M+1oo->P:X=1=>P-2oo->P: If N≠H: Then “A=“:Locate 3,1,N: If

I≠O: Then “h1=“:Locate 4,2,L:IfEnd: IfEnd: If I≠O: Then H=N=>““: Locate 7,1”B=“:Locate 9,1,O: If H≠N: Then Locate 9,2,”h2=“:Locate 12,2,M:IfEnd:IfEnd: If H≠N And I≠O:Then Locate 13,1,”C=“:Locate 15,1,P:IfEnd:Goto o<┘