資源描述：
《全線高程程序(含修改)》由會員上傳分享，免費在線閱讀，更多相關(guān)內(nèi)容在教育資源-天天文庫。
1、CASIO4800公路高程計算程序(計算任一點中邊樁高程，輸入樁號即可）[b]作者：陳heming 浙江共司令有了它，上工地時，告別圖紙，資料（高程）[/b]ZDGC(程序名）１V“Change0-OnlyOne:1-AutoNextOne”（回車）２V=1=>L=1000K+M-20:≠>V﹥1=>Prog“ZDGC”⊿⊿(如V取1,則將自動計算每隔20M)3 Lbl04V=1=>L=L+20:Goto1⊿(要得到10M一個樁的高程,把20改成10就可.或則在運行時取v=0即可，就是每次要輸入樁號)5{K，M}6L=1000K+M7Lbl
2、18Prog“G”9??Prog“SQX”10??Prog“G1”11??Prog“PQX-H”12Goto0（１－１2為步號，在輸入４８００時，不要輸，步號間用回車．下同）主程序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、２為默認橫披值)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.默認中央分隔帶為2M)10Prog“XS1”子程序1（豎曲線引導程序）G(程序名）1L≤123456=>Prog“Ｊ1”:Goto1:⊿（123456為第一豎曲線終點樁號）2L≤123457=>Prog“Ｊ2”:Goto1:⊿（123457為第二豎曲線終點樁號）3***************4L≤123458=>Prog“Ｊ3”⊿（123458為公路終點樁號）5F＞123458=>“INPUTL≤123458”:Prog“ZDGC”：⊿（123458為公路
5、終點樁號）6Lbl1子程序2（平曲線引導程序）G1(程序名）1L≤735.53=>Prog“4”:Goto1:⊿（735.53為第一平曲線超高終點樁號）2L≤123457=>Prog“5”:Goto1:⊿（123457為第二平曲線超高終點樁號）3***************4L≤123458=>Prog“6”⊿（123458為公路終點樁號）5Lbl1(其中的＂１＂，＂２＂．．．與＂４＂，＂５＂．．．分別代表豎曲線與平曲線要素程序，如一條線路上有８個豎曲線，則在豎曲線引導程序中一直到Prog“８”為止．)子程序3（豎曲線要素）1(程序名）1
6、R=-18000(豎曲線半徑，凸取負，凹取正)2T=81（豎曲線切線長）3A=330（豎曲線中心樁號）4H=8.98(變坡點高程)5J=0.006（變坡點前縱坡）6I=-0.003（變坡點后縱坡）子程序4（平曲線要素）4(程序名）1B=148(超高緩和曲線長度)2Q=532.29(超高曲線全長度)3C=0.04(超高值)4F=1或-1（曲線右，左參數(shù)）5S=223.24（超高緩和起點樁號）6L>=607.53=>B=128:Q=492.29:S=243.24[color=Black]⊿(此句為不等超高緩和段條件.第一超高緩和段為起點為223
7、.24,長148M,第二超高緩和段為起點為607.53,長128M)[/color]XS1(程序名）1Z“H1”=Z◢(顯示縱斷設計值)2V=0=>Goto0⊿3L◢(當自動計算時顯示樁號)4Lbl05D=0=>Goto1⊿6O“H1L”=O◢(顯示左邊樁值)7P“H1R”=P◢(顯示右邊樁值)8Lbl1此程序用于等超高緩和段與不等超高緩和段的程序．ＱＱ：１７９０３８２２５修改后CASIO4800公路高程計算程序(計算任一點中邊樁高程，輸入樁號即可）主程序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=>
