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

《吉草高速公路C04合同段平曲线计算程序ForCasio5800.doc》由会员上传分享，免费在线阅读，更多相关内容在应用文档-天天文库。

1、[转]吉草高速公路C04合同段平曲线计算程序ForCasio58002010-12-26吉草高速公路C04合同段平曲线计算程序ForCasio5800主程序：QXZB5→DimZ“X0”?G:“Y0”?WLb10:“Z-1,Y+1”?PIfP<0:ThenProp“DATEZ”:ElseProp“DATEY”:IfEnd:Prop“ZZ”:Goto0子程序：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、÷2-V^3÷240÷R^2→Z[1]:IfLK+B:Then“END”◢Stop:IfEndIfL≤K+V:ThenProg“HH1”:ElseIfL≤K+B-V:ThenProg“YUANQX”:ElseIfL≤K+B:ThenProg“HH2”:IfEnd:IfEnd:IfEnd子程序:HH130(L-K)^2÷π÷R÷V→M:(L-K-(L-K)^5÷40÷R^2÷V^2)÷cosM→SZ+EM→U:Z+3EM+O→TC+ScosU+FcosT→X:D+SsinU+FsinT

3、→YProg“FW”子程序：YUANQX30V÷π÷R→M:(V-V^3÷40÷R^2)÷cosM→Q:Z+EM→U:C+QcosU→X:D+QsinU→Y90(L-K-V)÷π÷R→H:2RsinH→TZ+3EM+EH→S:S+EH+O→NX+TcosS+FcosN→X:Y+TsinS+FsinN→Y:Prog“FW”子程序:HH230(B+K-L)^2÷π÷R÷V→M:(B+K-L-(B+K-L)^5÷40÷R^2÷V^2)÷cosM→SZ+EA+180-EM→U:Z+EA→N:Z+EA-3

4、EM+O→TC+Z[1]cosZ+Z[1]cosN+ScosU+FcosT→XD+Z[1]sinZ+Z[1]sinN+SsinU+FsinT→YProg“FW”子程序：FWPol((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=”:JDMS◢子程序：DATEZ“L”?:LIfL≤144025.61:Then2×144025.61-L→L:-1→E:

5、424717.225→C:520280.347→D:1205.5→R：200→V:4°45′10″→A:144025.61→K:84°27′05″→Z：：ElseIfL≤146815.516:Then-1→E:4824717.225→C：520280.347→D:2180→R:250→V:66°45′18″→A:144025.61→K:264°27′05″→Z：ElseIfL≤147015.516:Then1→E:4823078.115→C：518250.875→D:1105.5→R:200→V

6、:32°10′40″→A:146815.516→K:197°41′47″→Z：ElseIfL≤147100:ThenL-39.42→L:1→E：4823078.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”?LIfL≤144069.288:Then2×144069.288-L→L：-1→E：4824728.395→C:520234

7、.489→D:1194.5→R：200→V:6°53′30″→A:144069.288→K：86°35′25″→Z：ElseIfL≤146825.73:Then-1→E:4824728.395→C:520234.489→D:2020→R：250→V:71°05′36″→A：144069.288→K:266°35′25″→Z：ElseIfL≤147054.936:Then1→E:4823122.868→C:518248.749→D:1094.5→R:200→V:34°27′18″→A:146825

8、.73→K:195°29′49″→Z：ElseIfL≤147100:Then1→E:4823122.868→C:518248.749→D:1094.5→R：200→V:34°27′18″→A:146825.73→K:195°29′49″→Z：IfEnd:IfEnd:IfEnd:IfEnd说明：运行程序QXZB，X0，Y0为输入置镜点坐标P输入－1调用左线数据库，P输入＋1调用右线数据库，L输入计算点的里程，显示L实际计算里程O输入计算点与线路中线的偏向角度，以线路前进方向为0°，顺时针方向为正。