三、四等水准测量程序
- 格式：doc
- 大小：940.00 KB
- 文档页数：4
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->4687”?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
常用说明如下:
测站
编号 后尺 上丝 前尺 上丝 方向
及
尺号 标 尺 读 数 K
+黑
-红 高差
中数 备注 下丝 下丝
后视距 前视距 黑面 红面 视距差d ∑d
A1 B1 后尺 A3 A4 A
hh A2 B2 前尺 B3 B4 B
S1 S2 后-前 h1 h2 C
D1 D2 累计距离 Kl 累计高差 HH
后尺
前尺
后-前
累计距离 累计高差
„„
显示 输入 备注
D? 累计视距差(∑d) 起站为零
L? 累计距离(Kl) 起站为零
H? 累计高差(HH) 起站为零，毫米单位
-1->4787,1->4687 后视板尺 4787为1,4687为－1
A12B34C5J6X7Z8 判断下步看部位：A(后视)B(前视)C(抄结1 看后视上下丝
2 看后视中丝 果)J(本测站结束)X(校核仪器)Z(从头开始) 3 看前视上下丝
4 看前视中丝
5 抄结果
6 本测站结束
7 校核仪器
8 从头开始
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入1(输完回车)
A1 后视板尺上丝 (输完回车)
A2 后视板尺下丝 (输完回车)
S1=×××.×× 2、S1=×××.××当后视上下丝输入完计算距离
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入2(输完回车)
A3? ×××× 后视板尺黑面中丝 2、A3? ××××当后视上下丝输入完计算黑面中丝理论读数(输完回车)
A4? ×××× 后视板尺红面中丝 3、A4? ××××当后视黑面中丝输入完计算黑面中丝理论读数(输完回车)
A=×× 4、当A3、A4输入完计算黑红面读数差
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入3(输完回车)
B1 前视板尺上丝 (输完回车)
B2 前视板尺下丝 (输完回车)
S1=××× S2=××× 前后视上下丝输入完计算距离及视距差 S1为后视距离 S2为前视距离
D1=××× D2=××× D1为视距差 D2为∑d
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入4(输完回车)
B3? ×××× 后视板尺黑面中丝 2、B3? ××××当前视上下丝输入完计算黑面中丝理论读数(输完回车)
B4? ×××× 后视板尺红面中丝 3、B4? ××××当前视黑面中丝输入完计算黑面中丝理论读数(输完回车)
A=×× B=×× C=×× 前后视中丝输入完计算黑红面读数差ABC及高差 4、当A3、A4、B3、B4输入完计算黑红面读数差
h1=××× h2=××× 5、当A3、A4、B3、B5输入完计算黑红面高差
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入5(输完回车)
A1=×××× B1=××××
抄结果 按记录表顺序抄结果(抄完回车) A3=×××× B2=××××
S1=×××× S2=×××× D1=×××× D2=××××
A3=×××× A4=××××
抄结果 按记录表顺序抄结果(抄完回车) B3=×××× B4=××××
h1=×××× h2=××××
kL=××××
A=×× B=×× C=××
抄结果 按记录表顺序抄结果(抄完回车)
hh=××××
HH=××××
A12B34C5J6X7Z8? 判断下步 A12B34C5J6X7Z8?输入6 倒站(需本站全部弄完才可以输入6,否则输入8从头开始)，如校核仪器在输入6后出现A12B34C5J6X7Z8?输入7前后板尺不动在上站基础上校核
A12B34C5J6X7Z8? 判断下步 1、A12B34C5J6X7Z8?输入7(输完回车)
DUAN 1? 短边(前视板尺)黑面中丝 (输完回车)
DUAN 2? ×××× 短边(前视板尺)红面中丝 ××××理论读数(参考)(输完回车)
CHANG 1? 长边(后视板尺)黑面中丝 (输完回车)
CHANG 2? ×××× 长边(后视板尺)红面中丝 ××××理论读数(参考)(输完回车)
h1=×××
计算结果 黑面高差
h1=××× hh=××× 红面高差 仪器i角差
