工程測量中CASIO fx—5800P編程計(jì)算器線路坐標(biāo)通用程序應(yīng)用探討

摘 要：隨著CASIO fx-5800P可編程計(jì)算器在工程測量中廣泛應(yīng)用，編輯一個線路正算程序，不同的工程只需改變通用程序數(shù)據(jù)庫的曲線要素，然后輸入里程和到中樁的左右偏距，即可提供線路任意點(diǎn)坐標(biāo)。

關(guān)鍵詞：線路正算；里程；線元；坐標(biāo)；偏距

前言

1 程序中涉及的幾個概念說明

1.1 線路正算：根據(jù)里程和到中樁的左右偏距，求坐標(biāo)。

1.2 偏距：系指線路某點(diǎn)在法線方向偏離線路中線的距離。直線上垂直于線路方向，曲線上垂直于切線方向。

1.3 主程序名稱：“MG-ZB”

Lbl 3：“DKI”？K：Prog“DAT-M”： Prog“GBZS”？坻

Goto3？坻

注：（ DAT-M與數(shù)據(jù)庫程序“DAT-M”對應(yīng)）

1.3.1 子程序1：程序名“GBZS”

Lbl 0：（P-R）÷（2（H-O）PR）→D：“L（-ZUO+YOU）”？L：“YJJ”？M：Abs（K-O）→J：Prog“SUB1”：F-M→F

“F=”：F？襍DMS？襊

“X=”：U→X？襊

“Y=”：V→Y？襊◢

1.3.2 子程序2：程序名“SUB1”

4→DimZ：0.1184634425→A：0.2393143352→B：0.2844444444→Z[4]：0.0469100770→C：0.2307653449→E：0.5→Z[1]：I+J（ACos（G+QCJ（1÷P+CJD）×180÷∏）+BCos（G+QEJ（1÷P+EJD） ×180÷∏）+ Z[4]Cos（G+QZ[1]J（1÷P+Z[1]JD） ×180÷∏）+BCos（G+Q（1-E）J（1÷P+（1-E）JD）×180÷∏）+ACos（G+Q（1-C）J（1÷P+（1-C）JD）×180÷∏））→X：

S+J（ASin（G+QCJ（1÷P+CJD） ×180÷∏）+BSin（G+QEJ（1÷P+EJD） ×180÷∏）+Z[4]Sin（G+QZ[1]J（1÷P+Z[1]JD） ×180÷∏）+ BSin（G+Q（1-E）J（1÷P+（1-E）JD） ×180÷∏）+ASin（G+Q（1-C）J（1÷P+（1-C） JD） ×180÷∏）） →Y：

G+QJ（1÷P+JD） ×180÷∏+M→F？坻

X+LCos（F） →U？坻

Y+LSin（F） →V？坻

1.3.3 子程序3：

數(shù)據(jù)程序名：“DAT-M”（DAT-M可以隨意改，但要和MG-ZB主程序匹配）

If K<“起始里程”And K>“終點(diǎn)里程”：Then STOP：Return：IfEnd？坻

If K≥“直線起點(diǎn)里程”And K？芨“直線終點(diǎn)里程”：Then“直線起點(diǎn)X坐標(biāo)”→I ：“直線起點(diǎn)Y坐標(biāo)”→S：“直線起點(diǎn)里程”→O：“直線方位角”→G：“直線：終點(diǎn)里程”→H：1×1045→P ：1×1045→R：0→：Q Return：IfEnd？坻

If K>“緩和曲線起點(diǎn)里程” And K？芨“緩和曲線終點(diǎn)里程”：Then“緩和曲線起點(diǎn)X坐標(biāo)”→I：“緩和曲線起點(diǎn)Y坐標(biāo)”→S：“緩和曲線起點(diǎn)里程”→O：“方位角”→G：“緩和曲線終點(diǎn)里程”→H：1×1045→P：“圓曲線半徑”→R：+1或-1→Q：Return：IfEnd？坻

