f(x)--4850高程橫坡計算全線通

1、08-9-24樓主：撒旦作者：老第 本文已被瀏覽3982次f(x)-4850高程橫坡計算全線通f(x)4850高程橫坡全線通HM“M”LbI  0：Z=0=>GOTO  ：>Z=1=>GOTO Y：>Z=-1=>GOTO ZLbI ：S：AWRIJNS：GOTO 1LbI  Z：S：（注：左線豎曲線參數(shù)庫）S<數(shù)據(jù)庫計算起點樁號=>GOTO 0S后切點樁號=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：J=后坡坡度：GOTO  1S后切點樁號

2、=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：J=后坡坡度：GOTO  1. .（注：第N個豎曲線參數(shù)）S>數(shù)據(jù)庫計算終點樁號=>GOTO 0LbI  Y：S：（注：右線豎曲線參數(shù)庫）S<數(shù)據(jù)庫計算起點樁號=>GOTO 0S后切點樁號=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：J=后坡坡度：GOTO  1S后切點樁號=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：J=后坡坡度：GOTO  1

3、. .（注：第N個豎曲線參數(shù)）S>數(shù)據(jù)庫計算終點樁號=>GOTO 0LbI  A:S: （注：左線超高橫坡度參數(shù)庫）S第二超高緩和段終點樁號=>Q=第一超高緩和段起點樁號：=第一超高緩和段起點樁號到第二超高緩和段終點樁號的距離：N=第一超高緩和段起點橫坡：J=全超高段橫坡：F=第二超高緩和段終點橫坡：L=第一超高緩和段長度：C=第二超高緩和段長度：GOTO  3S第二超高緩和段終點樁號=>Q=第一超高緩和段起點樁號：=第一超高緩和段起點樁號到第二超高緩和段終點樁號的距離：N=第一超高緩和段起點橫坡：J=全超高段橫坡：F=第二超高緩

4、和段終點橫坡：L=第一超高緩和段長度：C=第二超高緩和段長度：GOTO  3. .（注：第N個平曲線參數(shù)）LbI  B：S: （注：右線超高橫坡度參數(shù)庫）S第二超高緩和段終點樁號=>Q=第一超高緩和段起點樁號：=第一超高緩和段起點樁號到第二超高緩和段終點樁號的距離：N=第一超高緩和段起點橫坡：J=全超高段橫坡：F=第二超高緩和段終點橫坡：L=第一超高緩和段長度：C=第二超高緩和段長度：GOTO  3S第二超高緩和段終點樁號=>Q=第一超高緩和段起點樁號：=第一超高緩和段起點樁號到第二超高緩和段終點樁號的距離：N=第一超高緩

5、和段起點橫坡：J=全超高段橫坡：F=第二超高緩和段終點橫坡：L=第一超高緩和段長度：C=第二超高緩和段長度：GOTO  3. .（注：第N個平曲線參數(shù)）LbI  1：T=RAbS（0.01（I-J）/2：0.01（I-J）0=>V=-1：>V=1：SA-T=>P=W+I（S-A）/100：> SA=>P=W+I（S-A）/100+V（S+T-A）2/2R：> SA+T=> P=W+J（S-A）/100+V（A+T-S）2/2R：>P=W+J（S-A）/100：GOTO 2LbI 2;Z=0=>GOTO

6、  4：>Z=-1=>GOTO  B：>Z=1=>GOTO  ALbI  3：SQ=>N=N：>SQ+L=>N=（J-N）（S-Q）/L+N：>SQ+-C=>N=J：> SQ+=>N=（J-F）（Q+-S）/C+F：>SQ+=>N=FLbI  4：U：U=0=>GOTO  5：>U=1=>D：D：GOTO  6：>U=2=> G：D：D：GOTO&#

7、160; 7：>U=3=> GOTO  8LbI  5：P：Pause 0：NGOTO  9LbI  6：X：X：NP：Pause 0:H-X：Pause 0:P-M+0.01DN：Pause 0:（H-X-P+M-0.01DN）×100D：D0=>GOTO  5：>GOTO  9LbI  7：Y：Y：P：Pause 0:N：Pause 0：H-Y：Pause 0：1000(P-M+0.01DN-(H-Y)+G)

