1、.路基高填高挖單級多級坡度邊線放樣控制程序1. 取點放樣控制主程序(命名為TWFS)第1行：”X1=”? C:”Y1=”?D: ”H1=”?G: ”K1=”?K第2行：Lbl  0:Prog “A”第3行：Pol(C-N,D-E):Icos(F-J)S:K+SK第4行：Abs(S)>0.0001=>Goto 0第5行：”K1=”:K第7行：”BIAN=”:Isin(J-F)Z第6行：”HS=” ? H: ”HP=” ? Q:G-HH(輸入反算點K的設(shè)計標高和對應(yīng)路基橫坡，如標準橫坡輸入0.02)第7行：Prog “BP”X1取樣點的X坐標Y1取樣點的Y坐標H1取

2、樣點的標高K1輸入時為計算起始點(在線路內(nèi)即可)，輸出時為反算點的樁號HS取樣點處的設(shè)計標高HP取樣點的橫坡，以設(shè)計線向左右兩側(cè)，坡降為正，因挖方路基的碎落臺寬度或填方路基的路肩寬度一般較小，全部以路基橫坡計算，對放樣影響不大，若較大須對邊坡子程序進行調(diào)整Z偏距（左負右正）2. 計算坐標子程序(命名為XYF)   為了簡潔，本程序由數(shù)據(jù)庫直接調(diào)用，上述中的正反算主程序不直接調(diào)用此程序第1行：K-AS：(Q-P)÷LI第2行：N+(cos(F+X(2P+XI)×90÷),0,S)N第3行：E+(sin(F+X(2P+XI)×90

3、7;),0,S)E第4行：F+S(2P+SI)×90÷F3. 數(shù)據(jù)庫（命名為A）第1行：K175.191=>Stop（超出后顯示Done）第2行：175.191A:428513.730N:557954.037E:92°2640F:0P:1/240Q:70.417L: KA+L =>GoTo 1（第一緩和曲線）第3行：245.607A: 428507.298N:558024.092E: 100°5059.4F: 1/240P:1/240Q:72.915L: KA+L =>Goto 1（圓曲線）第4行：318.522A: 428482.98

4、8N:558092.538E: 118°1525.2F: 1/240P: 0Q: 55.104L: KA+L =>Goto 1（第二緩和曲線）第5行：373.627A:428453.283N:558138.912E:124°504.5F:0P:-1/180Q:67.222L: KA+L=>Goto 1:Stop（下一曲線的第一緩和曲線，示例為S型曲線，超出后顯示Done）第6行：Lbl  1:Prog “XYF”A曲線段起點的里程N曲線段起點的x坐標E曲線段起點的y坐標F曲線段起點的坐標方位角P曲線段起點的半徑倒數(shù)(左負右正)Q曲線段終點的半

5、徑倒數(shù)(左負右正)L曲線段長度（盡量使用長度，為計算斷鏈方便，詳見本程序集有關(guān)斷鏈程序）4. 邊坡計算子程序（命名為BP，示例為三級坡度的挖填路基斷面）第1行：If Z>0:Then 1U: Else -1U:IfEnd第2行：If Z<0:Then Z+14Z: H+14PH :Else Z-2Z: H+2PH:IfEnd(14和2分別為至坡腳處路面左寬、右寬，見圖，P為橫坡，橫坡在主程序中根據(jù)反算樁號和左右位置輸入)第3行：If H>0 And H8:Then Z-0.5U(H-0)Z:Else Z-(0.5×8+2)UZ :IfEnd(示例中一級坡度高度控制范

6、圍08m，第2個8表示本級坡度的設(shè)計高度，坡比1:0.5，2為其上臺階寬度)第4行：If H>8 And H16:Then Z-0.75U(H-8)Z: Else Z-(0.75×8+3)UZ :IfEnd(示例中二級坡度高度控制范圍816m，第2個8表示本級坡度的起始高，第3個8表示本級坡度的設(shè)計高度，坡比1:0.75，3為其上臺階寬度)（如果坡度級數(shù)較多可照本行方式來增加）第5行：If H>16:Then Z-1.0U(H-16)Z:IfEnd(示例中頂級坡度即第三級坡度高度控制范圍>16m，第2個16表示本級坡度的起始高，坡比1：1.0)第6行：If H0:T

