陳文平
(中交集團(tuán)四公局四處)
CASIOfx-4500P計(jì)算器因其攜帶方便、編程簡單、易操作,在測繪領(lǐng)域尤其在野外測量放樣中應(yīng)用較為廣泛,在莆秀高速公路中 4850計(jì)算器得到了充分的利用。在西埔互通區(qū)匝道半徑小,線性復(fù)雜,計(jì)算數(shù)據(jù)量大,側(cè)設(shè)工作難度大。針對(duì)這種情況,需要編寫一個(gè)能滿足等緩和不等緩及各種復(fù)曲線連接的程序,根據(jù)現(xiàn)有的條件及設(shè)計(jì)圖紙所給的曲線要素,結(jié)合以前編程的經(jīng)驗(yàn)編寫了以下程序,將對(duì)這種方便、快捷、適用的計(jì)算程序進(jìn)行分析與介紹。
曲線起點(diǎn) X、Y坐標(biāo),曲線起點(diǎn)沿計(jì)算方向切線方位角(根據(jù)曲線起點(diǎn)坐標(biāo)和交點(diǎn)坐標(biāo)可反算),起點(diǎn)曲率半徑,終點(diǎn)曲率半徑,起點(diǎn)里程,終點(diǎn)里程,解算曲線任意點(diǎn)任意角度中邊樁坐標(biāo)。
圖1 數(shù)學(xué)模型
LbI1:{H}:H“DKI”:H≤圓直點(diǎn)(緩直點(diǎn))里程=>A =圓直點(diǎn)(緩直點(diǎn))X坐標(biāo):B=圓直點(diǎn)(緩直點(diǎn))Y坐標(biāo):C=起點(diǎn)切線方位角‘:D=1÷起點(diǎn)半徑:Z=1÷終點(diǎn)半徑:F=起點(diǎn)<直緩(或緩園)>里程:G=終點(diǎn)里程:Prog“LXQX”: Goto1⊿。
程序把數(shù)據(jù)庫作為主程序,在主程序中調(diào)用其它模塊。
運(yùn)行時(shí)直接運(yùn)行主程序,如計(jì)算匝道A的,就運(yùn)行A,其它匝道的數(shù)據(jù)庫類同。
莆秀高速西埔互通A匝道計(jì)算實(shí)例,主程序如下:
A匝道為不等緩和曲線,圓曲線半徑為 65米,運(yùn)行后顯示輸入:DKI?(待求點(diǎn)里程)如要計(jì)算AK0+120坐標(biāo)輸入: 120,下一步顯示T?(輸 0為計(jì)算中樁坐標(biāo),輸大 1的數(shù)字是求外依點(diǎn))輸 0下一步會(huì)直接顯示 AK0+120中樁坐標(biāo),下一步顯示X0、Y0(要求輸入測站X、Y坐標(biāo)如輸入X= 5093.034,Y=3764.593,下一步顯示QA=201.950(放樣點(diǎn)到測站點(diǎn)的距離)QS=160'32'07”(放樣點(diǎn)到測站的方位角)。要計(jì)算外移點(diǎn)坐標(biāo)時(shí)在顯示 T?時(shí)輸 1下一步顯示QH?(外移點(diǎn)前后距離前正后負(fù),如輸3),下一步顯示ZY? (外移點(diǎn)左右距離左負(fù)右正,如輸-4)下一步顯示QA?(外移點(diǎn)角度,輸入見數(shù)學(xué)模型,如輸入 0算正交)下一步顯示X =4941.467,Y=3700.357(為外移點(diǎn)坐標(biāo))下一步顯示QA =202.968,QS=164'37'01”(外移點(diǎn)到測站點(diǎn)的方位角)下一步循環(huán)計(jì)算。在進(jìn)行逆算時(shí)起點(diǎn)、終點(diǎn)曲率半徑、里程互換。
程序方便、快捷、準(zhǔn)確、適用性很強(qiáng),通過以上方式的簡化后,使繁重的測量工作變得輕松,大大減輕了測量的工作量。