8、×1.22+0.2D：D0=>GOTO 6：>GOTO  9LbI  8：“F”：ED：ED：X=H-0.01E-（P-M+0.01DN）：NP：Pause 0:X：Pause 0：H-X：Pause 0：P-M+0.01DND： D0=>GOTO 7：>GOTO  9LbI  9：K：S=S+K：GOTO 0 回復(fù)內(nèi)容      只查看樓主與本人回復(fù)沙發(fā)：撒旦 樓主 08-9-24 20:44 回有哪位高手可將

9、此程序轉(zhuǎn)化成5800,請回復(fù)至本人QQ上!謝謝!2 樓：lizhichong08-9-27 20:49 回很不錯。3 樓：李寧00808-9-27 20:54 回右線豎曲線參數(shù)庫和后切點樁號？我是新手啊不明啊？4 樓：撒旦 樓主 08-9-28 9:9 回LbI  Y：S：（注：右線豎曲線參數(shù)庫）S<數(shù)據(jù)庫計算起點樁號=>GOTO 0S后切點樁號=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：J=后坡坡度：GOTO  1S后切點樁號=>A=豎曲線頂點樁號：W=豎曲線頂點高程：R=豎曲線半徑：I=前坡坡度：

10、J=后坡坡度：GOTO  1. .（注：第N個豎曲線參數(shù)）S>數(shù)據(jù)庫計算終點樁號=>GOTO 0     以上次段為右線豎曲線參數(shù),可以根據(jù)上面所要的參數(shù)往上輸,后切點樁號=交點樁號+切線長,交點樁號和切線長為設(shè)計文件已知參數(shù).5 樓：wanghongquan08-9-28 14:40 回我也分不清楚右線豎曲線和左線豎曲線。請指點哈。謝謝。6 樓：撒旦 樓主 08-10-18 21:38 回   Lbl Z:  為左線豎曲線參數(shù)數(shù)據(jù)庫,Lbl Y:  為右線豎曲線

11、參數(shù)數(shù)據(jù)庫; Lbl 1;為高程計算式 , Lbl 3;為橫披計算式7 樓：ZXP08-9-28 22:4 回評：+2 分太煩瑣了8 樓：ZXP08-9-28 22:9 回評：+2 分太煩瑣了9 樓：撒旦 樓主 08-10-18 21:39 回color=Redcolor=RedBcolor=Red VB源碼彩色顯示 注：在code./code內(nèi)就以下面格式顯示文字，雙擊源碼拷貝到剪切板H為視線高;M“M”為路面結(jié)構(gòu)層厚度;LbI ：為線路選擇;LbI  1;為設(shè)計高程計算式;LbI 3;為任意斷面橫坡度計算式;LbI  Z：S：（注：左線豎曲線參數(shù)庫）

12、;LbI  Y：S：（注：右線豎曲線參數(shù)庫）;LbI  A:S: （注：左線超高橫坡度參數(shù)庫;LbI  B：S: （注：右線超高橫坡度參數(shù)庫）;LbI  2;為選擇進入計算方式的路徑; LbI5;為顯示所求樁號設(shè)計高程和此斷面的橫坡度./B/color/color/color10 樓：撒旦 樓主 08-10-18 21:33 回續(xù)上;LbI 6;為所求樁號的設(shè)計高程,橫坡度,橫向任意點的實測值以及高差;LbI7;為路面攤鋪機掛線高計算程式;LbI 8;為已知高差橫向距離反算所測點中視讀數(shù)(是為填寫高程自檢資料而設(shè)置

13、);LbI9;為樁號以"K'為級數(shù)遞增或遞減程式. 本程序主要是為路面施工高程測量計算提供方便.                                        

14、60;                              11 樓：'測量人08-10-19 19:34 回很好的程式,我支持你樓主12 樓：'測量人08-10-28 19:54 回樓主:高程計算中如何加入斷鏈13 樓：撒旦 樓主 08-10-29 11:15 回回復(fù)35:如果發(fā)生斷鏈

