转]吉草高速公路C04合同段平曲线计算程序ForCasio5800.docVIP

[转] 吉草高速公路C04合同段平曲线计算程序For Casio5800 2010-12-26 主程序：QXZB 5→DimZ “X0”? G:“Y0”? W Lb1 0: “Z -1,Y +1”? P If P 0:Then Prop“DATEZ” :Else Prop“DATEY” :IfEnd :Prop “ZZ”:Goto 0 子程序：ZZ “L”?L:“F”?F:“O”?O:πR×A÷180+2×V→B：（R+V^2÷24÷R-V^4÷2688÷R^3）tan A÷2 +V÷2-V^3÷240÷R^2→Z[1]:If L K+B:Then “END” ◢ Stop:IfEnd If L≤K+V:Then Prog“HH1”: Else If L≤K+B-V:Then Prog“YUANQX”: Else If L≤K+B:Then Prog“HH2” :IfEnd:IfEnd :IfEnd 子程序: HH1 30 L-K ^2÷π÷R÷V→M: L-K- L-K ^5÷40÷R^2÷V^2 ÷cosM→S Z+EM→U: Z+3EM+O →T C+ScosU+FcosT→X: D+SsinU+FsinT→Y Prog“FW” 子程序：YUANQX 30V÷π÷R→M: V-V^3÷40÷R^2 ÷cosM→Q: Z+EM→U:C+QcosU→X: D+QsinU→Y 90 L-K-V ÷π÷R→H: 2RsinH→T Z+3EM+EH→S: S+EH+O→N X+TcosS+FcosN→X: Y+TsinS+FsinN→Y:Prog“FW” 子程序: HH2 30 B+K-L ^2÷π÷R÷V→M: B+K-L- B+K-L ^5÷40÷R^2÷V^2 ÷cosM→S Z+EA+180-EM→U:Z+EA→N:Z+EA-3EM+O→T C+Z[1]cosZ+ Z[1]cosN+ScosU+FcosT→X D+ Z[1]sinZ+ Z[1]sinN+SsinU+FsinT→Y Prog“FW” 子程序：FW Pol X-G , Y-W “X ”: Int 1000×X+0.5 ÷1000→X◢ “Y ”: Int 1000×Y+0.5 ÷1000→Y◢ J 0＝＞J+360→J “JULI ”:I◢ “FANGWEI ”:J DMS◢ 子程序：DATEZ “L”?:L If L≤144025.61:Then 2×144025.61-L→L:-1→E:424717.225→C:520280.347→D:1205.5→R： 200→V:4°45′10″→A:144025.61→K:84°27′05″→Z：：Else If L≤146815.516:Then -1→E:座机电话号码.225→C：520280.347→D:2180→R:250→V:66°45′18″→A:144025.61→K:264°27′05″→Z： Else If L≤147015.516:Then 1→E:座机电话号码.115→C： 518250.875→D:1105.5→R:200→V:32°10′40″→A:146815.516→K:197°41′47″→Z： Else If L≤147100:Then L-39.42→L:1→E： 座机电话号码.115→C:518250.875→D:1105.5→R:200→V: 32°10′40″→A:146815.516→K:197°41′47″→Z： IfEnd: IfEnd: IfEnd: IfEnd 子程序：DATEY “L”?L If L≤144069.288:Then 2×144069.288-L→L： -1→E：座机电话号码.395→C:520234.489→D:1194.5→R：200→V:6°53′30″→A:144069.288→K：86°35′25″→Z： Else If L≤146825.73:Then -1→E:座机电话号码.395→C:520234.489→D:2020→R：250→V:71°05′36″→A：144069.288→K:266°35′25″→Z： Else If L≤147054.936:Then 1→E:座机电话号码.868→C:518248.749→D:1094.5→R:200→V:34°27′18″→A:146825.73→K:195°29′49″→Z： Else If L≤147100:Then 1→E:座机电话号码.868→C:518248.749→D:1094.5→R： 200→V:34°27′18″→A:146825.73→K:195°29′49″→Z：IfEnd: IfEnd: IfEnd: IfEn