一、程序设计
1． 测量放样计算主程序 CLFY
V=19:Fixm:Rad
{OEFG}:O”1.XL 2.SD”:E”DZ”:F”DH”:G”AH”
Pol(Z[F+52]-Z[E+52],Z[F+62]-Z[E+62])
D=πG ÷ 180-J
Lbl 1
O ¹ 1 Þ Goto 2 ◣
{KQ}:K”KF”:Q”BL”
Prog ”ZB”
X=X+Rec(Q,U+π ÷ 2):Y=Y+J
Goto 3
Lbl 2
{XY}:X”XF”:Y”YF”
Lbl 3
Pol(X-Z[E+52],Y-Z[E+62])
I”S=” ◢
I=J+D
I>2π Þ I=I-2π ◣
I<0 Þ I=I+2π ◣
I=180I ÷ π
I”A=” ◢
Goto 1
2 ．线路坐标计算主程序 XLZB
Rad
Fixm
{O}:O”1.ZX 2.BX”
Q=0
Lbl 1
{K}:K”K”
O ¹ 1 Þ {QG}:Q”L”:G”AJ” ◣
Prog ”ZB”:X=X+Rec(Q,U+πG ÷ 180):Y=Y+J
X”X=” ◢
Y”Y=” ◢
O=1 Þ U=180U ÷ π:U”AT=” ◢
◣
Goto 1
3 ．线路高程计算主程序 XLGC
V=11:Fixm
Lbl 0
{KQ}:K”K”:Q”L”
Prog ”KD”
Prog ”GC”
C”H=” ◢
Goto 0
4 ．边桩放样计算主程序 BZFY
Fixm
Rad
{Z}:Z”1.CJ 2.QZ 3.QS”
Z=2 Þ Z[11]=0:Goto 1 ◣
Z=3 Þ Goto 1 ◣
{MNGU}:M”DZ”:N”DH”:G”HZ”:U”AH”
Z[8]=Z[M+52]:Z[9]=Z[M+62]
C=Z[N+52]:A=Z[N+62]
Pol(C-Z[8],A-Z[9]):Z[10]=J-πU ÷ 180:Z[11]=G
Lbl 1
Z=2 Þ Goto 2 ◣
{EBFD}:B”AQ”:E”S”:D”HD”:F”HY”
Rec(E,Z[10]+πB ÷ 180):X=Z[8]+I:Y=Z[9]+J:Goto 3
Lbl 2
{EBD}:E”N”:B”E”:D”Z”:F=0:X=E:Y=B
Lbl 3
Prog “FQ”
G=D+Z[11]-F:G”H” ◢
Prog “FY”
Goto 1
5． 线路坐标计算子程序 ZB
Prog ”YS”
X=74445.797
Y=501515.278
S=771.296-K
B=A+C+π
S>L Þ Goto 1 ◣
I=SSS ÷ 6 ÷ R ÷ L
J=S-S^5 ÷ (40RRLL)
U=B-SS ÷ (2RL)-π:Goto 2
Lbl 1
U=(2S-L) ÷ R ÷ 2
I=R(1-cos U)+Z[5]:J=Rsin U+Z[6]
U=B-(S-L ÷ 2) ÷ R+π
Lbl 2
Pol(I,J):J=J+B-π ÷ 2
X=Rec(I,J)+X
Y=Y+J
U<0 Þ U=U+2π ◣
6 ．曲线要素计算子程序 YS
R=280
L=84.7
S=-0.6769479859
A=-2.415291254
N=-1
C=1.738343268
Z[5]=1.067572917
Z[6]=42.31770592
T=374.9146895
Z[7]=RC+L
7 ．线路高程计算子程序 GC
W=13
Lbl 1
P=Z[W+7]
K>Z[W]-P Þ W=W+1:Goto 1 ◣
W=13 Þ W=14 ◣
V=W-1 Þ Goto 2 ◣
V=W-1
J=Z[V+4]
R=(J-Z[V+3]) ÷ (Z[V]-Z[V-1])
S=(Z[V+5]-J) ÷ (Z[V+1]-Z[V])
T=Z[V+7]
Lbl 2
L=K-Z[V]
L ≤ -T Þ H=J+RL:Goto 3 ◣
L ≥ T Þ H=J+SL:Goto 3 ◣
A=2T ÷ (S-R)
X=L+A(R+S) ÷ 2
H=J+XX ÷ 2 ÷ A-ARS ÷ 2
Lbl 3
H=H-Z[1]
A=Abs Q
A ≤ Z[4] Þ C=0:Goto 6 ◣
I=-1
Q>0 Þ I=1 ◣
Lbl 4
Y=23
Lbl 5
K ≥ Z[Y] Þ Y=Y+1:Goto 5 ◣
O=Z[Y+2]:X=Z[Y+3]:O=IO:X=IX
Z[Y+2]=0 Þ O=2 ◣
Z[Y+3]=0 Þ X=2 ◣
N=(Z[Y]-K) ÷ (Z[Y]-Z[Y-1])
M=(X-O)(1-3NN+2NNN)+O
A ≤ Z[2] Þ C=(Z[4]-A)M ÷ 100:Goto 6 ◣
C=0.04(Z[2]-A)-M(Z[2]-Z[4]) ÷ 100
M>4 Þ C=(Z[4]-A)M ÷ 100 ◣
Lbl 6
C=H+C
8 ．反求线路桩号子程序 FQ
Prog ”YS”
Z[4]=74445.797
Z[3]=501515.278
Z[4]=X Þ Z[3]=Y Þ K=771.296:Q=0:Goto 2 ◣◣
Q=Z[4]:K=Z[3]:G=S+π ÷ 2
Prog ”ZH”
G=LL ÷ 6 ÷ R:Q=L-LLL ÷ 40 ÷ R ÷ R
Pol(G-H,Q-W):K=J+π ÷ 2+L ÷ 2 ÷ R
cos K<0 Þ Goto 1 ◣
Pol(H-(R+Z[5]),W-Z[6])
K=771.296-R(π-J)-L ÷ 2
Q=R-I
Goto 2
Lbl 1
K=1:U=L
Prog ”HQ”
K=771.296-O:Q=-Q
Lbl 2
M=1000
K=Intg (MK+0.5) ÷ M
Q=Intg (MQ+0.5) ÷ M
Z”KD=” ◢
Q”WB=” ◢
9 ．坐标转换计算子程序 ZH
H=X-Q:W=Y-K
Pol(H,W)
G=J-G
H=Icos G:W=Isin G
10 ．反求缓曲长度子程序 HQ
A=K ÷ 46080 ÷ R^6 ÷ U^6
P=H ÷ 3840 ÷ R^5 ÷ U^5
C=13K ÷ 5760 ÷ R^4 ÷ U^4
T=KW ÷ 384 ÷ R^4 ÷ U^4
G=H ÷ 48 ÷ R^3 ÷ U^3
I=K ÷ (15RRUU)
J=KW ÷ (8RRUU)
L=H ÷ (2RU)
N=KW
S=W
Lbl 7
M=AS^13+PS^10-CS^9+TS^8-GS^6+IS^5-JS^4+LSS-KS+N
Q=13AS^12+10PS^9-9CS^8+8TS^7-6GS^5+5IS^4-4JS^3+2LS-K
O=S-M ÷ Q
Abs (O-S)<1 E -5 Þ Goto 8 ◣
S=O
Goto 7
Lbl 8
T=KOOO ÷ 6 ÷ U ÷ R
P=O-O^5 ÷ (40RRUU)
T=H Þ P=W Þ Q=0:Goto 9 ◣◣
Pol(H-T,W-P)
Q=sin (J+KOO ÷ 2 ÷ R ÷ U-π ÷ 2)
S=-1
Q>0 Þ S=1 ◣
Q=SI
Lbl 9
11 ．边桩放样计算子程序 FY
V=11
U=Q
Prog ”KD”
Q=-0.75-Z[2]:Z[3]=-1
U>0 Þ Q=0.75+Z[2]:Z[3]=1 ◣
Prog ”GC”
X=G-C
X ≤ 0 Þ Goto 7 ◣
N=Int ((X-0.1) ÷ 8.9)+1
N>5 Þ N=5 ◣
I=1
Lbl 2
O=Z[28+I]
{O}:O”M”
Z[28+I]=O
I=I+1
I>N+1 Þ Goto 4 ◣
Goto 2
Lbl 4
I=0
W=3.55+Z[2]:H=0.04
Lbl 5
I=I+1
I>N-1 Þ Goto 6 ◣
W=W+2+9Z[I+28]
H=H+8.9
Goto 5
Lbl 6
A=X-H:A”C=” ◢
W=W-Abs U
A ≤ 1 Þ P=WZ[3] ◢
◣
A ≥ 8 Þ P=(9Z[I+28]+W+2)Z[3] ◢
◣
A=AZ[I+28]+W
Goto 8
Lbl 7
X=-X
X ≤ 8 Þ A=1.5X+0.75+Z[2]-Abs U ◣
X>8 Þ X ≤ 12 Þ A=12.75+Z[2]+1.75(X-8)-Abs U ◣◣
X>12 Þ A=14.75+Z[2]+1.75(X-8.04)-Abs U ◣
Lbl 8
A=AZ[3]
A”DB=” ◢
12. 路面宽度计算子程序 KD
Z[2]=10.5
Z[4]=0.5
K>460 Þ K<540 Þ Z[4]=0 ◣◣
Abs Q ≤ Z[4] Þ Goto 6 ◣
Q>0 Þ Goto 1 ◣
K<370.6255 Þ I=50:X=K-370.6255:Goto 2 ◣
K>430 Þ K ≤ 467.384 Þ I=41:X=K-430:Goto 2 ◣◣
K>467.384 Þ K<532.616 Þ Goto 3 ◣◣
K ≥ 532.616 Þ K<570 Þ I=41:X=570-K:Goto 2 ◣◣
K>686.596 Þ I=35:X=K-686.596:Goto 2 ◣
Goto 5 ◣
Lbl 1
K<350.4277 Þ I=47:X=K-350.4277:Goto 2 ◣
K>430 Þ K ≤ 463.545 Þ I=44:X=K-430:Goto 2 ◣◣
K>463.545 Þ K<536.455 Þ Goto 4 ◣◣
K ≥ 536.455 Þ K<570 Þ I=44:X=570-K:Goto 2 ◣◣
K>686.596 Þ I=38:X=K-686.596:Goto 2 ◣
Goto 5 ◣
Lbl 2
Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:Goto 5
Lbl 3
Z[2]=299.104 ÷ sin (1.4543+(K-467.384) ÷ 280)-280:Goto 5
Lbl 4
Z[2]=280-267.304 ÷ sin (1.4406+(K-463.545) ÷ 280)
Lbl 5
L=Z[2]+0.75:L”LD=” ◢
Lbl 6
二、扩展变量设置数值
扩展变量设置实际数值表
|
名 称 |
福宁线 A14-A |
||||
|
变坡点数目 b |
2 |
||||
|
起超点数目 c |
3 |
||||
|
台阶数目 d |
6 |
||||
|
导线点数目 e |
10 |
||||
|
曲线方程数 f |
6 |
||||
|
变量总数目 |
72 |
||||
|
Z[1] |
0 |
||||
|
Z[2] |
变量 ( 路面宽度 ) |
||||
|
Z[3] |
变量 ( 左右系数 ) |
||||
|
Z[4] |
变量 ( 中央带宽 ) |
||||
|
Z[5] |
空 |
||||
|
Z[6] |
空 |
||||
|
Z[7] |
空 |
||||
|
Z[8] |
空 |
||||
|
Z[9] |
空 |
||||
|
Z[10] |
空 |
||||
|
Z[11] |
空 |
||||
|
Z[12] |
284.56 |
||||
|
Z[13] |
305.00 |
||||
|
Z[14] |
600.00 |
||||
|
Z[15] |
840.00 |
||||
|
Z[16] |
9.838 |
||||
|
Z[17] |
9.9 |
||||
|
Z[18] |
15.8 |
||||
|
Z[19] |
29 |
||||
|
Z[20] |
20.44576 |
||||
|
Z[21] |
52.5 |
||||
|
Z[22] |
空 |
||||
|
Z[23] |
284.56 |
||||
|
Z[24] |
686.596 |
||||
|
Z[25] |
771.296 |
||||
|
Z[26] |
3 |
||||
|
Z[27] |
3 |
||||
|
Z[28] |
0 |
||||
|
Z[29] |
第一边坡坡度 |
||||
|
Z[30] |
第二边坡坡度 |
||||
|
Z[31] |
第三边坡坡度 |
||||
|
Z[32] |
第四边坡坡度 |
||||
|
Z[33] |
第五边坡坡度 |
||||
|
Z[34] |
第六边坡坡度 |
||||
|
Z[35] |
4.36072E-07 |
扩展变量设置实际数值表 ( 续表 )
|
名 称 |
福宁线 A14-A |
||||
|
Z[36] |
7.86427E-05 |
||||
|
Z[37] |
3.59504E-04 |
||||
|
Z[38] |
1.01209E-05 |
||||
|
Z[39] |
-1.89E-04 |
||||
|
Z[40] |
2.21E-03 |
||||
|
Z[41] |
-4.00801E-04 |
||||
|
Z[42] |
0.0224987 |
||||
|
Z[43] |
3.79289E-03 |
||||
|
Z[44] |
3.31567E-06 |
||||
|
Z[45] |
-1.99117E-04 |
||||
|
Z[46] |
3.56071E-04 |
||||
|
Z[47] |
-2.23383E-04 |
||||
|
Z[48] |
-1.76709E-03 |
||||
|
Z[49] |
-0.011245 |
||||
|
Z[50] |
-2.25118E-05 |
||||
|
Z[51] |
-1.69988E-04 |
||||
|
Z[52] |
-1.32568E-03 |
||||
|
Z[53] |
|||||
|
Z[54] |
|||||
|
Z[55] |
|||||
|
Z[56] |
|||||
|
Z[57] |
|||||
|
Z[58] |
|||||
|
Z[59] |
|||||
|
Z[60] |
|||||
|
Z[61] |
|||||
|
Z[62] |
|||||
|
Z[63] |
|||||
|
Z[64] |
|||||
|
Z[65] |
|||||
|
Z[66] |
|||||
|
Z[67] |
|||||
|
Z[68] |
|||||
|
Z[69] |
|||||
|
Z[70] |
|||||
|
Z[71] |
|||||
|
Z[72] |
|||||
|
Z[73] |
|||||
|
Z[74] |
|||||
|
Z[75] |
|||||
|
Z[76] |
