CASIOfx4850多交点道路平曲线程序Word文档格式.docx
《CASIOfx4850多交点道路平曲线程序Word文档格式.docx》由会员分享，可在线阅读，更多相关《CASIOfx4850多交点道路平曲线程序Word文档格式.docx（52页珍藏版）》请在冰豆网上搜索。
LbI8:
G=T-1:
H=G:
U=G:
6
D=G:
﹛YXUHGD﹜:
Prog“AF”:
“SHURUZB”:
Z［7T+Q+13］=Y“X3”:
Z［7T+Q+14］
7
=X“Y3”:
Prog“AL”:
Prog“AG”:
Prog“AH”:
Prog“A”:
IszT:
Y=T:
X=T:
DszZ:
Goto8:
8
LbI5:
fixm:
﹛NOKL﹜:
Prog“H”:
Prog“AI”:
9
LbIF:
﹛FS﹜:
F“ZHUANGHAO”:
F=π=>
GotoA⊿S“D”:
Prog“P1”:
1Ø
V=K+9Ø
:
（此处9Ø
为边桩交角）Prog“C1”:
Prog“F1”:
GotoF:
11
LbI7:
﹛FZE﹜:
F“ZHUANGHAO1”:
GotoA⊿O=Ø
LbI4:
IszO:
12
Prog“P2”:
AbsL＞Ø
.Ø
Ø
1=>
Goto4⊿Prog“P3”:
“CISHU=”:
O◢Goto7（主程序结束）
ZADAOFANGYANG（匝道放样主程序）（478步）
Deg:
｛M｝:
M“1SURU-6YIZB-7FY-8FS”=7=>
Goto2⊿
M=6=>
Goto5⊿M=8=>
Goto3⊿LbI6:
Fixm:
｛ZL｝:
Z“JIZUXIANXIN”:
Z＞14=>
Goto6⊿
Z［12Ø
+Q］=Z:
T=3:
L“1-JISUAN2-SHURU”=2=>
Goto4⊿Fixm:
｛WGHD｝:
Prog“D”:
LbI1:
A=T-2:
B=A:
U=A:
｛ABU｝:
Prog“E”:
S=Ø
Prog“C”:
Prog“C1”:
Prog“A”:
Prog“AB”:
Prog“B”:
DszZ:
Goto1:
Goto5:
LbI2:
｛FS｝:
F“ZHUANGHAO”:
Prog“C2”:
Prog“F1”:
Goto2:
LbI4:
Fixm:
｛WGHDABU｝:
Prog“E”:
W=W+L:
Goto4:
Goto5:
Fixm:
｛NOKL｝:
Goto2
｛FZE｝:
GotoA⊿O=Ø
:
K=V-9Ø
Prog“P2”:
1=>
Goto7⊿Prog“P3”:
“CISHU=”:
O◢Goto3（主程序结束）
SQXZU（竖曲线放样主程序）（776步）
T“WENJIANMING”:
5（T-1）:
LbIE:
﹛J﹜:
J“1SURU7FY”=7=>
GotoG⊿J≠1=>
GotoE⊿
LbI9:
﹛Z﹜:
Z<
Z[Q+12Ø
T=3:
Z［7T+Q-1］=C“QD-ZUANHAO”:
Z［7T+Q］=E“QD-H”:
Z［7T+Q+6］=A“ZUANHAO2”:
Z［7T+Q+7］=B“H2”:
X=3:
LbI8:
R=T-1:
﹛YXR﹜:
G=（Z［7T+Q+7］-Z［7T+Q］）÷
（Z［7T+Q+6］-Z［7T+Q-1］+[Exp]-3Ø
Z［7T+Q+13］=Y“ZUANHAO3”:
Z［7T+Q+14］=X“H3”:
H=（X-Z［7T+Q+7］）÷
（Y-Z［7T+Q+6］+
E-3Ø
U=2R+[EXP]-3Ø
P=G-H:
“T=”:
.5RAbsP◢P=-P÷
AbsP:
“E=”:
E=S2÷
U◢
“SQXQD=”:
W=Z［7T+Q+6］-S◢“SQXZD=”:
D=Z［7T+Q+6］+S◢
O“LUKUANG”N“PODU”:
Fixm:
LbIG:
﹛VE﹜:
V“YIQIH”E“MIANXIAQUh”:
GotoG⊿S“D”:
Prog“AK”:
Z=G-H:
Z=-Z÷
AbsZ:
X=B+G（F-A:
Y=B-H（A-F:
“ZHONGXIANMIANH=”:
F<
W=>
X◢≠>
A=>
X=X+Z
13
（F-W）2÷
C◢≠>
D=>
Y=Y+Z（D-F）2÷
C◢≠>
Y◢⊿⊿⊿X=Ans:
Prog“AJ”
14
H=ON÷
2:
“BIANXIANMIANH=”:
X=X-4HS2÷
（O2+[EXP]-3Ø
◢“SHIJIH=”:
X=X-E◢
15
“BIAOCHIh=”:
L=V-X◢GotoF（主程序结束）（[Exp]-3Ø
中[E]是用按键『EXP』输入）
注：
4HS2÷
（O2是二次抛物线公式，其中H，S，O分别对应道路横断面公式里的,,B。
可以参照更改。
A（平、匝、竖公用子程序）（76步）
Z［7T+Q+1］=G:
Z［7T+Q+2］=H:
Z［7T+Q+3］=U:
Z［7T+Q+4］=D:
Z［7T+Q+5］=W
AB（匝道子程序）（96步）
Z［7T+Q+6］=A:
Z［7T+Q+7］=B:
Z［7T+Q+8］=X:
Z［7T+Q+9］=Y:
Z［7T+Q+11］=V-9Ø
Z［7T+Q+12］=W+L
AF（平曲线子程序）（65步）
Pol（Z［7T+Q+6］-Z［7T+Q-1］，Z［7T+Q+7］-Z［7T+Q］+[Exp]-3Ø
R=J
AG（平曲线子程序）（3Ø
7步）
Z[2]=P÷
AbsP:
P=AbsP:
G=G“R”+[Exp]-5:
Z[19]=G+H“LS1”²
÷
24G-H∧4÷
2688G∧3:
X=H÷
2-H∧3÷
24Ø
G2:
Z[1Ø
]=X:
M=G+U“LS2”2÷
24G-U∧4÷
Z[18]=M:
Y=U÷
2-U∧3÷
Z[11]=Y:
Z[1]=X+（M-Z[19]CosP）÷
SinP:
Z[5]=Y+（Z[19]-MCosP）÷
M=πGP÷
18Ø
+.5（H+U:
Z[16]=M:
W=D“JDZUANGBHAO”-Z[1]:
Z[14]=W+H:
Z[15]=Z[14]+.5（M-U-H:
I=W+M-U:
M=W+M
AH（平曲线子程序）（136步）
J=Z[2]P:
“>
ZHUANZHEJIAO=”:
J→DMS◢“T1=”:
Z[1]◢“T2=”:
Z[5]◢“LS1+LSY+LS2=”:
Z[16]◢“ZH=”:
W◢“HY=”:
Z[14]◢“QZ=”:
Z[15]◢“YH=”:
I◢“HZ=”:
M◢
AI（平、匝、竖公用子程序）（61步）
Z［Q+121］=N:
Z［Q+122］=O:
Z［Q+123］=K:
Z［Q+124］=L
AJ（平、匝、竖公用子程序）（61步）
N=Z［Q+121］:
O=Z［Q+122］:
K=Z［Q+123］:
L=Z［Q+124］
AK（平、匝、竖公用子程序）（65步）
LbIG:
F≥Z［7T+Q+5］=>
T＜Z［Q+12Ø
］+3=>
GotoG⊿⊿T=T-1:
T≤3=>
T＞Z［Q+12Ø
T=Z［Q+12Ø
］+2⊿⊿
AL（平曲线子程序）（122步）
Pol（Z［7T+Q+13］-Z［7T+Q+6］，Z［7T+Q+14］-Z［7T+Q+7］+[Exp]-3Ø
P=J-R:
R<
=>
R=R+36Ø
⊿
P>
P=P-36Ø
⊿P<
-18Ø
P=P+36Ø
⊿P=P+[Exp]-3Ø
B（平、匝、竖公用子程序）（1Ø
1步）
G=Z［7T+Q+1］:
H=Z［7T+Q+2］:
C=Z［7T+Q+3］:
D=Z［7T+Q+4］:
W=Z［7T+Q+5］:
A=Z［7T+Q+6］:
B=Z［7T+Q+7］
C（匝道子程序）（复化幸普森积分公式）（148步）
P=AbsC÷
C:
C=AbsC:
V=D+P（AL+L2÷
2C×
（B-A））r+9Ø
Rad:
X=L:
Y=H+∫（（Sin（Dº
+P（AX+X2÷
（B-A+[Exp]-1Ø
，Ø
，X，4:
X=G+∫（（Cos（Dº
Deg:
C+（匝道子程序）（高斯-勒让德五点积分公式）（323步）
I=Ø
.118463442528:
J=Ø
.23931433525:
K=Ø
.28444444444:
M=Ø
4691Ø
77:
N=Ø
.23Ø
7653449:
R=PLrA:
V=PLr2÷
（2C）r×
（B-A:
Z[1]=D+MR+M2V:
Z[2]=D+NR+N2V:
Z[3]
升级会员 