《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Pol(X-Z[8],Y-Z[9]):”S=”:Int (1000I+.5)÷1000◢ I=J-Z[30]+Z[15]π÷180? I>2π?I=I-2π? I<0?I=I+2π
?
”A=”:I=180I÷π◢ Goto 1
2．匝道坐标计算主程序ZDZB Z[1]=Int Z[1]? Z[1]>6?Z[1]=6? Z[1]<1?Z[1]=1?
N=Z[60+Z[1]]:H=Z[96+Z[1]]:V=H? Fixm:Rad?
{@}:@”1.ZX 2.BX”? @=1?Q=0? Lbl 1? {K}:K”DK”?
@?1?{QG}:Q”L”:G”AJ”?
Prog ”BZ”:X=X+Rec(Q,U+πG÷180):Y=Y+J ? ”X=”:X ◢ ”Y=”:Y ◢
@=1?U=180U÷π:”AT=”:U ◢ ? Goto 1
3．高程较差计算主程序ZDJC Fixm:Z[43]=Z[102+Z[1]]-1? {E}:E”YG”? Lbl 0?
{KDU}:K”K”:D”DW”:U”QS”?
16
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Q=Z[D+50]? @?0?Prog”ZL”? Prog”CG”? C=C-E+U?
”DH=”:C=Int (1000C+.5)÷1000◢ Goto 0
4．匝道高程计算主程序ZDGC Fixm:Z[43]=Z[102+Z[1]]-1? Lbl 0?
{KQ}:K”DK”:Q”WL”? Q?0?Prog ”ZL”? Prog ”CG”? ”H=”:C◢ Goto 0
5． 边线放样计算主程序ZDBX Fixm:Rad?
@=Z[12]:{@}:@”JCJS:1.BP 2.GC”:Z[12]=@? @=Z[13]:{@}:@”YQ:1.CJY 2.QZY”:Z[13]=@? @=2?Z[16]=0:Goto 1?
E=Z[8]:D=Z[9]:{ED}:E”XZ”:D”YZ”:Z[8]=E:Z[9]=D? F=Z[10]:B=Z[11]:{FB}:F”XH”:B”YH”:Z[10]=F:Z[11]=B? G=Z[17]:S=Z[15]:{GS}:G”HZ”:S”AH”:Z[15]=S:Z[17]=G:Q=0? Pol(Z[10]-Z[8],Z[11]-Z[9]):Z[30]=J-πZ[15]÷180? Z[16]=Z[17]? Lbl 1?
Z[13]=2?Goto 2?
E=Z[18]:B=Z[19]:F=Z[20]:D=Z[21]? {EBFD}:B”AQ”:E”S”:D”HD”:F”HY”?
17
《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Z[18]=E:Z[19]=B:Z[20]=F:Z[21]=D:Z[24]=F:Z[23]=D? Rec(E,Z[30]+πB÷180):”X=”:X=Z[8]+I◢ “Y=”:Y=Z[9]+J◢ Goto 3? Lbl 2?
E=Z[41]:B=Z[42]:D=Z[22]?
{EBD}:E”N”:B”E”:D”Z”:X=E:Y=B? Z[41]=E:Z[42]=B:Z[22]=D:Z[23]=D:Z[24]=0? Lbl 3?
Z[12]=1?@=Z[14]:{@}:@”BP:1.W 2.T”:Z[14]=@? Prog “FZ”?
”H=”:G=Z[23]+Z[16]-Z[24]◢ Z[43]=Z[102+Z[1]]-1?
Z[12]=1?Prog“ZF”:??Prog”ZL”:Prog”CG”:X=C-G:”DH=”:Int (1000X+.5)÷1000◢ ? Goto 1
6． 匝道桩号反求主程序ZDFQ Fixm:Rad? Lbl 0?
{XY}:X”DX”:Y”DY” ? Prog”FZ”? Goto 0
7． 匝道坐标计算子程序BZ W=H+1? Lbl 0?
K W>H+N-1?W=H+N-1:Goto 1? K>Z[W]?W=W+1:Goto 0? 18 《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Lbl 1? V=W?Goto 2? V=W? Prog “CS”? Lbl 2? Z=K? Prog “ZD” 8．匝道参数计算子程序CS U=Z[H-1]:X=Z[H-3]:Y=Z[H-2]? W=V-H? Lbl 0? Z[31]=X? Z[32]=Y? Z[33]=U? Z[36]=Z[V-W+N+1]? Z[37]=Z[V-W]? Z[34]=Z[V-W+1]? Z[35]=Z[V-W+N]? Dsz W? Goto 1? Goto 2? Lbl 1? Z=Z[34]? Prog “ZD”? Goto 0? Lbl 2 9．匝道分段计算子程序ZD A=Z[33]:M=Z[34]:R=Z[35]? 19 《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 P=Z[36]:L=Z[37]? S=Z-L? R=P?R=0?Goto 1R=P?R≠0?Goto 2Z=1? P C=Abs(J÷(P-R))? J=0?C=1? J=ZJR÷(P-R)? I=J+SZ? U=A+S(J+I)÷2÷C? S=A-ZJJ÷2÷C? Y=I-J-(I^5-J^5)÷40÷C÷C+(I^9-J^9)÷3456÷C^4-(I^13-J^13)÷599040÷C^6? I=(III-JJJ)÷6÷C-(I^7-J^7)÷336÷C^3+(I^11-J^11)÷42240÷C^5-(I^15-J^15)÷9676800÷C^7? X=Z[31]+ZYCos S-Isin S? Y=Z[32]+ZYSin S+Icos S? Goto 3? Lbl 1? X=Z[31]+Scos A? Y=Z[32]+Ssin A? U=A? Goto 3? Lbl 2? U=SP+A? X=Z[31]+(Sin U-Sin A)÷P? Y=Z[32]-(Cos U-Cos A)÷P? Lbl 3? U<0?U=U+2πU>2π?U=U-2π ? ? ? 20