全線高程程序(含修改)

《全線高程程序(含修改)》由會(huì)員上傳分享，免費(fèi)在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。

1、CASIO4800公路高程計(jì)算程序(計(jì)算任一點(diǎn)中邊樁高程，輸入樁號(hào)即可）[b]作者：陳heming　浙江共司令有了它，上工地時(shí)，告別圖紙，資料（高程）[/b]ZDGC(程序名）１V“Change0-OnlyOne:1-AutoNextOne”（回車）２V=1=>L=1000K+M-20:≠>V﹥1=>Prog“ZDGC”⊿⊿(如V取1,則將自動(dòng)計(jì)算每隔20M)3　Lbl04V=1=>L=L+20:Goto1⊿(要得到10M一個(gè)樁的高程,把20改成10就可.或則在運(yùn)行時(shí)取v=0即可，就是每次要輸入樁號(hào))5{K，M}6L=1000K+M7Lbl

2、18Prog“G”9??Prog“SQX”10??Prog“G1”11??Prog“PQX-H”12Goto0（１－１2為步號(hào)，在輸入４８００時(shí)，不要輸，步號(hào)間用回車．下同）主程序2SQX(程序名）1N=A-T2W=A+T3U=Abs(A-L)4L≤N=>Z=H-JU:Goto1⊿5L≤A=>Z=H-JU+(L-N)2(平方)/(2R):Goto1⊿6L≤W=>Z=H+IU+(W-L)2(平方)/(2R):Goto1⊿7L>W=>Z=H+IU⊿8Lbl1主程序3PQX-H(程序名）1L≤S=>E=0.02:G=E:Goto1⊿(其中Ｅ＝．０

3、２為默認(rèn)橫披值)2L≤(S+B)=>E=0.02-(L-S)/B×(0.02+C):G=-E:Abs(E)≤0.02=>G=0.02:⊿Goto1:⊿3L≤(S+Q-B)=>E=-C:G=-E:Goto1⊿4L≤(S+Q)=>E=0.02-(S+Q-L)/B×(0.02+C):G=-E:Abs(E)≤0.02=>G=0.02:⊿Goto1:⊿5L＞(S+Q)=>E=0.02:G=E⊿6Lbl17{D}（輸入邊樁距中樁距離）8D=99=>Prog“ZDGC”⊿9F=1=>O=Z-(D-1)E:P=Z-(D-1)G:≠>F=-1=>O=Z-(D

4、-1)G:P=Z-(D-1)E⊿⊿((D-1)中，把１改成0．５則中央分隔帶為１M.默認(rèn)中央分隔帶為2M)10Prog“XS1”子程序1（豎曲線引導(dǎo)程序）G(程序名）1L≤123456=>Prog“Ｊ1”:Goto1:⊿（123456為第一豎曲線終點(diǎn)樁號(hào)）2L≤123457=>Prog“Ｊ2”:Goto1:⊿（123457為第二豎曲線終點(diǎn)樁號(hào)）3***************4L≤123458=>Prog“Ｊ3”⊿（123458為公路終點(diǎn)樁號(hào)）5F＞123458=>“INPUTL≤123458”:Prog“ZDGC”：⊿（123458為公路

5、終點(diǎn)樁號(hào)）6Lbl1子程序2（平曲線引導(dǎo)程序）G1(程序名）1L≤735.53=>Prog“4”:Goto1:⊿（735.53為第一平曲線超高終點(diǎn)樁號(hào)）2L≤123457=>Prog“5”:Goto1:⊿（123457為第二平曲線超高終點(diǎn)樁號(hào)）3***************4L≤123458=>Prog“6”⊿（123458為公路終點(diǎn)樁號(hào)）5Lbl1(其中的＂１＂，＂２＂．．．與＂４＂，＂５＂．．．分別代表豎曲線與平曲線要素程序，如一條線路上有８個(gè)豎曲線，則在豎曲線引導(dǎo)程序中一直到Prog“８”為止．)子程序3（豎曲線要素）1(程序名）1

6、R=-18000(豎曲線半徑，凸取負(fù)，凹取正)2T=81（豎曲線切線長）3A=330（豎曲線中心樁號(hào)）4H=8.98(變坡點(diǎn)高程)5J=0.006（變坡點(diǎn)前縱坡）6I=-0.003（變坡點(diǎn)后縱坡）子程序4（平曲線要素）4(程序名）1B=148(超高緩和曲線長度)2Q=532.29(超高曲線全長度)3C=0.04(超高值)4F=1或-1（曲線右，左參數(shù)）5S=223.24（超高緩和起點(diǎn)樁號(hào)）6L>=607.53=>B=128:Q=492.29:S=243.24[color=Black]⊿(此句為不等超高緩和段條件.第一超高緩和段為起點(diǎn)為223

7、.24,長148M,第二超高緩和段為起點(diǎn)為607.53,長128M)[/color]XS1(程序名）1Z“H1”=Z◢(顯示縱斷設(shè)計(jì)值)2V=0=>Goto0⊿3L◢(當(dāng)自動(dòng)計(jì)算時(shí)顯示樁號(hào))4Lbl05D=0=>Goto1⊿6O“H1L”=O◢(顯示左邊樁值)7P“H1R”=P◢(顯示右邊樁值)8Lbl1此程序用于等超高緩和段與不等超高緩和段的程序．ＱＱ：１７９０３８２２５修改后CASIO4800公路高程計(jì)算程序(計(jì)算任一點(diǎn)中邊樁高程，輸入樁號(hào)即可）主程序1GAO(程序名）Lbl1Prog“E1”Prog“SQX”Prog“PQX-H”“H

8、1=”：Z▲“H1L=”：O▲“H1R=”：P▲Goto1主程序2SQX(程序名）1N=A-T2W=A+T3U=Abs(A-L)4L≤N=>Z=H+JU:Goto1⊿5L≤A=>