15、,可以以斷鏈為分界線,另外建立數(shù)據(jù)庫來解決斷鏈14 樓：'山西08-12-17 0:23 回做高程不需要輸入前坡坡度：后坡坡度。這是可以計算出來的呀？！15 樓：'老五09-2-3 20:46 回回14樓:請14樓指教列出高程數(shù)學(xué)計算式16 樓：caiyongfu0809-2-8 11:14 回不明白，左右曲線參數(shù)庫是怎么樣分的，是左右轉(zhuǎn)分嗎？17 樓：35052817809-4-18 9:48 回評：+10 分樓主。你的程序能算不。18 樓：'撒旦09-4-18 18:9 回16樓:左線是左幅,右線是右幅,適應(yīng)整體和分離式路基,全線貫通.17樓:不能算 ,我為什么要發(fā)

16、表啊  ,請高手指點.19 樓：'snowman333009-4-30 18:37 回評：+4 分請問：整體試路基怎樣輸入數(shù)據(jù)庫呢？是左右幅都輸入一樣，還是只輸左幅或右幅？20 樓：'撒旦09-4-30 22:23 回19 樓:整體試路基:左線.右線豎曲線參數(shù)一樣.不分左線右線分離式路基:左線.右線豎曲線參數(shù)不一樣,應(yīng)分左線右線曲線參數(shù)庫21 樓：李寧00809-5-1 19:26 回如果有直線應(yīng)怎么輸?22 樓：李寧00809-5-1 21:16 回請問算出來的中樁高程不對啊?23 樓：李寧00809-5-1 21:17 回橫坡是對的24 樓：'撒

17、旦09-5-2 7:33 回回復(fù)李寧:    大家用的都是一樣的公式,請檢查LB1里的公式,把直線直接歸納到上一個曲線的終點到下一個曲線的終點為一個計算段.25 樓：李寧00809-5-3 2:5 回還是不對請樓指點26 樓：'撒旦09-5-3 12:41 回25 樓：V（S+T-A）2,V（A+T-S）22-為平方27 樓：李寧00809-5-3 16:31 回不行啊28 樓：李寧00809-5-3 16:42 回豎曲線程序肯定不對29 樓：李寧00809-5-3 16:47 回2;Z=0=>GOTO  4：>Z

18、=-1=>GOTO  B：>Z=1=>GOTO  AZ=0=>GOTO  ：>Z=1=>GOTO Y：>Z=-1=>GOTO Z？30 樓：'撒旦09-5-3 16:54 回31 樓：'09-5-3 21:5 回不行32 樓：'撒旦09-5-3 22:5 回豎曲線程序肯定是對33 樓：'撒旦09-5-3 22:21 回2;Z=0=>GOTO  4：>Z=-1=>GOTO  B：>Z=1=>

19、;GOTO  AZ=0=>GOTO  ：>Z=1=>GOTO Y：>Z=-1=>GOTO Z？線路34 樓：李寧00809-5-5 9:7 回為什么算到第二個豎曲線就不對了35 樓：'撒旦09-5-5 12:35 回34 樓：數(shù)據(jù)庫參數(shù)輸入請檢查,上一個曲線的終點到下一個曲線的終點為一個計算段.36 樓：'江西09-7-9 17:4 回試下 37 樓：xingzyhou09-8-27 9:0 回高手改成5800直接發(fā)上來，讓大家學(xué)習(xí)下。38 樓：'2255709-9-30 9:52 回評：+10 分樓主，如沒有左右線之分，也沒有攤鋪機掛線定位，如何在你的程序中修改？另外，你的程序可以計算不等緩和超高嗎？程序很好，只是少了一個加寬子程序，希望樓主能優(yōu)化。39 樓：'撒旦09-10-9 20:47 回LbI  0：Z=0=>GOTO  ：>Z=1=>GOTO Y：>Z=-1=>GOTO Z為線路選擇，可改為：LbI &#