三、四等水准测量是新建项目开工复测必不可少工作之一，因现场计算繁琐，直接影响工作效率，特此编程序交流学习
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:o.5(L+M)-5o)->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(抄结果)J(本测站结束)X(校核仪器)Z(从头开始)
|
1
|
看后视上下丝
|
|
|||||||
| 2
|
看后视中丝
|
|
|||||||||
| 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角差
|
|
|||||||||