Excel在地质数据处理中的应用

维普资讯 http://doc.guandang.net

第2卷 8

第 2期

化

工

矿

产

地

质

VO _8 No 2 l 2 . J n2 0 u .0 6

20 0 6年 6月

GEOLOGY CHEM I OF CAL I M NERA LS

E c在地质数据处理中的应用 xe I刘肃敬王文武提要

王生志

辽宁省化工地质勘查院，辽宁锦州，1 10 2 00Ec l x e是微软公司O f c套装办公软件之一， f ie方便实用，功能十分强大，能够对各种数据进

行处理，并且其计算过程非常直观。在地质工作中，大量的原始数据要进行处理，有以高斯投影坐标正反算应用为例说明灵活运用 E c 1中的内部函数及和所绑定的 V A言， xe B语解决地质工作中的各种数据处理工作，可以取得良好的效果

关键词 E c l坐标换算地质应用 xe中图分类号： T 3 1 P 9文献标识码：A 文章编号： 10 0 6—5 9 (0 5 2 13— 4 26 2 0 )0—0 1 0

E cl x e是大家非常熟悉微软公司 Of c套装 i fe

办公自动应用软件，其使用方便，应用非常广泛。尤其是其强大的函数功能和与其绑定的 VB语言，为我们带来了极大方便。在地质工 A作过程中，大量的原始数据要进行处理，活有灵运用 E cl的内部函数和简单的 VB语言， xe中 A 解决各类地质数据处理工作。在多年工作实践中应用效果非常好。

N’ N i c s—smB o 3 2 X= X+一 sn B C SB ‘+.—srBC S i O, i .—— i e O B( 5—t— 2 2 4—

+9 q2+ 4

q

4l )4+— s c s ( 1 82+ 4/ N i。 5B 6—5 f f )6 n—

7 0 2

o, Y: c sB+一 S (一t+7 )+—— S B N CS -+— C B 1 = O,— O B ,‘, 7 7 C O一—

N

3

2+

2)3+ N,

5

(—1f 5 82+f 4+17 4 2 5 q f )5 7 8 2 2,—

利用 E cl xe进行地质数据处理，不需要进行

专业的培训和进行复杂的编程训练，解决了用计算器逐步计算的麻烦；在 E cl xe中利用单元格引用进行计算，对数据计算和处理有非常直观性， 容易理解和掌握。

E cl在地质中的应用非常广 xe泛，以较典型的应用高斯投影坐标计算为例说就明 E cl x e在地质中的应用。 午线弧长；ttB, r==g l _了 C ,与中 OSB,为l一 一

央子午线的经差，N p曲率半径。酉

11 2 . .高斯投影坐标反算公式为：…厂一

1数据处理的数学模式1 1斯投影坐标计算 .高高斯投影计算，包括由大地坐标 ( B,L )求高斯平面直角坐标 ( Y),由高斯平面直角坐 ,和标 ( Y)求大地坐标 ( B,L,前者称为高斯投 )影坐标正算：后者称为高斯投影坐标反算Ⅲ乜 。

南 t 2f+

(3 2 一 f 5 2 t+ f(。 6r多 r

1 11 ..高斯投影坐标正算公式为：}第一作者简介：刘肃敬 (93 ) 16,男，地质与勘探专业，工程师收稿日期：20——4 06012

维普资讯 http://doc.guandang.net

I4 I

化

工矿产地质

20 0 6焦

y一

N C OS B

3 ( )…

2+木 ( o ( ) 2 e/ 1e ) 2/ 4+ 6— 8 ) 4 (C sB ) . 2 (一 2 ) ) 2# (1 5

木 T n( ) 2 T n( ) 4木 C sB木 f/ (a B )+(a B ) ) ( o ( ) L ) 7 22#木( o ( ) L 2木 C sB木 f ) 0 ) C sB木 ) (o () L) 2En n to d Fu c i n

15上

1

l多 2J J 0cⅣo式中：

(2+￣ 8厂 58 2++2+.4 6 ), t厂厂 2 2, 2

