三、四等水准测量程序

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<┘

LbI 7: (L+M-1oo)/2->R:X=1=>R+1oo->R:“A1=“:Locate 4,1,A:Locate 9,1,”B1=“:Locate12,1,C:”

A2=“:Locate4,2,B:Locate9,2,”B2=“:Locate12,2,D:”S1=“:Locate 4,3,E:Locate 9,3,”S2=“:Locate 12,3,F:”D1=“:Locate 4,4,G: Locate 9,4,”D2=“:Locate 12,4,Q+G▲Cls: “A3=“:Locate 4,1,H:Locate 9,1,”A4=“: Locate12,1,J:”B3=“:Locate 4,2,I:Locate9,2,”B4=“:Locate12,2,K:”h1=“:Locate4,3,L:Locate9,3,”h2=“:Locate12,3,M:”kL=“:Locate 4,4,W+E+F▲Cls: ”A=“:Locate3,1,N:Locate7,1, ”B=“: Locate 9,1,O:Locate 13,1,”C=“:Locate15,1,P:” WANG KE SONG”:”D1=”:Locate 4,1,G:Locate 9,1,”D2=”,Locate12,1,Q+G:”KL=”:Locate 4,2,W+E+F:”hh=”:Locate 4,3,1mR:”HH=“:Locate 4,4,1m(S+R:6->Z:Goto o<┘

LbI 8:1->Z: -X->X:Q+G->Q:W+E+F->W:S+R->S:o->E:o->F:H->N:I->O:Goto o<┘

LbI 9:”DUAN 1”?A:A+U->L:X=1=>A+V->L:Cls:Locate13,1,L:”DUAN 2”?B:Cls:Locate13,1,A+R:”

CHANG 1”?C:B+R-1oo->L:X=1=>L+2oo->L:Cls:Locate13,1,L:”CHANG 2”?D:o.5(C-A+D-B)+5o->M:X=1=>M-1oo->M:Cls:”h1=“:Locate4,1,R:”h2=“:Locate4,2,M:Locate 11,2,”hh=“:Locate 14,2,R-M:Goto o 常用说明如下:

果)J(本测站结束)X(校 核仪器)Z(从头开始)

3 4 5 6 7 8

看前视上下丝 看前视中丝 抄结果 本测站结束 校核仪器 从头开始

A12B34C5J6X7Z8? A1 A2 S1=×××.××

判断下步 后视板尺上丝 后视板尺下丝

1、A12B34C5J6X7Z8?输入 1(输完回车) (输完回车) (输完回车) 2、S1=×××.××当后视上下丝输入完计算距离

A12B34C5J6X7Z8? A3? ××××

判断下步 后视板尺黑面中丝

1、A12B34C5J6X7Z8?输入 2(输完回车) 2、A3? ××××当后视上下丝输入完计算黑面中丝 理论读数(输完回车) 3、A4? ××××当后视黑面中丝输入完计算黑面中 丝理论读数(输完回车) 4、当 A3、A4 输入完计算黑红面读数差

A4? ××××

后视板尺红面中丝

A=××

A12B34C5J6X7Z8? B1 B2 S1=××× D1=××× S2=×××

判断下步 前视板尺上丝 前视板尺下丝 前后视上下丝输入完计 算距离及视距差

1、A12B34C5J6X7Z8?输入 3(输完回车) (输完回车) (输完回车) S1 为后视距离 D1 为视距差 S2 为前视距离 D2 为∑d

D2=×××

A12B34C5J6X7Z8? B3? ××××

判断下步 后视板尺黑面中丝

1、A12B34C5J6X7Z8?输入 4(输完回车) 2、B3? ××××当前视上下丝输入完计算黑面中 丝理论读数(输完回车) 3、B4? ××××当前视黑面中丝输入完计算黑面中 丝理论读数(输完回车) 4、当 A3、A4、B3、B4 输入完计算黑红面读数差 5、当 A3、A4、B3、B5 输入完计算黑红面高差

B4? ××××

后视板尺红面中丝

A=×× h1=×××

B=××

C=×× h2=×××

前后视中丝输入完计算 黑红面读数差 ABC 及高 差

A12B34C5J6X7Z8? A1=×××× A3=×××× S1=×××× B1=×××× B2=×××× S2=××××

判断下步

1、A12B34C5J6X7Z8?输入 5(输完回车)

抄结果

按记录表顺序抄结果(抄完回车)

D1=×××× A3=×××× B3=×××× h1=×××× kL=×××× A=×× B=××

D2=×××× A4=×××× B4=×××× 抄结果 h2=×××× 按记录表顺序抄结果(抄完回车)

C=××

抄结果 hh=×××× HH=××××

按记录表顺序抄结果(抄完回车)

A12B34C5J6X7Z8?

判断下步

A12B34C5J6X7Z8?输入 6 倒站(需本站全部弄完才 可以输入 6,否则输入 8 从头开始), 如校核仪器在输 入 6 后出现 A12B34C5J6X7Z8?输入 7 前后板尺不动在 上站基础上校核

A12B34C5J6X7Z8? DUAN 1? DUAN 2? CHANG 1? CHANG 2? h1=××× ×××× ××××

判断下步 短边(前视板尺)黑面中 丝 短边(前视板尺)红面中 丝 长边(后视板尺)黑面中 丝 长边(后视板尺)红面中 丝

1、A12B34C5J6X7Z8?输入 7(输完回车) (输完回车) ××××理论读数(参考)(输完回车) (输完回车) ××××理论读数(参考)(输完回车) 黑面高

差

计算结果 h1=××× hh=××× 红面高差 仪器 i 角差