錐坡放樣計算程序5800

1、錐坡放樣計算程序之修正版根據(jù)林新紅橋臺錐坡基礎(chǔ)曲線方程的推導及應(yīng)用設(shè)計的卡西歐5800橋臺錐坡基礎(chǔ)曲線放樣程序，應(yīng)用此程序進行錐坡放樣將大大提高工作效率和保障工程精度。在實際應(yīng)用中無論是正交橋臺或斜交橋臺，錐坡的短軸（程序中：l）始終與路線方向平行且值大小不變；錐坡的長軸（程序中：k）只有在橋臺斜交時隨著構(gòu)造物（橋臺）縱橫軸設(shè)計交角（程序中：gxjiao）的變化而變化。 前 橋 臺 后 橋 臺 錐坡基礎(chǔ)曲線放樣示意圖上面完整布置圖中，,號橋臺錐坡尖點方位角就是尖點對應(yīng)中樁的切線方位角。,號橋臺錐坡尖點方位角任然是尖點對應(yīng)中樁的切線方位角，但在計算時要180(程序中為:h=h180),而此時p=

2、p-n:z=1=p=pz=2=p= - p,為了方便程序計算，規(guī)定,號橋臺錐坡為前錐坡；,號橋臺錐坡為后錐坡,下列程序中現(xiàn)已都考慮了這些元素，只要計算時分清前后左右就ok了。程序名： zpfyjslbl 0 : xc? u: yc? v :hs?a: hj ?b: i1? c: i2 ?d: x0 ?e: y0 ?f: xjiao ?g: fwj ?h: qzp-1,hzp-2 ?r: l-1,r-2：?z: jmd ?s:if r=2:then h-180h:ifend: (a-b)ccos(90-g)k顯示錐坡長半軸長度值(如果去掉黑三角，k值不顯示)(a-b)d l顯示錐坡短半軸長度值(

3、如果去掉黑三角，l值不顯示)0t: 0n：(注意，這里是數(shù)字0，而不是字母o)lbl 1：t+1t：n：t顯示坐標值的組數(shù)if ng:then gn:ifend: g-np：klsin(g)(ksin(n)+(lsin(p)m顯示隨著加密遞增變化而變化的極軸長度值(可去掉黑三角,m值不顯示)if r=1:then goto 2:ifend: if r=2:then goto 3:ifend:判斷是前橋臺錐坡還是后橋臺錐坡lbl 2: if z=1:then -pp:goto 4:ifend:if z=2:then pp:goto 4:ifend（回車exe）判斷是前橋臺錐坡的左側(cè)錐坡還是右側(cè)錐

4、坡lbl 3: if z=1 then -pp:goto 4:ifend:if z=2:then pp:goto 4:ifend（回車exe）判斷是后橋臺錐坡的左側(cè)錐坡還是右側(cè)錐坡lbl 4:e+mcos(h+p)x: x=：x顯示隨著加密遞增變化而變化的極軸末端的x坐標f+msin(h+p)y: y=：y顯示隨著加密遞增變化而變化的極軸末端的y坐標pol（x-u，y-v）j：if j0 then j+360j: ifend:“fwj=”:jdms顯示隨著加密遞增變化而變化的放樣極坐標方位角“s=”：i顯示隨著加密遞增變化而變化的放樣極坐標距離if n=g: then goto 0: ifen

5、d（回車exe）程序自動跳回主程序表示錐坡基礎(chǔ)曲線計算放樣完畢n+sn：goto 1說明：程序中各注釋文的涵義xc、yc-測站點橫縱坐標hs-錐坡尖點的標高hj-錐坡基礎(chǔ)頂面標高i1-路基橫坡度（椎體長半軸方向），如果為1：1.5則輸入為1.5i2-錐坡迎水面坡度（路線方向，短半軸方向），如果為1：1則輸入為1x0、y0-錐坡尖點的橫、縱坐標xjiao-橋臺橫縱軸之間的夾角fwj-錐坡尖點沿路線前進方向的方位角qzp-1,hzp-2-輸1計算前橋臺錐坡，輸2計算后橋臺錐坡l-1,r-2-輸1計算左側(cè)橋臺錐坡，輸2計算右側(cè)橋臺錐坡jmd -把需要加密點而設(shè)置的平分角度值，如要求曲線精度更高，可將

6、角度劃分更細加密即可，一般可以設(shè)置取s值為：5度、4度或者3度。如g=60，s=5，可以605=12，計算完畢有12+1=13組坐標，放樣13次。注意：n=0時放樣的錐坡基礎(chǔ)曲線的起點(第一組坐標)，n=g時放樣的錐坡基礎(chǔ)曲線的終點(返回前的最后一組坐標)，程序在執(zhí)行返回要求重新輸入變量時表示該曲線已計算放樣完畢。 附注:本文經(jīng)修改試驗后可以正常運行,請放心使用.另外,在輸入完畢后請試驗下是否跟原設(shè)計符合,可在cad上面進行試驗,如果符合沒有問題表示此程序可以正常運行.至于各代碼的含義用戶可以設(shè)置成自己喜歡并且能夠理解的代碼.如hs-錐坡尖點的標高中的hs可以設(shè)置成zpdh意思是錐坡頂面高程,而錐坡基礎(chǔ)的則可以設(shè)置成zpjh意思是錐坡坡腳的地面