CASIO程序线路计算60版附加.docx
《CASIO程序线路计算60版附加.docx》由会员分享，可在线阅读，更多相关《CASIO程序线路计算60版附加.docx（14页珍藏版）》请在冰豆网上搜索。
CASIO程序线路计算60版附加
一、程序设计
1．测量放样计算主程序CLFY
V=19:
Fixm:
Rad
{OEFG}:
O”1.XL2.SD”:
E”DZ”:
F”DH”:
G”AH”
Pol（Z[F+52]-Z[E+52],Z[F+62]-Z[E+62]）
D=πG÷180-J
Lbl1
O1Goto2◣
{KQ}:
K”KF”:
Q”BL”
Prog”ZB”
X=X+Rec（Q,U+π÷2）:
Y=Y+J
Goto3
Lbl2
{XY}:
X”XF”:
Y”YF”
Lbl3
Pol（X-Z[E+52],Y-Z[E+62]）
I”S=”◢
I=J+D
I>2πI=I-2π◣
I<0I=I+2π◣
I=180I÷π
I”A=”◢
Goto1
2．线路坐标计算主程序XLZB
Rad
Fixm
{O}:
O”1.ZX2.BX”
Q=0
Lbl1
{K}:
K”K”
O1{QG}:
Q”L”:
G”AJ”◣
Prog”ZB”:
X=X+Rec（Q,U+πG÷180）:
Y=Y+J
X”X=”◢
Y”Y=”◢
O=1U=180U÷π:
U”AT=”◢
◣
Goto1
3．线路高程计算主程序XLGC
V=11:
Fixm
Lbl0
{KQ}:
K”K”:
Q”L”
Prog”KD”
Prog”GC”
C”H=”◢
Goto0
4．边桩放样计算主程序BZFY
Fixm
Rad
{Z}:
Z”1.CJ2.QZ3.QS”
Z=2Z[11]=0:
Goto1◣
Z=3Goto1◣
{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
Lbl1
Z=2Goto2◣
{EBFD}:
B”AQ”:
E”S”:
D”HD”:
F”HY”
Rec（E,Z[10]+πB÷180）:
X=Z[8]+I:
Y=Z[9]+J:
Goto3
Lbl2
{EBD}:
E”N”:
B”E”:
D”Z”:
F=0:
X=E:
Y=B
Lbl3
Prog“FQ”
G=D+Z[11]-F:
G”H”◢
Prog“FY”
Goto1
5．线路坐标计算子程序ZB
Prog”YS”
X=74445.797
Y=501515.278
S=771.296-K
B=A+C+π
S>LGoto1◣
I=SSS÷6÷R÷L
J=S-S^5÷（40RRLL）
U=B-SS÷（2RL）-π:
Goto2
Lbl1
U=（2S-L）÷R÷2
I=R（1-cosU）+Z[5]:
J=RsinU+Z[6]
U=B-（S-L÷2）÷R+π
Lbl2
Pol（I,J）:
J=J+B-π÷2
X=Rec（I,J）+X
Y=Y+J
U<0U=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
Lbl1
P=Z[W+7]
K>Z[W]-PW=W+1:
Goto1◣
W=13W=14◣
V=W-1Goto2◣
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]
Lbl2
L=K-Z[V]
L≤-TH=J+RL:
Goto3◣
L≥TH=J+SL:
Goto3◣
A=2T÷（S-R）
X=L+A（R+S）÷2
H=J+XX÷2÷A-ARS÷2
Lbl3
H=H-Z[1]
A=AbsQ
A≤Z[4]C=0:
Goto6◣
I=-1
Q>0I=1◣
Lbl4
Y=23
Lbl5
K≥Z[Y]Y=Y+1:
Goto5◣
O=Z[Y+2]:
X=Z[Y+3]:
O=IO:
X=IX
Z[Y+2]=0O=2◣
Z[Y+3]=0X=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:
Goto6◣
C=0.04（Z[2]-A）-M（Z[2]-Z[4]）÷100
M>4C=（Z[4]-A）M÷100◣
Lbl6
C=H+C
8．反求线路桩号子程序FQ
Prog”YS”
Z[4]=74445.797
Z[3]=501515.278
Z[4]=XZ[3]=YK=771.296:
Q=0:
Goto2◣◣
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
cosK<0Goto1◣
Pol（H-（R+Z[5]）,W-Z[6]）
K=771.296-R（π-J）-L÷2
Q=R-I
Goto2
Lbl1
K=1:
U=L
Prog”HQ”
K=771.296-O:
Q=-Q
Lbl2
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=IcosG:
W=IsinG
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
Lbl7
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）<1E-5Goto8◣
S=O
Goto7
Lbl8
T=KOOO÷6÷U÷R
P=O-O^5÷（40RRUU）
T=HP=WQ=0:
Goto9◣◣
Pol（H-T,W-P）
Q=sin（J+KOO÷2÷R÷U-π÷2）
S=-1
Q>0S=1◣
Q=SI
Lbl9
11．边桩放样计算子程序FY
V=11
U=Q
Prog”KD”
Q=-0.75-Z[2]:
Z[3]=-1
U>0Q=0.75+Z[2]:
Z[3]=1◣
Prog”GC”
X=G-C
X≤0Goto7◣
N=Int（（X-0.1）÷8.9）+1
N>5N=5◣
I=1
Lbl2
O=Z[28+I]
{O}:
O”M”
Z[28+I]=O
I=I+1
I>N+1Goto4◣
Goto2
Lbl4
I=0
W=3.55+Z[2]:
H=0.04
Lbl5
I=I+1
I>N-1Goto6◣
W=W+2+9Z[I+28]
H=H+8.9
Goto5
Lbl6
A=X-H:
A”C=”◢
W=W-AbsU
A≤1P=WZ[3]◢
◣
A≥8P=（9Z[I+28]+W+2）Z[3]◢
◣
A=AZ[I+28]+W
Goto8
Lbl7
X=-X
X≤8A=1.5X+0.75+Z[2]-AbsU◣
X>8X≤12A=12.75+Z[2]+1.75（X-8）-AbsU◣◣
X>12A=14.75+Z[2]+1.75（X-8.04）-AbsU◣
Lbl8
A=AZ[3]
A”DB=”◢
12.路面宽度计算子程序KD
Z[2]=10.5
Z[4]=0.5
K>460K<540Z[4]=0◣◣
AbsQ≤Z[4]Goto6◣
Q>0Goto1◣
K<370.6255I=50:
X=K-370.6255:
Goto2◣
K>430K≤467.384I=41:
X=K-430:
Goto2◣◣
K>467.384K<532.616Goto3◣◣
K≥532.616K<570I=41:
X=570-K:
Goto2◣◣
K>686.596I=35:
X=K-686.596:
Goto2◣
Goto5◣
Lbl1
K<350.4277I=47:
X=K-350.4277:
Goto2◣
K>430K≤463.545I=44:
X=K-430:
Goto2◣◣
K>463.545K<536.455Goto4◣◣
K≥536.455K<570I=44:
X=570-K:
Goto2◣◣
K>686.596I=38:
X=K-686.596:
Goto2◣
Goto5◣
Lbl2
Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:
Goto5
Lbl3
Z[2]=299.104÷sin（1.4543+（K-467.384）÷280）-280:
Goto5
Lbl4
Z[2]=280-267.304÷sin（1.4406+（K-463.545）÷280）
Lbl5
L=Z[2]+0.75:
L”LD=”◢
Lbl6
二、扩展变量设置数值
扩展变量设置实际数值表
名称
福宁线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]
升级会员 