儲(chǔ)量計(jì)算自動(dòng)化,提高地質(zhì)工作水平
張文寬 徐洪恩 譙小平 楊本錦
（四川省地質(zhì)礦產(chǎn)局403地質(zhì)隊(duì)，四川峨眉 614200）
<b>摘要：</b>文章介紹的《儲(chǔ)量計(jì)算自動(dòng)化程序》是作者90年代DOS版程序的全面升級(jí)。該程序按照目前地質(zhì)工作普遍采用的公式和方法，符合現(xiàn)行規(guī)范規(guī)定和要求。程序?qū)?chǔ)量計(jì)算中礦體圈定、公式判別、數(shù)據(jù)輸入、對(duì)礦體有不同主張的表示方法等難點(diǎn)解決較好。該程序已經(jīng)多個(gè)礦區(qū)應(yīng)用檢驗(yàn)，最近又得南非英鉑公司采用推廣。
<b>關(guān)鍵詞：</b>固體礦產(chǎn) 儲(chǔ)量計(jì)算 礦體圈定 應(yīng)用程序
十多年前，計(jì)算機(jī)操作系統(tǒng)還是DOS的年代，我隊(duì)進(jìn)行超大型呷村銀多金屬礦床詳勘時(shí)，由于礦體多，樣品多，傳統(tǒng)的手工儲(chǔ)量計(jì)算已不適應(yīng)要求，我們編寫了一個(gè)DOS版的《儲(chǔ)量計(jì)算自動(dòng)化程序》,為呷村礦區(qū)詳勘報(bào)告保質(zhì)按時(shí)提交，發(fā)揮了重要作用。該報(bào)告于1995年6月獲中華人民共和國(guó)地質(zhì)礦產(chǎn)部地質(zhì)報(bào)告成果獎(jiǎng)。DOS版的《儲(chǔ)量計(jì)算自動(dòng)化程序》獲中華人民共和國(guó)地質(zhì)礦產(chǎn)部科技進(jìn)步獎(jiǎng)。
十多年了，DOS版《儲(chǔ)量計(jì)算自動(dòng)化程序》雖經(jīng)幾次升級(jí)，但總趕不上電腦的飛速發(fā)展、時(shí)代的進(jìn)步。2005年我隊(duì)因?yàn)橄娜U鋅銀礦、淌塘銅礦、拉拉銅礦、峨水石灰?guī)r礦的工作需要，對(duì)DOS版《儲(chǔ)量計(jì)算自動(dòng)化程序》進(jìn)行全面升級(jí)。升級(jí)后操作系統(tǒng)為Windows XP，編程語(yǔ)言用Visual Basic6.0（可視化編程工具），數(shù)據(jù)庫(kù)用Microsoft Access2000（微軟辦公系統(tǒng)數(shù)據(jù)庫(kù)）。儲(chǔ)量計(jì)算方法完全按照有關(guān)地質(zhì)勘探規(guī)范規(guī)定。升級(jí)后的儲(chǔ)量計(jì)算自動(dòng)化程序，只需將礦床儲(chǔ)量計(jì)算有關(guān)原始數(shù)據(jù)，如樣品編號(hào)、取樣長(zhǎng)度、軸夾角（或礦體產(chǎn)狀）、分析結(jié)果、礦體塊段面積（或剖面面積）、體重等按程序表格樣式輸入電腦。再輸入工業(yè)指標(biāo)后，按電腦提示點(diǎn)擊按鈕，即可完成工程中礦體圈定與厚度、平均品位計(jì)算、塊段儲(chǔ)量計(jì)算和各類型、各級(jí)別儲(chǔ)量的合計(jì)、總計(jì)�，F(xiàn)將升級(jí)的有關(guān)情況介紹如下：
一、數(shù)據(jù)輸入可按電腦提示手動(dòng)輸入，也可從電腦其它文件中復(fù)制粘貼進(jìn)入樣品原始數(shù)據(jù)表和儲(chǔ)量計(jì)算原始數(shù)據(jù)表。樣品原始數(shù)據(jù)表包含：序號(hào)(rd)、工程編號(hào)（ZK）、樣品編號(hào)（NO）、樣品長(zhǎng)度（L）、樣品品位（C）、軸夾角（A）、礦體傾向（AL）、礦體傾角（A2）、地面坡向（B1）、地面坡角（B2）等字段。只要按此輸入數(shù)據(jù)，電腦會(huì)根據(jù)巖心軸夾角數(shù)據(jù)和工程代號(hào)自動(dòng)識(shí)別是鉆孔樣品還是地表工程樣品，巖心軸夾角項(xiàng)為“空”是地表樣品，反之為鉆孔樣品。電腦自動(dòng)分別采用不同的真厚度計(jì)算公式；
鉆孔樣品真厚度計(jì)算公式：M=L×Sin（A）
地表樣品真厚度計(jì)算公式：
M=L{Sin（A2）×Cos（B2）×Sin（γ）±Cos（B2）×Cos（A2）}
式中±號(hào)按地面坡向與礦體傾向相反時(shí)為正。地面坡向與礦體傾向一致，并且礦體傾角小于地面坡角時(shí)為負(fù)。
γ——樣品方向與巖層走向的夾角
工程中礦體加權(quán)平均品位計(jì)算公式：
PC=Σ{（M1×C1）+（M2×C2）+（M3×C3）……}÷Σ（M1+M2+M3……）
二、數(shù)據(jù)輸入按地質(zhì)工作者確定的順序錄入。由于補(bǔ)采樣品等原因，常常需要向數(shù)據(jù)表添加樣品或調(diào)整樣品位置。新數(shù)據(jù)添放在表的最后，在序號(hào)字段“rd”欄里寫正確位置的序號(hào)。程序計(jì)算時(shí)電腦會(huì)自動(dòng)采用升序排列，將樣品歸入正確位置。序號(hào)可寫成小數(shù)形式，例：要在2、3之間加入樣品，則新加入樣品“rd”序號(hào)可寫成2.1、2.2……；若還需在2.1、2.2之間加樣品，則新加入樣品可寫成2.1.1、2.1.2……，以此類推。
三、礦體圈定涉及邊界品位、塊段平均品位、最小可采厚度、最大夾石剔除厚度等多種因素，人腦圈定亦是斟酌再三。目前發(fā)表的儲(chǔ)量計(jì)算程序多繞道而行，人工圈定后由電腦執(zhí)行計(jì)算。這樣降低了自動(dòng)化程度，失去使用電腦的意義。我們的礦體圈定，發(fā)揮電腦功能，逐步篩選，逐步合并優(yōu)化，得出較滿意的結(jié)果。經(jīng)多個(gè)礦區(qū)的手動(dòng)圈定與電腦圈定對(duì)比，兩者符合率在97%以上，分歧之點(diǎn)亦是各自的側(cè)重點(diǎn)不同。地質(zhì)人員間由于對(duì)礦床成因、類型認(rèn)識(shí)有差異，對(duì)礦體圈定可能有不同的主張。電腦自動(dòng)圈定礦體后，為了反映不同看法，程序中增加了手動(dòng)修改一節(jié)。修改后的數(shù)據(jù)，電腦會(huì)自動(dòng)讀入，并據(jù)此計(jì)算礦體平均品位、平均厚度。多種圈礦方案擇善而行，可以提高對(duì)礦床的認(rèn)識(shí)。
四、程序設(shè)計(jì)了不同工業(yè)指標(biāo)圈定礦體及計(jì)算儲(chǔ)量的功能。輸入新的工業(yè)指標(biāo)后，點(diǎn)擊電腦即可獲得新指標(biāo)計(jì)算的儲(chǔ)量。這對(duì)礦床經(jīng)濟(jì)評(píng)價(jià)，科學(xué)合理的開發(fā)礦床很有意義。
五、程序完全按照目前地質(zhì)工作普遍采用的公式和做法，符合現(xiàn)行規(guī)范規(guī)定和要求。使用電腦進(jìn)行儲(chǔ)量計(jì)算，除有提高精度，加快速度的好處外。還有如下優(yōu)點(diǎn)：
1、動(dòng)態(tài)計(jì)算，方便修改。儲(chǔ)量計(jì)算完成后。審查時(shí)若有數(shù)據(jù)需要改動(dòng)。牽一發(fā)而動(dòng)全身。手動(dòng)重算，耗時(shí)費(fèi)力。電腦儲(chǔ)量計(jì)算自動(dòng)化，數(shù)據(jù)相互關(guān)聯(lián)，改動(dòng)數(shù)據(jù)后，電腦會(huì)對(duì)涉及項(xiàng)目自動(dòng)重算改正。
2、使用不同工業(yè)指標(biāo)，自動(dòng)圈定礦體，加上手工修改，形成多種方案對(duì)比，加深了礦床認(rèn)識(shí)，有利于科學(xué)決策。
3、電腦儲(chǔ)量計(jì)算客觀公正。礦體厚、品位變化大的礦區(qū)，礦體圈定涉及因素多。那個(gè)樣品該圈入礦體，那個(gè)樣品可做夾石剔除，手動(dòng)圈定時(shí)常有操作者主觀意愿影響空間。不同的人計(jì)算，會(huì)有不同的礦床平均品位和儲(chǔ)量，這樣會(huì)給有心人以可乘之機(jī)。電腦圈定，不因人而異。在礦床儲(chǔ)量有償使用的今天，客觀公正有其特別意義。
本程序除在我隊(duì)地質(zhì)大調(diào)查項(xiàng)目和社會(huì)勘探項(xiàng)目中應(yīng)用取得較好效果外。2006年4月17日，四川省地礦局和南非英鉑公司在峨眉山召開的地質(zhì)工作數(shù)字化培訓(xùn)班上講授推廣獲得好評(píng)。
在軟件編制和本文寫作過程中，承西南科研所張建龍老師、我局文輝老師以及楊昌銀、曾凡勇、劉云霞、萬霞、劉麗琴等同事熱心支持和幫助，特此致謝！
我隊(duì)除編制儲(chǔ)量計(jì)算軟件外，還利用Visual Basic6.0和AutoCAD 2004編制了《鉆孔、探槽數(shù)字化地質(zhì)編錄、鉆孔柱狀圖和探槽素描圖自動(dòng)繪制與輸出、表格打印、剖面上鉆孔投影作圖軟件》。《滑坡計(jì)算軟件》等，歡迎有興趣的同行來人（函）索取。
[第一作者簡(jiǎn)介] 張文寬，（1954-），男，1978年畢業(yè)于成都地質(zhì)學(xué)院，高級(jí)工程師，從事地質(zhì)勘探與技術(shù)管理工作。
|
