《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Q>0?Q=I:≠?Q=-I? Lbl 2? K=Z[37]+B?
B≤0?K=K+@:≠?K=K-@:Q=-Q?
14．边线放样计算子程序ZF U=Q? Prog”ZL”?
U≤0?Q=-Z[44]-Z[45]-Z[46]:Z[39]=-1:≠?Q=Z[48]+Z[47]+Z[46]:Z[39]=1? Prog ”GG”? Z[38]=Abs Q? C=C+Z[1+Z[1]]? X=G-C? Prog”ZP”? Z[14]?1?Goto 3? M I=1:H=Z[32]+Z[46]Z[35]-MZ[33]÷100? W=Z[38]+Z[33]+Z[34]+Z[46]? Lbl 1? H=H+Z[2I+45]? W=W+Z[2I+45]Z[2I+46]? X≤H?Goto 2? I=I+1? I>7?I=7:Goto 2? H=H-Z[36]Z[37]:W=W+Z[36]? Goto 1? Lbl 2? A=X-H? W=W+AZ[2I+46]? C=A+Z[2I+45]? 26 《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 P=W-CZ[2I+46]-Abs U? A=W-Abs U? Goto 6? Lbl 3? I=1:H=0:W=Z[38]? Lbl 4? H=H-Z[2I+46]? W=W+Z[2I+46]Z[2I+47]? X≥H?Goto 5? I=I+1? I>3?I=3:Goto 5? H=H-Z[46]Z[47]:W=W+Z[46]? Goto 4? Lbl 5? A=X-H? W=W-AZ[2I+47]? C=A-Z[2I+46]? P=W+CZ[2I+47]-Abs U? A=W-Abs U? Lbl 6? A=AZ[39]? P=PZ[39]:M=1000? “TP=”:Int (MP+.5)÷M◢ “TC=”:Int (MC+.5)÷M◢ “DB=”:Int (MA+.5)÷M◢ 15.路面宽度计算子程序ZL Z[1]=Int Z[1]? Z[1]>6?Z[1]=6? Z[1]<1?Z[1]=1? 27 《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 N=Z[78+Z[1]]:H=Z[114+Z[1]]:W=H+1? Lbl 0? W>H+N-1?W=H+N-1:Goto 1? K>Z[W]?W=W+1:Goto 0? Lbl 1? Z=(Z[W]-K)÷(Z[W]-Z[W-1])? Z[44]=Z[W+N]+Z(Z[W-1+N]-Z[W+N])? Z[45]=Z[W+2N]+Z(Z[W-1+2N]-Z[W+2N])? Z[46]=Z[W+3N]+Z(Z[W-1+3N]-Z[W+3N])? Z[47]=Z[W+4N]+Z(Z[W-1+4N]-Z[W+4N])? Z[48]=Z[W+5N]+Z(Z[W-1+5N]-Z[W+5N])? Z[46]=Z[46]÷2? Z[31]=Z[114+Z[1]]:Z[31]=100Z[Z[31]-1] 16.边坡情况计算子程序ZP Z[14]?1?I=8:Goto 4? U≤0?H=Z[120+Z[1]]:N=Z[84+Z[1]]? U>0?H=Z[126+Z[1]]:N=Z[90+Z[1]]? W=H+1:I=15? Lbl 0? W>H+N-1?W=H+N-1:Goto 1? K>Z[W]?W=W+1:Goto 0? Lbl 1? Z=(Z[W]-K)÷(Z[W]-Z[W-1])? Lbl 2? Z[45+I]=Z[W+IN]+Z(Z[W-1+IN]-Z[W+IN])? Dsz I? Goto 2? I=6? Lbl 3? 28 《CASIO fx-4850P线路计算9.0版·匝道版》程序设计 作者：徐光辉 2004年9月26日 Z[31+I]=Z[174+I+6Z[1]]? Dsz I? Goto 3? Goto 5? Lbl 4? Z[45+I]=Z[124+I+8Z[1]]? Dsz I? Goto 4? Lbl 5 29