7、hen “WAIYI=”:-UZ Return:IfEnd (H為正表示挖方路基)(顯示外移距或內(nèi)移距，正值表示向遠離中線方向移動或欠挖，負值表示向靠近中線方向移動或超挖)以上26行為挖方路基的取點放樣判斷，下面為填方路基的取點放樣判斷第7行：If Z<0:Then Z+11.75Z: H+11.75PH :Else Z-0.75Z: H+0.75PH:IfEnd(11.75為左寬，0.75為右寬，見圖，P為橫坡，橫坡在主程序中根據(jù)反算樁號和左右位置輸入)第8行：If H<0 And H-6:Then Z+1.5U(H+0)Z:Else Z-(1.5×6+1)UZ :If

8、End(示例中一級坡度高度控制范圍0-6m，6表示一級坡度的設(shè)計高，坡比1:1.5，1為其下臺階寬度)第9行：If H<-6 And H-14:Then Z+1.75U(H+6)Z: Else Z-(1.75×8+2)UZ :IfEnd(示例中二級坡度高度控制范圍-6-14m，6表示本級坡度的起始高，8表示本級坡度的設(shè)計高，坡比1:1.75，2為其下臺階寬度)（如果坡度級數(shù)較多可照本行方式來增加）第10行：If H<-14:Then Z+2.0U(H+14)Z:IfEnd(示例中頂級坡度即第三級坡度高度控制范圍<-14m，14表示本級坡度的起始高，坡比1：2.0)第

9、11行：If H<0:Then “WAIYI=”:UZ Return:IfEnd (H為負表示填方路基)(顯示外移距或內(nèi)移距，正值表示向遠離中線方向移動或填寬不足，負值表示向靠近中線方向移動或超寬)說明：（1）以上所有計算子程序均為通用程序，可自編程序隨時調(diào)用，數(shù)據(jù)庫可更改適合可變項目的測量數(shù)據(jù)。（2）適用于任意線形：直線（0P、0Q）、圓曲線（圓半徑倒數(shù)P、圓半徑倒數(shù)Q）、緩和曲線（0或圓半徑倒數(shù)P、圓半徑倒數(shù)或0Q）、卵形曲線（接起點圓的半徑倒數(shù)P、接終點圓的半徑倒數(shù)Q），曲線左轉(zhuǎn)多加一負號。（3）本程序保持了坐標計算和平曲線數(shù)據(jù)庫輸入模式不變，如果您以前使用了本程序集的其他程序時輸

10、入了平曲線數(shù)據(jù)庫，則在其基礎(chǔ)上只需增加填挖計算主程序（或由以前反算程序稍作修改）和邊坡計算子程序即可使用，減少了數(shù)據(jù)庫重復(fù)輸入的次數(shù)。（4）本程序適用于全斷面開挖、全斷面填筑或半填半挖路基的取點放樣（填方路基的左右邊坡須對稱、挖方路基的左右邊坡須對稱），在原地面或已施工邊坡上取點均可計算寬度是否達到設(shè)計要求，適應(yīng)性較強，若只計算挖方路基，則取邊坡子程序的16行，若只計算填方路基，則取其第1行和711行，也可同時并用。（5）程序規(guī)定取樣點與設(shè)計標高高差為正值時均從設(shè)計標高向上起算高度，為負值時均從設(shè)計標高向下起算高度，坡度級數(shù)亦從此處算起。（6）若碎落臺及邊溝或綠化等的零坡總寬度較大，則須對邊坡子程序的第2行和第7行處的橫坡寬度有效值進行調(diào)整再乘以橫坡值P，如示例中可將H+14PH和H+2PH分別調(diào)整為H+12PH和H+0PH（即HH）（7）有多個匝道的項目，可