CASTO5800全线竖曲线计算程序供参习.docVIP

CASTO5800全线竖曲线计算程序  5800竖曲线计算程序（主程序）LbI 1: “H? H: ProgSJK”: C-D →F:Abs(RF/2)→T:R(Abs(F )/F)→R :If H≤B-T: Then 0→K : Else If??H≥B+T:??Then??0→K : D →C : Else?? H-B+T→K:??IfEnd????: IfEnd??A-(B-H)C-K∧2/2/R →G:G=;G▲Goto 1 子程序：SJKif ?H第二竖曲线起点桩号（158497.5）：Then第一竖曲线交点高程（380.738）→A：第一竖曲线交点桩号（157150）→B：第一竖曲线前坡比（-0.0115）→C：第一竖曲线后坡比（0.0155）→D：第一竖曲线半径（30000）→R：Goto 1：?IfEnd?????????????if H≦第三竖曲线起点桩号（159375）:Then第二竖曲线交点高程（404.763）→A：第二竖曲线交点桩号 （158700）→B：第二竖曲线前坡比（0.0155）→C：第二竖曲线后坡比（0.002）→D： 第二竖曲线半径（30000）→R:?Goto 1：?IfEnd???????????继续添加要素 FX5800P全线任意里程中边桩坐标正反算（加了数据库） 主程序????????????????ZBJSLbl：1.SZ→ XY：2.XY→ SZ：？S：？N：Prog“SUB0”Lbl0:( P-R)÷(2HPR) →D：180÷π→E:N=1: Then Goto 1:Else Goto 2Lbl?? 1:?Z: Abs(S-O)→W: ProgSUB1:XS=:X◢YS=:Y◢FS=:F-C ?DMS◢ Prog”GC”0→O：？O:O=0=Goto 6 “JL=”?L “JIAO DU=”?A X+LCOS((F)+A)→O:Y+LSIN((F)+A)→V:Cls:”X1=”:Locate4,1,O:”Y1=”:Locate4,2,V:Return:IFend “XC” ?C： “YC” ? E：0→I：0→J：Pol（X-C，Y-E）:“I=”：IIf??J∠0: Then “J=”: J+360?DMS◢IfEndIf??J 0：Then “J=” ：J?DMSIfEnd：Goto 6Lbl 2?X:?Y:X→I:Y→J:ProgSUB2:O+W→S:Cls:S=:S◢Z=:Z◢0→O：？O:O=0=Goto 6 7→Dimz:”SCG=”? →Z〔2〕:”JU Z=”? →Z〔3〕:”GAO CA=” ? →Z〔4〕:“BAN JING=” ? →Z〔5〕:IF Z≤30(左线大于等于-30)：Then”T=”:Abs(Z〔3〕±Z)- Z〔5〕→Z〔6〕◢（分离式路基左为正，右为负) “P=”：Z±Z〔3〕→Z〔1〕◢（分离式路基左为正，右为负) “W=”：( Z〔2〕-G- Z〔4〕)→Z〔7〕◢ “CQW=”：√（ Z〔7〕∧2+ Z〔1〕∧2）)- Z〔5〕◢Goto 6：Retunr:IFend正算子程序?? SUB10.1739274226→A： 0.3260725774→B： 0.0694318442→K： 0.3300094782→L： 1-L→F： 1-K→M：U+W(Acos(G+QEKW(+KWD))+Bcos(G+QELW(1/P+LWD))+Bcos(G+QEFW(1/P+FWD))+Acos(G+QEMW(1/p+MWD)))→X： V+W(Asin(G+QEKW(+KWD))+Bsin(G+QELW(1/P+LWD))+Bsin(G+QEFW(1/P+FWD))+Asin(G+QEMW(1/P+MWD))) →Y：G+QEW(+WD)+90→F： X+Zcos（F）→X： Y+Zsin（F）→Y反算子程序??SUB2 G-C→TAbs (Y-V)cosT-(X-U)sin(T) →W:0→Z:Lbl0：Prog SUB1T+QEW(+WD) →L： (J-Y)cos（L）-(I-X)sin（L）→ZIF Abs（Z）1E-6：Then GotoElse W+Z→W：Goto:IfEnd Lbl1:0→Z:Prog SUB1:(J-Y)÷sin（F）→ZProgSJK”: I-D →W:Abs(RW/2)→T:R(Abs(W )/W)→R :If S≤B-T: Then 0→K : Else If??S≥B+T:??Then??0→K : D →I : Else?? S-B+T→K:??IfEnd????: IfEnd??↙A-(B-S)I-K∧2/2/R →G