If K>“圓曲線起點(diǎn) 里程”And K？芨“圓曲線終點(diǎn)”：Then“圓曲線起點(diǎn)X坐標(biāo)”→I：“圓曲線起點(diǎn)Y坐標(biāo)”→S：“圓曲線起點(diǎn)里程”→O：“方位角”→G：“圓曲線終點(diǎn)里程”→H：“圓曲線半徑”→P：“圓曲線半徑”→R：+1或-1→Q：Return：IfEnd？坻

If K>“緩和曲線起點(diǎn)里程” And K？芨“緩和曲線終點(diǎn)”：Then“緩和曲線起點(diǎn)X坐標(biāo)”→I：“緩和曲線起點(diǎn)Y坐標(biāo)”→S：“緩和曲線起點(diǎn)里程”→O：“方位角”→G：“緩和曲線終點(diǎn)里程”→H：“圓曲線半徑”→P ：1×1045→R：+1或-1→Q：Return：IfEnd？坻

If K>“直線起點(diǎn)里程”And K？芨“直線終點(diǎn)里程”：Then“直線起點(diǎn)X坐標(biāo)”→I ：“直線起點(diǎn)Y坐標(biāo)”→S：“直線起點(diǎn)里程”→O：“直線方位角”→G：“直線：終點(diǎn)里程”→H：1×1045→P：1×1045→R：0→：Q Return：IfEnd

輸入完了第一部分的時候退出編輯，運(yùn)行程序，里程輸入直線終點(diǎn)里程，偏距輸入0，方位角既是第一緩和曲線起點(diǎn)方位角。

輸入完了第二部分的時候退出編輯，運(yùn)行程序，里程輸入第一緩和曲線終點(diǎn)里程，偏距輸入0，方位角既是圓曲線起點(diǎn)方位角。

輸入完了第三部分的時候退出編輯，運(yùn)行程序，里程輸入園曲線終點(diǎn)里程，偏距輸入0，方位角既是第二緩和曲線起點(diǎn)方位角。

注：程序中字母代表的意思：

I代表線元起點(diǎn)X坐標(biāo)

S代表線元起點(diǎn)Y坐標(biāo)

O代表線元起點(diǎn)里程

G代表線元起點(diǎn)方位角

H代表線元終點(diǎn)里程

P代表線元起點(diǎn)曲率 直線點(diǎn)輸入1×1045 曲線段輸入曲線半徑

R代表線元終點(diǎn)曲率

Q 直線輸入0 曲線左轉(zhuǎn)輸入-1 曲線右轉(zhuǎn)輸入+1

顯示說明2：

運(yùn)行MG-ZB 程序

DKI代表里程

L（-ZUO +YOU）代表到中樁的距離（左側(cè)為負(fù)值，右側(cè)為正值）

“X=”代表所求點(diǎn)X坐標(biāo)

“Y=”代表所求點(diǎn)Y坐標(biāo)

注意：如果所輸入的里程不在數(shù)據(jù)庫所給的里程范圍內(nèi)將顯示Done。繼續(xù)按EXE將再次進(jìn)入程序，重新輸入正確里程。

程序的特點(diǎn)：

（1）程序代碼簡潔，便于閱讀和改寫；（2）主程序通過調(diào)用數(shù)據(jù)庫子程序，省卻了使用時輸入平面參數(shù)的繁瑣；（3）使用數(shù)據(jù)庫子程序，換項(xiàng)目只需改寫數(shù)據(jù)庫子程序，程序通用性強(qiáng)。

2 結(jié)束語

公路施工測量工作，全站儀完全滿足了坐標(biāo)法放樣的硬件要求，CASIO系列可編程計(jì)算器完善了全站儀在公路測量中的軟件不足之處，直接影響到測量成果的質(zhì)量和工作效率，對可編程計(jì)算器充分利用，公路外業(yè)測量工作不需要再帶線路逐樁坐標(biāo)，只帶一臺CASIO系列可編程計(jì)算器即可。外業(yè)測量工作中，只需輸入里程，即可提供線路任意點(diǎn)坐標(biāo)，不但方便而且及時準(zhǔn)確。