李文波

（云南錫業(yè)集團(tuán)公司 卡房分公司，云南 個(gè)舊661400）

0 引言

隨著測繪技術(shù)的發(fā)展，雖然計(jì)算機(jī)已經(jīng)被廣泛應(yīng)用于礦山測繪事業(yè)，各種測繪軟件也被大量開發(fā)使用，但始終龐大的計(jì)算機(jī)不可能方便帶入礦山井下進(jìn)行現(xiàn)場施工放樣的計(jì)算，而能替代它的工具還得借助于可編程型計(jì)算器來完成井下施工過程中的現(xiàn)場放樣計(jì)算工作，現(xiàn)今廣泛應(yīng)用于礦山測量中的CASIO-fx-4800P可編程型計(jì)算器，它攜帶方便、功能強(qiáng)大、使用率高、可編程且不受工作條件的限制，在礦山井下測量工作中應(yīng)用，具有操作簡單，顯示明了，計(jì)算速度快等優(yōu)點(diǎn)，深受廣大礦山測量人員的喜愛，本人根據(jù)近幾年的工作經(jīng)驗(yàn)和所掌握的礦山測量知識，結(jié)合工作的實(shí)際，編制了以下幾個(gè)礦山井下測量工作中常用的幾個(gè)小程序，基本能夠滿足礦山測量日常工作中的計(jì)算需要，具有一定的使用價(jià)值。

1 程序內(nèi)容

1.1 經(jīng)導(dǎo)支導(dǎo)線計(jì)算程序

程序名稱JDZDXJS

功能：進(jìn)行礦山測量中的經(jīng)緯儀、全站儀支導(dǎo)線計(jì)算

程序清單

A“NA”：x“X”：Y“Y”：Z“Z”

LbI1

{BDHKL}:B:D:H“△H”:K“I”:L:I=0:J=1

C=A+B

Cffgt;180=ffgt;E=C-180:≠=ffgt;E=C+180:△Effgt;360=ffgt;E=E-360:△

A“A”=E▲

Rec（D，E）

X=X+I▲

Y=Y+J▲

Z=Z+H+K-L▲

Goto1

EXITEXIT

程序使用說明

NA？—起算邊方位角X？—起算點(diǎn)X坐標(biāo)

Y？—起算點(diǎn)Y坐標(biāo)Z？—起算點(diǎn)高程

B？—測站水平角D？—水平距離

△H？—高差I(lǐng)？—儀器高

L？—前視高

結(jié)果顯示

A=方位角X=X坐標(biāo)Y=Y坐標(biāo)Z=高程

在計(jì)算過程中輸入起算邊的方位角、起算點(diǎn)坐標(biāo)、高程只需輸入一次，之后只要輸入下一個(gè)點(diǎn)的水平角、水平距離、高差、儀器高、前視高即可，值得注意的是儀器高、前視高為負(fù)時(shí)必須加輸“負(fù)”號。

1.2 羅導(dǎo)支導(dǎo)線計(jì)算程序

程序名稱LDZDXJS

功能：進(jìn)行礦山測量中的羅盤支導(dǎo)線計(jì)算程序清單

x“X”：Y“Y”：Z“Z”

LbI1

{AMQKL}:A:M:Q:K“I”:L:I=0:J=1

H“△H”=SinQ×M▲

D=CosQ×M▲

Rec（D，A）

X=X+I▲

Y=Y+J▲

Z=Z+H+K-L▲

Goto1

EXITEXIT

程序使用說明

X？—起算點(diǎn)X坐標(biāo)Y？—起算點(diǎn)Y坐標(biāo)

Z？—起算點(diǎn)高程A？—坐標(biāo)計(jì)算方位角

M？—斜距Q？—坡度

I？—后視高L？—前視高

結(jié)果顯示

△H=高差D=平距X=X坐標(biāo)Y=Y坐標(biāo)Z=高程

在計(jì)算過程中只需輸入起算點(diǎn)坐標(biāo)、高程，之后只要輸入測量一個(gè)點(diǎn)的坐標(biāo)計(jì)算方位角、斜距、坡度、后視高、前視高即可，值得注意的是后視高、前視高為負(fù)時(shí)必須加輸“負(fù)”號。

1.3 坐標(biāo)反算程序

程序名稱ZBFS

功能：進(jìn)行礦山測量中兩坐標(biāo)點(diǎn)之間的反算

程序清單

LbI1

{ABCDEF}:A“XA”:B“YA”:C“HA”:D“XB”:E“YB”:F“HB”：I=0:J=1

G“△H”=F-C▲

PoI（（D-A）,（E-B））

I“D=”▲

Jfflt;0=ffgt;J=J+360△

J“A=”▲

S=√（G2+I2）▲

Q=tan-1（G÷I）▲

Goto1

EXITEXIT

程序使用說明

XA？—A點(diǎn)X坐標(biāo)YA？—A點(diǎn)Y坐標(biāo)

HA？—A點(diǎn)高程XB？—B點(diǎn)X坐標(biāo)

YB？—B點(diǎn)Y坐標(biāo)HB？—B點(diǎn)高程

結(jié)果顯示

△H=兩點(diǎn)之間的高差D=兩點(diǎn)之間的水平距離