’大地坐标求直角坐标 YP bi F n t nYz (# O,a,e# As u l u ci b B,L,L# 2、 c oDou l be

历为底点纬度 (垂足纬度) M为卯酉曲率半，径， 为子午线曲率半径。

B D H( ) L D H( ) L= H( 0: fL L = Z B:= Z L: 0 DZ L ) L=— 0 Y b a S r卜e * Sn B) ) C sB) L z=/ q ( 2 (i ( ) * o ( * f 2 Y b Y0 Yz * 1 ( o ( ) L) 2 ( 1 ( n B ) z=+ b (+ C sB木 f木 (一 T ( ) a 2 ( o ( ) 2 e/ 1e )/# ( sB木 2+ C sB ) . 2 (- 2 ) 6+ Co ( ) L 木 5 1. T ( )

+ T ( )+ 4 C s B ) (— 8 (a B ) 2 (a B ) 4 1.( o ( ) n n

2E c l自定义函数的建立 xeE cl的函数功能强大，为工作带来了极大 xe方便，对可以用 E cl xe函数解决的问题，可以利用一些使用技巧和理论进行方便、用的数据处实理，但有时我们为实现一些复杂事务处理，可能

2 e/ 1e ) 5 * C sB ) . 2 (一 2木 T . 2 (一 2一 8 ( o ( ) 2 e/ 1e ) ( a n ( ) 2/ 2# ) B ) ) 10 )En u c i n d F n to

’角坐标求大地坐标 B (直纬度 )P bi F n t nB dX#Y,O,,#A# u l u ci w (,撑L#a AI,2, c o撑A3,#e# As u l# A4, ) be 2 DoD i B0, LL mA B0,

用到几个函数或者采用嵌套函数，这样应用起来，不方便，容量出错，据此可以利用 E cl xe绑定 VB创建自定义函数 U ( e￣ e nd A DFUsr i f efn t n来解决这个问题。 u co ) i

L= Z L ) Y= Y0 B=/ 0 D H( 0: Y—: 0 X A1DoW h l ieTr e uA B0= B0

首先进入 E cl立“ xe,建高斯坐标计算”工作薄，将“ he1 Set”表改名为“坐标正算”,将“Set 表改名为“坐标正算”在[ he 2”工具][ [ i l ai 宏] Vs s u B c编辑器],在“工程资源管理器”中选择“ APoet高斯坐标计 VB r c j算 .l”[ xs插入][加模块] 添，将模块名称改为“高斯投影计算”,在代码窗口输入下列程式，共自定义了五个函数，分别为直角坐标函数 X b(、 z ) Yz );大地坐标函数 B b( wd( )、Ud ( ):度分秒和弧度转换函数 D H ( Z )、HZ ( D )。Co t=3.41 9 5 5 97 ns PI 1 5 26 3 8 9 Co t=5 0 0# ns Y0 0 0 0

B= 0 P/# 0 B * I1 0 8

B= X一 A2 Sn(* 0+ * i (* 0+ * i 0 ( ( * i 2 B ) A3 Sn 4 B ) A4 Sn(* 0 )/ 6 B ) ) A1 L= b ( 0 AB ) L A sB一 0I fLL<0.0 0 The E

x t 0 00 01 n i Do Lo p o

B= O P/ # O B * I 10 8

B= 5 3 ( n( 0 )+ Co ( 0 ) 2 e/ 1 wd (十木 T B ) 2 ( s B ) . 2 ( a-

e ) 9 ( o ( 0 ) . 2 (- 2木 T ( 0 ) 2 2 - * C sB ) 2 e/ 1 e ) (a B ) ) n

木 Y/ a S r卜e * S B ) ) ) 4 1# ( (/ q ( 2 (i 0 ) )/ 2 n( 2 B= w+ 6+ 0 (a ( 0 ) 2 4 * T ( 0 ) wd B d (19 . T B )+ 5 (a B ) n n 4木 Y (/ q ( 2 (i ( 0 ) 2 ) 6 3 0 ) (/ a S r卜e * Sn B ) ) )/ 6# B= 0 (Y/ a S r卜e * Sn( 0 ) ) ) 2 wd B - ( (/ q ( 2 ( i B ) 2 )一 B ) ( q (+ C sB ) 2 e/ 1e ) ) * a wd木 S r1 ( o ( 0 ) . 2 (一 2 ) 2 T n B )2 ( 0/ B -Z B ) wd H D( wdEnd F nci n u to

’地坐标求直角坐标 x大P bi F n t n Xz (# O,a,AI, u l u ci bB,L,L# c o#A2#, A3#, A4#, e AsDo b e 2 u l

B D H( ) L D H( ) L= Z L ) L= - 0= Z B:= Z L: 0 D H( 0: fL LXz= * * 8# P+ * i 2 B) A3 Sn 4 b AI B 10/ IA2 Sn(*+ * i (木 B+ 4 Sn 6 B ) A * i (* ) Xz= b a S r 1 e *( i ( ) 2 * a (木 b Xz+/ q ( - 2 Sn B ) ) T n B) (05 (5 ( ( ) 2 9 ( o ( ) 2 e/ 1e ( .+ (一 B )+木 C sB ) . 2 (一

’角坐标求大地坐标 L (直经度 )

维普资讯 http://doc.guandang.net

第 2期

刘肃敬王文武王生志： E c l地质数据处理中的应用 xe在

l5 l

P bi F n t nLdx,, 0,群 AI,# u l u c o j(群 Y群 L群 a,# A2, c iA3,A# 2 ) u l# 4,e# As Do beDi A B0, B0, LL m

SS=: M= M+l 0 M M

E d I n fI M= 0 The fM 6 nM M= D D D= D D+1 0: D

L= H(0: Y— 0: 0 X/ 0 DZ L )

Y= Y B= A1D …… 此处隐藏：7296字，全部文档内容请下载后查看。喜欢就下载吧 ……