PXQ程序
- 格式：doc
- 大小：74.00 KB
- 文档页数：8
1-1、子程序PXQ(平曲线)
Deg:26→DimZ
If O< 0:Then -1→W:Else 1→W :IfEnd:W O→A
B2÷24÷R-B^(4)÷2688÷R^(3)+B^(6)÷506880÷R^(5) →Z[6] C2÷24÷R-C^(4)÷2688÷R^(3)+C^(6)÷506880÷R^(5) →Z[7] B÷2-B^(3)÷240÷R2+B^(5)÷34560÷R^(4) →Z[8]
C÷2-C^(3)÷240÷R2+C^(5)÷34560÷R^(4) →Z[9]
Z[8]+(R+Z[7]-(R+Z[6])Cos(A))÷Sin(A) →S
Z[9]+(R+Z[6]-(R+Z[7])Cos(A))÷Sin(A) →T
πRA÷180+(B+C)÷2→L
K-S→Z[1]
Z[1]+B→Z[2]
Z[1]+L-C→Z[4]
Z[4]+C→Z[5]
Pol(X-M,Y-N):J→Z[20]:J+O→Z[19]
X-S Cos(Z[20])→Z[21]: Y-S Sin(Z[20])→Z[22]
X+T Cos(Z[19])→Z[23]: Y+T Sin(Z[19])→Z[24]
If P>Z[1]:Then Goto 1:IfEnd
Z[1]-P→Q
“X=”:X-(S+Q)Cos(Z[20])→F◢
“Y=”:Y-(S+Q)Sin(Z[20])→G◢
Z[20]→Z: Goto 0
Lbl 1
If P>Z[2]:Then Goto 2:IfEnd
P-Z[1]→Q:Q→Z[14]:B→Z[15]:Prog”HY”
“X=”:Z[21]+Z[16]Cos(Z[20])-WZ[17]Sin(Z[20]) →F◢“Y=”:Z[22]+Z[16]Sin(Z[20])+WZ[17]Cos(Z[20]) →G◢Z[20]+90WQ2÷(BRπ)→Z
Goto 0
Lbl 2
If P>Z[4]:Then Goto 3:IfEnd
180(P-Z[1]-B)÷R÷π→Q:90B÷R÷π→Z[13]
B→Z[14]: B→Z[15]: Prog”HY”
RSin(Q+Z[13])-RSin(Z[13])+Z[16]→Z[25]
RCos(Z[13])-RCos(Z[13]+Q)+Z[17]→Z[26]
“X=”:Z[21]+Z[25]Cos(Z[20])-WZ[26]Sin(Z[20]) →F◢“Y=”:Z[22]+Z[25]Sin(Z[20])+WZ[26]Cos(Z[20]) →G◢Z[20]+W(Q+Z[13])→Z
Goto 0
Lbl 3
If P≥Z[5]:Then Goto 4:IfEnd
Z[5]-P→Q: Q→Z[14] : C→Z[15]: Prog”HY”
“X=”:Z[23]-Z[16]Cos(Z[19])-WZ[17]Sin(Z[19]) →F◢“Y=”:Z[24]-Z[16]Sin(Z[19])+WZ[17]Cos(Z[19]) →G◢
Z[19]-90WQ2÷(CRπ)→Z
Goto 0
Lbl 4
P-Z[5]→Q
“X=”:X+(T+Q)Cos(Z[19])→F◢
“Y=”:Y+(T+Q)Sin(Z[19])→G◢
Z[19]→Z
Lbl 0
Prog”BFD”
1-2、子程序HY（平曲线内一子程序）
If Z[14]=0:Then 0→Z[16]:0→Z[17]:Else
Z[14]-Z[14]^(5)÷40÷(RZ[15])2+Z[14]^(9)÷3456÷(RZ[15])^(4)→Z[16]
Z[14]^(3)÷6÷(RZ[15])-Z[14]^(7)÷336÷(RZ[15])^(3)+ Z[14]^(11)÷42240÷(RZ[15])^(5)→Z[17]
IfEnd
1-3、子程序BFD（中边桩放样点角距）
?D:If D=0:Then F→Z[11]: G→Z[12]: Goto 0:IfEnd
“a1=”?H
“XB=”:F+DCos(Z+H)→Z[11]◢
“YB=”:G+DSin(Z+H)→Z[12]◢
Lbl 0
Pol(Z[11]-U,Z[12]-V)
If J<0:Then J+360→J: IfEnd
“A0=”:J▶DMS◢
“D0=”:I◢
说明:可建路线数据库
主程序
“XC”?U:”YC”?V
Lbl 0
“K”?P
If P≥(第二直线上终点桩):Then Goto 1:IfEnd
(前交点X坐标)→M: (前交点Y坐标)→N: (现交点X坐标)→X:( 现交点Y坐标)→Y:( 现交点桩号)→K:( 现交点转角左-右+)→O:(现交点的半径)→R: (现交点一缓长)→B: (现交点二缓长)→C: Goto Z Lbl 1
If P≥(第二直线上终点桩):Then Goto 2:IfEnd
(前交点X坐标)→M: (前交点Y坐标)→N: (现交点X坐标)→X:( 现交点Y坐标)→Y:( 现交点桩号)→K:( 现交点转角左-右+)→O:(现交点的半径)→R: (现交点一缓长)→B: (现交点二缓长)→C: Goto Z
……
……
Lbl Z
Prog”PQX”
Goto 0（完）
2-1、HXX 程序（回旋线）:
Abs（E-K）→C:0→A: 0→B:P-K→N:Abs(N)→L
If N<0:Then-1→W:O+180→Q:Else1→W:O→Q: IfEnd If R≠0:Then W÷R→A: IfEnd
If T≠0:Then W÷T→B: IfEnd
Q+180AL÷π+90(B-A)L2÷C÷π→Z
If N<0:Then Z-180→Z: IfEnd
“X=”:S+∫(Cos(Q+180AX÷π+90(B-A)X2÷C÷π),0,L)→F◢
“Y=”:Y+∫(Sin(Q+180AX÷π+90(B-A)X2÷C÷π),0,L)→G◢Prog“BFD”
说明：(起点桩号K0)→K :(起点X0坐标)→S: (前交点Y0坐标)→Y: (路线方位角)→O:(起点半径R0)→R:( 终点半径R1)→T: (终点桩号K1)→E
半径：其值按路线前进方向转弯左负(-)右正(+),当直线位置时为0 如编主程序为：
“XC”?U:”YC”?V
Lbl 0
“K”?P
If P≥(曲线终点桩):Then Goto 1:IfEnd
(起点桩号K0)→K :(起点X0坐标)→S: (前交点Y0坐标)→Y: (路线方位角)→O: (起点半径R0)→R:( 终点半径R1)→T: (终点桩号K1)→E: Goto Z
Lbl 1
……
……
Lbl Z
Prog“HXX”
Goto 0（完）
3-1、SQX程序（竖曲线）
0.01(B-A)→W
If W>0:Then 1→N:Else﹣1→N:IfEnd
Abs(WR)÷2→T
C-T→S:C+T→E
If P<S:Then 0→N: A→I:Goto1:IfEnd
If P<C:Then A→I: S-P→X:Goto1:IfEnd
B→I: If P<E:Then E-P→X:Goto1:IfEnd
0→N
Lbl 1
“h”?Q
“H=”:D+0.01I(P-C)+NX2÷(2R)-Q→H◢
说明:可建路线数据库
主程序
Lbl 0
“K”?P
If P≥(第二竖坡线上直坡终点桩):Then Goto 1:IfEnd
(第一竖坡坡度%“I1”)→A: (第二竖坡坡度%“I2”)→B: (变坡点桩号“KB”)→C: (变坡点高程“HB”)→D: (半径R)→R: Goto Z Lbl 1
If P≥(第二竖坡线上直坡终点桩):Then Goto 2:IfEnd
(第一竖坡坡度%“I1”)→A: (第二竖坡坡度%“I2”)→B: (变坡点桩号“KB”)→C: (变坡点高程“HB”)→D: (半径R)→R: Goto Z Lbl 2
……
……
Lbl Z
Prog”SQX”
Goto 0
横坡。