A=兩點(diǎn)之間的方位角S=兩點(diǎn)之間的斜距Q=兩點(diǎn)之間的坡度

在計(jì)算過程中只需分別輸入A、B點(diǎn)坐標(biāo)、高程后就可計(jì)算出兩點(diǎn)間的高差、平距、方位角、斜距、坡度，值得注意的是計(jì)算出的方位角和坡度是十進(jìn)制，需要用二功能鍵和度分秒鍵進(jìn)行60進(jìn)制的轉(zhuǎn)換。

1.4 經(jīng)導(dǎo)碎部點(diǎn)計(jì)算程序

程序名稱JDSBDJS

功能：進(jìn)行礦山測量中利用經(jīng)緯儀測量地形、采空區(qū)等碎部點(diǎn)計(jì)算

程序清單

A“NA”：x“X”：Y“Y”：Z“Z”

LbI1

{BDHKL}:B:D:H“△H”:K“I”:L:I=0:J=1

C=A+B

Cffgt;180=ffgt;E=C-180:≠=ffgt;E=C+180:△Effgt;360=ffgt;E=E-360:△

T“A”=E▲

Rec（D，E）

U“X1”=X+I▲

V“Y1”=Y+J▲

W“Z1”=Z+H+K-L▲

Goto1

EXITEXIT

程序使用說明

NA？—起算邊方位角X？—起算點(diǎn)X坐標(biāo)

Y？—起算點(diǎn)Y坐標(biāo)Z？—起算點(diǎn)高程

B？—測站碎部點(diǎn)水平角D？—碎部點(diǎn)水平距離

△H？—碎部點(diǎn)高差I(lǐng)？—儀器高

L？—碎部點(diǎn)前視高

結(jié)果顯示

A=方位角X1=碎部點(diǎn)X坐標(biāo)Y1=碎部點(diǎn)Y坐標(biāo)Z1=碎部點(diǎn)高程

在計(jì)算過程中輸入起算邊的方位角、測站點(diǎn)坐標(biāo)、高程只需輸入一次，之后只要輸入各碎部點(diǎn)的水平角、水平距離、高差、前視高即可，值得注意的是前視高為負(fù)時(shí)必須加輸“負(fù)”號。

1.5 羅導(dǎo)碎部點(diǎn)計(jì)算程序

程序名稱LDSBDJS

功能：進(jìn)行礦山測量中利用羅盤儀測量采空區(qū)、鉆孔等碎部點(diǎn)的計(jì)算

程序清單

x“X”：Y“Y”：Z“Z”

LbI1

{AMQKL}:A:M:Q:K“I”:L:I=0:J=1

H“△H”=SinQ×M▲

D=CosQ×M▲

Rec（D，A）

U“X1”=X+I▲

V“Y1”=Y+J▲

W“Z1”=Z+H+K-L▲

Goto1

EXITEXIT

程序使用說明

X？—起算點(diǎn)X坐標(biāo)Y？—起算點(diǎn)Y坐標(biāo)

Z？—起算點(diǎn)高程A？—各碎部點(diǎn)的坐標(biāo)計(jì)算方位角

M？—碎部點(diǎn)斜距Q？—碎部點(diǎn)坡度

I？—各碎部點(diǎn)測量時(shí)的后視高L？—碎部點(diǎn)前視高

結(jié)果顯示

△H=碎部點(diǎn)的高差D=碎部點(diǎn)的平距

X1=碎部點(diǎn)的X坐標(biāo)Y1=碎部點(diǎn)的Y坐標(biāo)Z1=碎部點(diǎn)的高程

在計(jì)算過程中只需輸入起算點(diǎn)坐標(biāo)、高程，之后只要輸入測量下一個(gè)碎部點(diǎn)的坐標(biāo)計(jì)算方位角、斜距、坡度、碎部點(diǎn)測量時(shí)的后視高、前視高即可，后視高、前視高為負(fù)時(shí)同樣加輸“負(fù)”號。

輸入程序的方法如下:打開CASIOfx-4800P按MODE5進(jìn)入菜單，選1NEW，就可以進(jìn)行程序名的輸入，程序名輸入完后按EXE，選1COMP后按以上所給任一程序逐步輸入，每行輸入后按EXE結(jié)束，全部輸入完成后退出，在開機(jī)狀態(tài)下按FILE鍵進(jìn)入程序狀態(tài)，用上下翻頁選擇你要使用的程序，按EXE鍵就可以開始計(jì)算。另外，程序中需要輸入的符號和函數(shù)關(guān)系式一般都按FUNCTION1和FUNCTION3鍵找出后輸入。

2 結(jié)束語

以上5個(gè)小程序基本涵蓋了礦山井下測量所有計(jì)算，使用起來方便簡單，適用性強(qiáng)，且不受井下條件的限制，很適合礦山測量人員使用，希望以上程序能對礦山的同行們有所幫助。

［1］牛長旭.礦山測量[M].北京：冶金工業(yè)出版社，1979.

［2］韓三農(nóng).公路工程施工測量現(xiàn)場實(shí)用程序計(jì)算技術(shù)[M].北京：人民交通出版社，2010.