CASIO程序线路计算60版附加Word文档格式.docx
《CASIO程序线路计算60版附加Word文档格式.docx》由会员分享，可在线阅读，更多相关《CASIO程序线路计算60版附加Word文档格式.docx（14页珍藏版）》请在冰豆网上搜索。
Prog”ZB”:
X=X+Rec（Q,U+πG÷
180）:
Y=Y+J
X”X=”◢
Y”Y=”◢
O=1U=180U÷
π:
U”AT=”◢
◣
3．线路高程计算主程序XLGC
V=11:
Lbl0
K”K”:
Q”L”
Prog”KD”
Prog”GC”
C”H=”◢
Goto0
4．边桩放样计算主程序BZFY
{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
Z=2Goto2◣
{EBFD}:
B”AQ”:
E”S”:
D”HD”:
F”HY”
Rec（E,Z[10]+πB÷
X=Z[8]+I:
Y=Z[9]+J:
{EBD}:
E”N”:
B”E”:
D”Z”:
F=0:
X=E:
Y=B
Prog“FQ”
G=D+Z[11]-F:
G”H”◢
Prog“FY”
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
U=（2S-L）÷
2
I=R（1-cosU）+Z[5]:
J=RsinU+Z[6]
U=B-（S-L÷
2）÷
R+π
Pol（I,J）:
J=J+B-π÷
X=Rec（I,J）+X
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
P=Z[W+7]
K>
Z[W]-PW=W+1:
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]
L=K-Z[V]
L≤-TH=J+RL:
Goto3◣
L≥TH=J+SL:
A=2T÷
（S-R）
X=L+A（R+S）÷
H=J+XX÷
2÷
A-ARS÷
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:
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
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+π÷
Prog”ZH”
G=LL÷
R:
Q=L-LLL÷
40÷
R
Pol（G-H,Q-W）:
K=J+π÷
2+L÷
cosK<
0Goto1◣
Pol（H-（R+Z[5]）,W-Z[6]）
K=771.296-R（π-J）-L÷
Q=R-I
K=1:
U=L
Prog”HQ”
K=771.296-O:
Q=-Q
M=1000
K=Intg（MK+0.5）÷
M
Q=Intg（MQ+0.5）÷
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÷
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÷
U÷
P=O-O^5÷
（40RRUU）
T=HP=WQ=0:
Goto9◣◣
Pol（H-T,W-P）
Q=sin（J+KOO÷
U-π÷
2）
S=-1
0S=1◣
Q=SI
Lbl9
11．边桩放样计算子程序FY
V=11
U=Q
Q=-0.75-Z[2]:
Z[3]=-1
U>
0Q=0.75+Z[2]:
Z[3]=1◣
X=G-C
X≤0Goto7◣
N=Int（（X-0.1）÷
8.9）+1
N>
5N=5◣
I=1
O=Z[28+I]
O”M”
Z[28+I]=O
I=I+1
N+1Goto4◣
I=0
W=3.55+Z[2]:
H=0.04
N-1Goto6◣
W=W+2+9Z[I+28]
H=H+8.9
Goto5
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
X=-X
X≤8A=1.5X+0.75+Z[2]-AbsU◣
X>
8X≤12A=12.75+Z[2]+1.75（X-8）-AbsU◣◣
12A=14.75+Z[2]+1.75（X-8.04）-AbsU◣
A=AZ[3]
A”DB=”◢
12.路面宽度计算子程序KD
Z[2]=10.5
Z[4]=0.5
460K<
540Z[4]=0◣◣
AbsQ≤Z[4]Goto6◣
K<
370.6255I=50:
X=K-370.6255:
Goto2◣
430K≤467.384I=41:
X=K-430:
467.384K<
532.616Goto3◣◣
K≥532.616K<
570I=41:
X=570-K:
686.596I=35:
X=K-686.596:
350.4277I=47:
X=K-350.4277:
430K≤463.545I=44:
463.545K<
536.455Goto4◣◣
K≥536.455K<
570I=44:
686.596I=38:
Z[2]=Z[I]XXX+Z[I+1]XX+Z[I+2]X+10.5:
Z[2]=299.104÷
sin（1.4543+（K-467.384）÷
280）-280:
Z[2]=280-267.304÷
sin（1.4406+（K-463.545）÷
280）
L=Z[2]+0.75:
L”LD=”◢
二、扩展变量设置数值
扩展变量设置实际数值表
名称
福宁线A14-A
变坡点数目b
起超点数目c
3
台阶数目d
6
导线点数目e
10
曲线方程数f
变量总数目
72
Z[1]
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]
Z[24]
686.596
Z[25]
771.296
Z[26]
Z[27]
Z[28]
Z[29]
第一边坡坡度
Z[30]
第二边坡坡度
Z[31]
第三边坡坡度
Z[32]
第四边坡坡度
Z[33]
第五边坡坡度
Z[34]
第六边坡坡度
Z[35]
4.36072E-07
扩展变量设置实际数值表（续表）
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]
升级会员 