测量程序集11Word文件下载.docx
《测量程序集11Word文件下载.docx》由会员分享,可在线阅读,更多相关《测量程序集11Word文件下载.docx(9页珍藏版)》请在冰豆网上搜索。
B→Z[9]:
?
Prog"H":
Fix3:
"H=":
Lcoate6,4,H-Z[9]:
"I=":
Locate6,4,I:
4.主程序:
任意桩号位置的标准路基宽度计算
4GD
-1→D:
Prog"C":
L→P:
1→D:
Prog"C":
"LGD=":
Lcoate6,4,P:
"RGD=":
Locate6,4,L:
5、主程序:
路基开挖边线及填方坡脚线放样程序
4BP
0.5→B:
"TH-GD"?
B→Z[7]:
“X0"?
"Y0"?
Z[8]→M:
"M0"?
M:
M→Z[8]:
D→P:
IfD<
0:
Then0.75-L→D:
ElseL-0.75→D:
IfEnd:
Prog“H”:
H-0.03-Z[8]→G:
Prog“W1”:
IfG>
ThenGotoT:
-G→H:
IfH>
E+F:
ThenL+M+N+U+C(H-E-F)+BF+AE→S:
Goto0:
IfEnd:
E:
ThenL+M+N+B(H-E)+AE→S:
IfH<
ThenL+M+HA→S:
LbIT:
WThenL+Z[7]+V+J(G-W)+IW→S:
ElseL+Z[7]+GI→S:
LbI0:
Fix2:
P→D:
Abs(D)-S→T:
"LX=":
Locate6,4,T:
Prog"ZD":
"TW=":
Lcoate6,4,G◢LpWhileZ≠-1
6、主程序:
定值放样路基桩计算填挖值
6FM
Z[2]+90→A:
I+Dcos(A→X:
J+Dsin(A→Y:
Z[8]→M:
”M0”?
Prog“H”:
”TW=”:
Locate6,4,H-Z[8]:
LpWhileZ≠-1
7、主程序:
桥梁锥坡计算放样
7ZP
Prog"DX":
"Z0"?
"LD:
Z-,Y+"?
D:
Abs(D)→R:
"LR"?
R:
D→Z[7]:
R→Z[10]:
Z→Z[9]:
Prog”C”:
Prog”K”:
Z[10]→Y:
"L0:
SZ+,DZ-"?
Y=-1=>
Y=-2=>
√(Z[7]2(1-Y2/Z[10]2))→X:
Z[9]+Y→Z:
Prog”C”:
IfD>
ThenL+X→D:
Else–L-X→D:
Prog”A”:
Z[2]+90→A:
LpWhileY≠-1
8、主程序:
由坐标计算方位角及距离
8JS
X=-1=>
X=-2=>
Prog”JS”:
LpWhileX≠-1
9、主程序:
隧道超欠挖放样计算
9SD
0.65→A:
”CQHD”?
A→Z[7]:
D→Z[9]:
0→D:
Prog”H”:
Prog”SD1”:
Z[9]→D:
Z[7]→X:
Rcos(P→C:
H+A→A:
H+B→B:
C+A→E:
IfM<
ThenR-V→S:
S=0=>
Goto1:
√(S2-(B-A)2)S÷
Abs(S→T:
Abs(D-Q)-T→T:
√(T2+(M-B)2)-V-X→L:
LbI1:
√((D-Q)2+(M-A)2)-R-X→L:
Fix2:
”LX=”:
Locate6,4,L:
Prog”ZD”:
“H0=”:
Locate6,4,M-H◢LpWhileZ≠-1
10.交点法正算子程序(A)
A
P÷
Abs(P→W:
O-T+ΠR×
Abs(P)÷
180+H÷
2-N÷
2→Q:
H→C:
0→M:
IfZ≤O-T:
ThenZ-O→S:
G→Z[2]:
IfZ≤O-T+H:
ThenZ-O+T→S:
Prog“HX”:
G+WK→Z[2]:
A-T→A:
G→E:
Goto2:
IfZ≤Q:
Then180(Z-O+T-0.5H)÷
R÷
Π→S:
Prog”AB”:
A+R(1-Cos(S→E:
B+Rsin(S→A:
E→B:
R→M:
G+WS→Z[2]:
IfZ≤Q+N:
ThenQ+N-Z→S:
N→H:
G+P→E:
E-WK→Z[2]:
F-A→A:
C→H:
Z-Q-N+F→S:
G+P→Z[2]:
LbI1:
U+Scos(Z[2]→I:
V+Ssin(Z[2]→J:
Return:
LbI2:
U+Acos(E)-WBsin(E→I:
V+Asin(E)+WBcos(E→J
11.交点法反算子程序(B)
B
Z+D→D:
Pol(X-I,Y-J+×
10-9:
J-Z[2]→J:
Isin(J→S:
Icos(J→D:
IfM≠0:
ThenPol(M-WS,D:
JMΠ÷
180→D:
LpWhileAbs(D>
.001:
Z+D→Z:
S→D
12.缓和曲线段直角坐标计算子程序(AB)
AB
H2÷
24-H∧(4)÷
2688÷
R∧(3)+H∧(6)÷
506880÷
R∧(5)-H∧(8)÷
154828800÷
R∧(7)→A:
H÷
2-H∧(3)÷
240÷
R2+H∧(5)÷
34560÷
R∧(4)-H∧(7)÷
8386560÷
R∧(6)+H∧(9)÷
3158507520÷
R∧(8)→B
13.计算缓和曲线段坐标增量及偏角子程序(HX)
HX
S-S∧(5)÷
40÷
R2÷
H2+S∧(9)÷
3456÷
R∧(4)÷
H∧(4)-S∧(13)÷
599040÷
R∧(6)÷
H∧(6)+S∧(17)÷
175472640÷
R∧(8)÷
H∧(8)→A:
S∧(3)÷
6÷
H-S∧(7)÷
336÷
R∧(3)÷
H∧(3)+S∧(11)÷
42240÷
R∧(5)÷
H∧(5)-S∧(15)÷
9676800÷
R∧(7)÷
H∧(7)+S∧(19)÷
3530097000÷
R∧(9)÷
H∧(9)→B:
90S2÷
Π÷
H→K:
IfS=0:
Then0→M:
ElseRH÷
S→M:
IfEnd
14.高程计算子程序(H)
H
Prog“S1”:
N-I→A:
A÷
Abs(A→W:
R×
Abs(A÷
2→T:
IfZ<
C-T:
ThenG+I(Z-C→H:
C+T:
ThenG-TI+(I+(Z-C+T)W÷
2÷
R)×
(Z-C+T→H:
N→I:
G+I(Z-C→H:
ILbI0:
IfD=0:
ThenH→H:
ElseProg“I”:
H+I(Abs(D)-K→H:
15.高程超高计算横坡子程序(I)
I
Prog“I1”:
ThenM→I:
Return:
ElseIfW=1:
Then((N-M)×
(Z-C)÷
S+M→I:
Else(((3((Z-C)÷
S)2-2((Z-C)÷
S)∧(3))×
(N-M))+M→I:
16.路基宽度子程序
C
1→S:
Prog“G1”:
Z-C→E:
(B-A)E÷
S+A→L
17:
极坐放样计算程序(计算放样点至置仪点方位角及距离)
JS
Z[5]→K:
Z[6]→L:
Pol(X-K,Y-L:
IFJ<
ThenJ+360→J:
IFEnd:
Int(J)+0.01Int(60Frac(J))+0.006Frac(60Frac(J→J:
Fix4:
”FWJ=”:
Locate6,4,J:
”S=”:
Locate6,4,I◢
18.导线点子程序(DX)
DX
Z[5]→K:
“XZ”?
K:
”YZ”?
K→Z[5]:
L→Z[6]
19.线路选择子程序(线路选择输0时。
则输曲线参数(QX)
QX
1→A:
”QX:
X1=1,X2=2”?
A→Z[4]:
IfA=0:
Then”JDKM”?
O:
”JDX”?
U:
”JDY”?
V:
”FWJ”?
G:
”ZJ”?
P:
”LS1”?
H:
”LS2”?
N:
”T1”?
T:
”T2”?
F:
IFEnd
20.线路中线元段判别子程序(K)
K
IfZ[3]=0:
ThenReturn:
IfZ[3]=1:
ThenProg“X1”:
IfEnd:
IfZ[3]=2:
ThenProg“X2”:
21.坐标参数矩阵调用程序(F)
F
MatF[1,1]→O:
MatF[1,2]→U:
MatF[1,3]→V:
MatF[1,4]→G:
MatF[1,5]→P:
MatF[1,6]→H:
MatF[1,7]→N:
MatF[1,8]→T:
MatF[1,9]→F:
MatF[1,10]→R
22.显示子程序
XY
Fix3:
"X=":
Locate6,4,X:
"Y=":
Locate6,4,Y:
ZD
"KM=":
Locate6,4,Z:
" D=":
Locate6,4,D
23.数据子程序(附后示例)
匝道线元转交点数据程序(T)
T
Norm2:
“QKM”?
Z:
“XQ”?
U:
“YQ”?
V:
“LS1”?
M:
“LS2”?
O:
“A1”?
A:
“A2”?
B:
“FWJ“?
G:
”ZJ“?
P:
?
R:
Abs(P→Q:
A2÷
R→H:
H<
M=>
M→H:
H-M→S:
B2÷
R→N:
N-O→C:
O>
N=>
O→N:
H=0=>
×
10-9→H:
H→X:
(RHΠ→K:
G-QK→G:
N=0=>
10-9→N:
90C2÷
(RNΠ→D:
P+QK+QD→P:
Prog”AB”:
(H2-H2)÷
24÷
sin(Abs(P))-(H∧(4)-N∧(4))÷
sin(Abs(P))+(H∧(6)-N∧(6))÷
sin(Abs(P))-(H∧(8)-N∧(8))÷
sin(Abs(P→E:
(R+A)tan(Abs(P)÷
2)+B-E→T:
(R+A)tan(Abs(P)÷
2)+B+E→F:
X→H:
Z-S+T→O:
Prog”HX”:
U-(A-T)cos(G)+QBsin(G→U:
V-(A-T)sin(G)-QBcos(G→V:
”JDKM=”:
Locate6,4,O:
”JDX=”:
Locate6,4,U:
”JDY=”:
Locate6,4,V:
”FWJ=”:
G►DMS◢”ZJ=”P►DMS◢”LS1=”:
Locate6,4,H:
”LS2=”:
Locate6,4,N:
”T1=”:
Locate6,4,T:
”T2=”:
Locate6,4,F◢”R=”:
R◢
说明:
运行后“QKM”?
输入起点桩号;
“YQ”?
输入起点X、Y坐标;
“LS2”?
输入前段缓和曲线长度,后段缓和曲线长度;
“A2”?
输入前段缓和曲线参数,后段缓和曲线参数;
输入起点切线方位角;
输入转角(终点方位角减起点方位角之差,左转为负,右转为正);
计算结果要素同QX子程序中要素字母。
①-1程序名:
X1(线路1坐标计算要素程序)
IfZ≤241.086:
Then[[-336.478,2600441.639,514392.519,280。
20’28.78”,203。
08’28.32”,106.667,81.667,-270.668,-283.056,60]]→MatF:
Prog”F”:
IfEnd
①-2程序名:
X2(线路2坐标计算要素程序)
IfZ≤273.006:
Then[[171.674,2600784.547,514635.863,58。
49’17.2”,68。
09’26.91”,93.889,125,674.184,771,180]]→MatF:
IfEndIfZ≤466.227:
Then[[341.96,2600664.76,514799.865,123。
43’25.9”,15。
58’49.5”,0,138.211,68.954,125.273,445]]→MatF:
1、交点法:
IfZ≤计算交点段终点桩号:
Then[[交点桩号,交点X坐标,交点Y坐标,起点至交点方位角,交点转角,交点前段缓和曲线长度,交点后段缓和曲线长度,交点前段切线长度,交点后段切线长度,圆半径]]→MatF:
Prog”F”:
IfEnd(转角则为交点段终点方位角减起点方位角,分正负,左偏为负,右偏为正)如整条线无曲线,全为直线段,则交点为终点桩号,XY为终点坐标,方位角为起点方位角,转角和圆半径为1,其它全为0。
②-1程序名:
S1(线路1高程竖曲线要素子程序)
ThenGoto1:
ElseProg“S2”:
IfZ≤241.09:
Then95.356→C:
40.742→G:
2000→R:
-.03155→I:
.00812→N:
②-2程序名:
S2(线路2高程竖曲线要素子程序)
IfZ≤133.601:
Then106→C:
45.12→G:
1525→R:
-.0064→I:
.0298→N:
IfZ≤466.23:
Then298→C:
50.841→G:
1945→R:
.0298→I:
-.01968→N:
程序字母说明:
C-竖曲线交点桩号;
G-交点桩号高程(未竖曲线调整的);
R-竖曲线半径;
I-竖曲线前纵坡;
N-竖曲线后纵坡
③-1程序名:
I1(线路1高程超高参数子程序)
0→K:
1→W:
IfZ[4]=1:
ElseProg“I2”:
ThenGotoL:
ElseGotoR:
LbIL:
IfZ≤159.419:
Then0→S:
.06→M:
IfZ≤187.987:
Then28.568→S:
159.419→C:
.02→N:
.02→M:
LbIR:
-.06→M:
-.02→N:
.-02→M:
③-2程序名:
I2(线路2高程超高参数子程序)
IfZ≤77.872:
IfZ≤93.889:
Then16.017→S:
77.872→C:
.05→N:
IfZ≤198.567:
.05→M:
IfZ≤273.006:
Then74.439→S:
198.567→C:
.05→M:
IfZ≤335:
.02→M:
Z≤346.235:
Then11.235→S:
335→C:
.015→N:
-.02→M:
-.05→N:
-.05→M:
-.05→M:
-.02→M:
-.015→N:
子程序中字母表示说明:
K-中央分隔带半幅宽(中桩标高至中桩中线距离,无分隔带则为0);
W-超高方式参数(W=1为一般直线方式超高,W=2为三次抛物线方式超高);
S-超高渐变段距离(不是渐变段则输入0);
C-超高渐变段起点桩号(不是渐变段,无需输入);
M-超高段起点横坡,N-超高渐变段终点横坡(不是渐变段,无需输入)。
④-1程序名:
G1(线路1路基标准半幅宽度参数子程序)
IfZ[4]=1:
ElseProg“G2”:
ThenZ→C:
3.5→A:
Z≤40.857:
Then0→C:
5→A:
5.25→B:
40.857→S:
5.25→A:
Z≤187.987:
Then159.419→C:
5.5→B:
28.568→S:
5.5→A:
④-2程序名:
G2(线路2路基标准半幅宽度参数子程序)
IfZ≤466.227:
Z≤321.611:
IfZ≤346.235:
Then321.611→C:
5.75→B:
24.624→S:
5.75→A:
C-宽度渐变段起点桩号(不是渐变段C=Z);
A-宽度渐变段起点宽度;
B-宽度渐变段终点宽度(不是渐变段,无需输入);
S-宽度渐变段距离(不是渐变段,无需输入)。
⑤-1程序名:
SD1(隧道参数子程序)
Then5.1→R:
1.8→A:
1.4→V:
1.8→B:
0→Q:
109。
01’30”→P:
IfZ[4]=2:
Then8.75→R:
-1.1→A:
4.77→V:
1.47→B:
-.25→Q:
51。
28’57.1”→P:
R-隧道上拱半径;
A-隧道上拱圆心至设计面高度;
V-隧道中腰部半径;
B-中腰圆心至设计面高度;
Q-设计隧道中线与设计路基中线偏移值,左为负数,右为正数;
P-上部拱跨隧道半幅角度;
⑥-1程序名:
W1(线路1路基填挖边坡参数子程序)
ElseProg“W2”:
10→E:
10→F:
2.6→M:
2→N:
2→S:
1.5→I:
1.75→J:
8→W:
2→V:
1.25→B:
1.25→C:
IfZ≤110:
Then1.25→A:
1.5→C:
ElseGotoL:
⑥-2程序名:
W2(线路2路基填挖边坡参数子程序)
10→E:
0.75→A:
0.75→B:
0.75→C:
IfZ≤445:
ElseIfZ≤506.9: