采用積分進行任意曲線線路坐標計算程序(直線、圓曲線、卵型曲線)

1、采用積分進行任意曲線線路坐標計算程序（直線、圓曲線、卵型曲線）采用積分進行任意曲線線路坐標計算程序(直線、圓曲線、卵型曲線)程序名“xljs”g“xj=”： h“yj=”： r“xh=”： s“yh=”： a“xa=”： b “ya=”： c “ta=”：e“1 + ra,z-，y+”： p“ka= ”？ lbll: fq： f“1 + rb,z-，y+”： q“kb=” ？lbl 2： v： v “k=”： 0=v： 0<p=> goto3：關(guān)> goto4?lbl3： “k-small”： goto2?lbl 4： 0>q =&

2、;gt; goto5： 7> goto7?lbl 5： i： i “l(fā)=l=>esc關(guān)>next”： l=l=&gt； goto2：關(guān)>goto6?lbl 6： “jisuan: a-txy”： v=q： z=0： d=0： goto8?lbl7:dz： z “jia-jiao=”： d “waiyi: (z-, y+)” ？lbl 8： t=c+90+x (2e+(f-e)(v-p) 4- (q-p)(v-p)： t0=t=t+360z1 t360=t=t-36ozi? rad： w=a+； (cos (c° +0.5

3、x(2e+(f-e)(x-p) +(q-p)(x-p) ,p,v,4) +dxcos(t° +z° )?y=b+； (sin (c° +0.5x(2e+(f-e)(x-p) + (q-p)(x-p) ,p,v,4)+ dxsin(t°+z° )： deg： goto9?lbl 9：=> gotob：笑> gotoa?lbl a： a=w： b=y： c=t： e=f： p=q： gotol?lbl b： w “x=” it “t=” jpol（r-g, s-h）： fixm： m=j： pol（w-g, y-h） :

4、 j=j-m?j<o =&gt；j=j+360zlj&gt；360 =>j=j-360zj “a=” ii “s=” 2goto 2程序積分式中“° ”的編輯輸入為：“function”鍵+5 （drg）+4（° ）。程序功能由于程序根據(jù)線路曲線坐標計算通用數(shù)學(xué)模型編制，所以，對于任意線型的一段線路曲線（直線、圓曲線可看作是通用計算模型的特例），只要輸入曲線信息和測站信息，都可以迅速地計算出該曲線上任意里程點處的切線方位、中樁或與該里程切線成任意夾角的外移樁坐標、極坐標法放樣的角度和距離。程序運行運行程序“xus”，按提示輸入置鏡

5、點坐標（x，yj）,后視點坐標（xh,yh）,曲線起點a的坐標（xa, ya）、沿線路前進方向的切線方位角ta、里程ka、曲率（直接在計算器上以1 + ra的形式輸入，r表示半徑，左偏曲線輸負值厶偏曲線輸正值），繼續(xù)輸入終點b的曲率（1 + rb輸入同a點）、里程kb。當屏幕顯示“k=? ”時，輸入該段曲線要計算放樣數(shù)據(jù)的里程值，按提示輸入夾角“jia-jiao”（夾角的范圍為0-180度）和外移量“waiyi”，“jlajiao”值為該里程&線路前進方向的切線方位角順時針至該里程中樁與右邊樁連線間的角度，當為法線方向時jlajiao為90度，“waiyi”值中樁左側(cè)輸負值心側(cè)輸正值，

6、計算中樁時“waiyi”值輸0即可，按“exe鍵”屏幕即可依次顯示計算中樁或外移樁的坐標、中樁切線方位角、放樣角度a，放樣距離s。程序的輸入輸出都按通俗易懂的提示或測量習(xí)慣顯示，為確保計算結(jié)果無誤，編制程序時專門設(shè)置了錯誤里程輸入提示，當輸入的計算里程k小于該曲線起點里程時，程序?qū)⑻崾纠锍烫　発-small”，繼續(xù)輸入正確的里程，當?shù)谝粭l曲線計算完畢需計算緊接的第二條曲線時，只需要給k 輸入一個大于第一曲線終點里程的里程值，這時屏幕顯示“l(fā)=l=>esc矣 >next”，如果不小心誤輸入一個大于終點里程的k時（esc表示取消），可輸入1“取消”操作，繼續(xù)計算當前曲

7、線，如果確認要計算下一曲線（next表示要計算下一曲線），輸入一個不等于1的數(shù)值，接下來屏幕將顯示“jisuan: a-txy”，程序?qū)⒆詣佑嬎愕诙€的起點信息，接著自動提示輸入第二曲線終點的曲率和里程，當顯示“k=? ”時，即可進行第二曲線放樣數(shù)據(jù)的計算。依次類推，直至計算完所有需計算的曲線中、邊樁坐標和放樣數(shù)據(jù)。遷站時，直接按“ac”鍵終止程序的運行，到新的測站后重新運行“xljs”,輸入新的測站點、后視點坐標并保持原曲線參數(shù)不變即可。當遇到線路曲線的曲率發(fā)生突變（如直線直接接圓曲線或者兩個不同半徑的圓曲線直接相接）的特殊情況時，可以將突變點兩側(cè)的曲線分開單獨進行計算，也可以在突變點處增加輸入一段微小長度的回旋線把突變點兩側(cè)的曲線連接起來，增加一段長度為0.0001米長度的回旋曲線，不會影響計算結(jié)果的精度。比如某直線直接連接半徑為r的圓曲線，計算完直線段需要接著計算圓曲線時，先輸入微小長度的回旋線（1/rb=1/r, 1=直線終點里程+0.0001）,然后再輸入圓曲線的終點曲率和里程即可繼續(xù)計算。兩個不同半徑（半徑分別為rl，r2）的圓曲線直接相接時，先輸入微小長度的回旋線（1/rb=1/r2, kb=第一圓曲線終點里程+0.0001）,然后輸入第二圓曲線終點的曲率和里程即可。有時會遇到逆向測設(shè)曲線情況，即從大里程方向向小里程方向測設(shè)曲線，采用本程