* N9 q/ c# N! n问题分析 + U0 [& |9 l, ~* D3 e) P# T$ f(一)问题一分析 ! i5 D$ k b+ `' C# B% b对于问题一,通过所给数据以及题目要求,可以通过一维插值的方法将散乱数据变成规则数据,再通过组网格,邻近插值等方法画出三维空间分布和二维等高线图。$ f. B. O% _- M+ r9 a8 C
(二)问题二分析 K4 b; V3 z; Y& l
对于问题二,我们可以首先对重金属和海拔进行相关性分析,通过功能区划分,并结合问题一的污染物分布分析,得到相关矩阵以及相关度,最后结合所有数据对重金属可能的主要来源以及重金属污染的主要原因进行分析。 6 X) q" t# S, k0 K# s( |( ?* r(三)问题三分析' F: A$ ~) F1 c) Z" r: M) N
对于问题三,我们首先通过对数据的处理得到污染源的可能位置,然后通过建立模型,应用MATLAB进行拟合,从而更好地找到污染源的位置,得到比较满意的结果。4 e7 j) s; O% d# k
(四)问题四分析+ E. n) l x3 p0 G0 }+ S1 @! T
首先,我们对模型进行优缺点分析,然后通过查询资料以及数据收集对模型进一步优化处理,从而更好地选择模型解决问题。 2 J% I( T- F- R, g3 m+ h % x2 j! q' b' c. ~6 a1 f# c( Y+ D% u
代码实现6 M" X& h, l& f0 O
MATLAB程序代码: f; A+ K, I* w' X5 j
问题一: ! V" Q' t1 q) ]; b h* f! |A=xlsread(“cumcm2011A附件_数据.xlsx”,1,‘B4:E322’);%读取第一页数据% M* C0 m/ h1 C. b/ B( j: c
B=xlsread(“cumcm2011A附件_数据.xlsx”,2,‘B4:I322’);%读取第二页数据,物质浓度$ S P, c) l3 q, E% U
x=A(:,1);y=A(:,2);g=A(:,4);N=length(x);z1=A(:,3) 4 {9 @6 O {8 Q) S; }" B# F3 GBJ=[‘As’,‘Cd’,‘Cr’,‘Cu’,‘Hg’,‘Ni’,‘Pb’,‘Zn’]; 1 L3 c+ ^5 V, o( d# Q2 p( @/ J7 txi=linspace(min(x),max(x),N);%一维插值,散乱数据变规则数据 ' E: d2 u- X5 gyi=linspace(min(y),max(y),N);4 G) g3 V' D. t2 m
[XI,YI]=meshgrid(xi,yi);%组网格. ?9 `0 f: T* L' l& e
4 A( M! q1 q' a5 K" P
2 @8 Z3 ?0 J! j9 I* p' o& {for i=1:8- v4 E5 b W+ O: Z
z=B(:,i);: Q! m4 F1 F8 k s8 [
[XI,YI,ZI]=griddata(x,y,z,XI,YI,‘cubic’);%邻近插值6 G" X3 f b6 c3 P; b* `- @6 W
figure4 ]! D. k; k9 e2 m; Z, B3 h
mesh(XI,YI,ZI);) e* Q/ _4 s' r
%figure;' C5 `! y$ r! l* z/ W
%contour(XI,YI,ZI,40);%二维等高线图 x% g3 E+ {2 A, @+ ptitle(BJ(2i-1:2i));%写出图形标题 , O6 ]" y, C& \6 I* h" Dend* M8 F- w% m- n l; H
# s3 g# C. B( ^! N( [- s6 h' c2 L6 `7 B9 l# r9 d" u+ {+ c
问题二: ; l2 m: Z" W! o7 [) o1 E%clear;close all;%问题2 & y; r# b% a" s) ], d8 oA=xlsread(“cumcm2011A附件_数据.xlsx”,1,‘B4:E322’);%读取第一页数据/ C' }1 Q1 G6 U& f* r
B=xlsread(“cumcm2011A附件_数据.xlsx”,2,‘B4:I322’);%读取第二页数据,物质浓度 S) u2 G4 B, ~" m
x=A(:,1);y=A(:,2);g=A(:,4);N=length(x);) ~" H% B5 C: U |4 A6 d2 ]; Z
BJ=[‘As’,‘Cd’,‘Cr’,‘Cu’,‘Hg’,‘Ni’,‘Pb’,‘Zn’]; ' x8 U2 f# N) F0 zxi=linspace(min(x),max(x),N);%一维插值,散乱数据变规则数据 `8 ]" A1 O. C* ]. m: d, ryi=linspace(min(y),max(y),N);& t9 s; z9 E: V+ L
[XI,YI]=meshgrid(xi,yi);%组网格% _ {+ K( f" N9 _6 ]7 _6 G: F" B
for i=1:81 k k* T; L8 n7 S4 s- j6 B
z=B(:,i); % G4 ~) b1 \; P3 q[XI,YI,ZI]=griddata(x,y,z,XI,YI,‘cubic’);%邻近插值: T+ t/ x5 t! C2 w% Q
%mesh(XI,YI,ZI);%三维空间分布图8 K8 h6 X. m, _$ J' U
figure; + ?* N& ?" u4 F0 |" \# E' Ycontour(XI,YI,ZI,80);%二维等高地形图, f/ U4 [! g5 m: Q1 O1 K+ d
title(BJ(2i-1:2i));%写出图形标题' e4 ?1 }% y/ F
hold on $ \7 [/ o B2 T3 Y5 k9 x. Sfor k=1:N %标记功能区# O6 @7 X6 s4 Y3 n4 e. k( r
if g(k)==1 - M$ u E6 ?' o6 O* {- ~( oplot(x(k),y(k),‘r*’); - D8 b3 D$ _6 ?' H- U( o helseif g(k)==2 3 U1 L2 Q- c3 b& P" W; bplot(x(k),y(k),‘r^’);+ o" ~. k+ s+ x9 Y% [
elseif g(k)==3 ' Z9 o/ ? P5 ? [( ?: z' j7 K x* oplot(x(k),y(k),’+’); # X( g. k( {+ F, r6 `8 Ielseif g(k)==4 ) \3 t' G/ V# Z$ j) O0 o) {/ N0 cplot(x(k),y(k),‘x’); . N. }5 g( u( R+ `- oelseif g(k)==5 2 Y5 \( g* n# ~1 N* @+ dplot(x(k),y(k),‘ro’);# P$ }- a7 K1 v* c" q6 l# p8 b
end 4 Y5 a1 ]4 p$ f; |0 V/ ?end( y8 A+ q! x6 h, c5 v
legend(‘等高线’,‘生活区’,‘工业区’,‘山区’,‘交通区’,‘公园’);%按绘图顺序标注 2 b5 G, w8 q* y0 Z2 G Chold off & ?; A- {6 a1 x2 y7 p' xend2 `, V' Q: H0 _* w9 F7 I9 C
B1=B 6 H b5 x$ J0 G3 H8 u8 t) |for k=1:8 ! X1 p9 f0 t- m# V" ka=max(B1(:,k));b=min(B1(:,k)); 2 g9 L" j3 a( V5 Q% x) JB1(:,k)=(B1(:,k)-b)/(a-b)%标准化处理 y/ t9 I4 e. L, s/ ?! o/ O+ {2 P
end% m0 g3 |6 m3 N+ k- v+ z& `, f
R=corrcoef(B1);%相关性分析( I) o3 y P, ?0 {" s; n* B( C
%xlswrite(‘cumcm2011A附件_数据.xlsx’,R,4);4 c8 O5 j H, s: ~2 Y" M; r: B( [$ w
问题三:2 F& I3 G7 a6 Q5 g* Q; _
A=xlsread(“cumcm2011A附件_数据.xlsx”,1,‘B4:E322’);%读取第一页数据* K$ @. J8 e" r$ `1 N s
B=xlsread(“cumcm2011A附件_数据.xlsx”,2,‘B4:I322’);%读取第二页数据,物质浓度& t; ]- h7 h+ M5 b
x=A(:,1);y=A(:,2);g=A(:,4);N=length(x);z1=A(:,3)* }* t2 V: N# ~& e' g
BJ=[‘As’,‘Cd’,‘Cr’,‘Cu’,‘Hg’,‘Ni’,‘Pb’,‘Zn’]; 2 U, ?" `1 j" | Q( [/ Exi=linspace(min(x),max(x),N);%一维插值,散乱数据变规则数据, M3 o( Y+ X0 ]4 T
yi=linspace(min(y),max(y),N); 4 e, Y- p8 r& l1 x[XI,YI]=meshgrid(xi,yi);%组网格 8 g- s0 H4 N+ \5 _' y3 L % e1 W& d: Q9 n- f) A) L& j$ n9 p1 F) F! R9 A& k
for i=1. u, x4 o6 K% B: D; b: J7 e
z=B(:,i); 9 o" p2 M9 p, M% I/ u6 [[XI,YI,ZI]=griddata(x,y,z,XI,YI,‘cubic’);%邻近插值 ' _: x7 D* d. }* m' u%figure6 y- o; a, f& d- O, Z5 v: M
%mesh(XI,YI,ZI);- ~2 y3 |% H% Q1 m8 A. G
figure;6 g s) \0 ^6 ]; @
contour(XI,YI,ZI,40);%二维等高线图. s" e, Z9 g: p/ Q# V! s2 P
title(BJ(2i-1:2i));%写出图形标题 # @" ?- D J1 S6 |/ s$ U5 uhold on 8 f! u" A! i' ?2 S- u U1 Y' _. r4 o5 o" ^
# |) F8 T# I, u3 m$ K4 y[px,py]=gradient(ZI,.2,.2);%计算梯度向量# o0 }8 f) V3 I! G% U g7 H+ X
quiver(xi,yi,px,py);%绘制梯度 ! p7 k0 k& b- q# f' [/ E2 m) L1 o+ n& k1 ?; C( z+ B4 t0 w
; @7 X' m+ V4 y3 R% R' h. e+ Sfor k=1:N %标记功能区* T# e, p1 C' u2 ~ k
if g(k)==1 d2 L1 e# ]; s/ C. X( ^
plot(x(k),y(k),'*');4 D2 N1 Y/ h* J) |- I; h1 B
elseif g(k)==2 - W8 k) \' z: U2 y X plot(x(k),y(k),'r^'); : k, ~6 r; T/ M3 w elseif g(k)==32 `8 V3 {; A6 z! }
plot(x(k),y(k),'+');$ Z$ v. Y. ~+ E* M
elseif g(k)==4 : Z, h7 ~- [) @7 m5 e& [6 ] plot(x(k),y(k),'x'); 2 l/ e6 k" V0 [, K elseif g(k)==5 ; `' c+ @. I5 Y: T plot(x(k),y(k),'ro'); . s9 P) g* I# ~0 i) U end% k5 |. J* F6 b: M$ L
end: \3 ~( R3 ]& m1 `7 y
1 % Q8 F9 F" ^& U* M7 U9 W25 c V3 q$ R* }/ G' }
3 ' s$ ]+ `3 ^- I& S: ]- R4 1 g$ c) `0 \7 ]( M6 [5; N* R+ D0 V' C- s0 z3 Z( i
6 - D3 y ^$ v7 u/ @$ |4 G* I7 K9 f4 s7 ) j, t2 k) Y2 \89 y2 C5 Y4 Z$ V5 J1 x( M
9+ \( s7 ?4 P2 }3 c8 V
10( T' A/ q& @8 o; S
11 % r" b0 r" y# P) T$ {1 T/ f) ~$ G7 e, V128 {2 {! @1 X* S, d$ v
133 E/ b- d+ p9 E+ ]1 S5 T( f
14$ `$ ]3 p5 {, I6 t
15/ }9 u$ I) x5 q
16 , C) ^+ M3 C1 q: t/ Alegend(‘等高线’,‘梯度向量’,‘生活区’,‘工业区’,‘山区’,‘交通区’,‘公园’);%按绘图顺序标注; f j9 `5 K2 H3 s8 V0 G
hold off$ m- J! D8 A& c% p4 X8 {7 C
[x0,y0]=ginput(3);%用鼠标获取污染中心的位置( ]3 ]! d5 C+ G! @7 u3 R" H- E
[x0,y0] . e, p/ n" Y8 B$ N+ w( }figure; ' o% [: A. D( P$ y9 a/ Yplot(x0,y0,‘ro’,‘LineWidth’,1.5); 0 X/ j! u1 i Y$ Z. m* F, X- p2 rhold on+ `; P0 b! H3 W' q
[XI,YI,ZI]=griddata(x,y,z1,XI,YI,‘cubic’);%邻近插值 & w, N) Y7 J) g- Xcontour(XI,YI,ZI,50); $ @& L5 @, E" m6 P' i3 {! ~) A 6 d: i# z! v+ ?; l, O + ]- z6 K. R: |2 i4 P5 y+ K模型建立与求解$ x" a; ?4 h2 O c
(一)问题一的求解 4 l( C" V; @" Z0 a用MATLAB软件对所给数据进行插值拟合得出调查区的地形图和八种重金属元素在该区域的空间分布图,再用MATLAB软件对所给的数据进行分析,具体情况如下:. n" V4 H5 ?' _
6 L7 X! [' F" D+ u
* N8 C) n% U2 x/ y( A0 T9 a" R( ?(二)问题二的求解 2 U0 F3 x8 ^/ q. v用MATLAB软件对各种重金属元素浓度和海拔做相关性分析,得出各元素与元素之间和元素与海拔之间的相关系数矩阵及其相关性,结合第一问得出的空间分布,参照主要重金属含量土壤单项污染的指数,分析得出的各种重金属污染的主要原因。8 [2 Z8 @9 D- ?7 F' O
我们通过等高线地形图与功能区标记函数结合对所给数据进行读取,) J1 g; G: N, h8 l5 }
As Cd Cr Cu Hg Ni Pb Zn: P( z" N/ O& h, @
As 1 0.2547 0.1980 0.1597 0.0664 0.3166 0.0899 0.24694 G6 n' {- v2 G/ J: J
Cd 0.2547 1 0.3524 0.3967 0.2647 0.3294 0.6603 0.4312; p: B% @+ J* Y0 g" H% a3 |
Cr 0.1890 0.3524 1 0.5316 0.1032 0.7158 0.3828 0.42432 ?+ ]7 s" \/ R+ @
Cu 0.1597 0.3967 0.5316 1 0.4167 0.7158 0.5200 0.3873 1 }+ \3 \: e8 n0 ]; THg 0.0644 0.2647 0.1032 0.4167 1 0.4946 0.2918 0.1958: X# p# l3 r. e8 L- Q+ j* v
Ni 0.3166 0.3294 0.7158 0.4946 0.1029 0.1029 0.3068 0.4364 7 j. {9 g$ X% G T& ~4 XPb 0.2899 0.6603 0.3828 0.5200 0.2981 0.3068 1 0.4937 . _" B8 e4 w( T* _Zn 0.2469 0.4312 0.4243 0.3873 0.1958 0.4364 0.4937 1 : u5 {$ U# g+ g7 t1 D! e相关性矩阵如下表所示: & Y+ v0 y% T+ C! ]# T* E: a参照分布图可见个金属浓度均和海拔呈负相关及海拔越高,其含各种金属浓度越低。Cr和Ni的相关性较好,相关系数是0.7158。其次是Pb和Cd,相关系数为0.6603,以下是Cr和Cu的关系较好,相关系数是0.5316。其他元素之间的相关性并不是很好。从成因上来分析,相关性较好的元素可能在成因和来源上有一定的关联。结合第一问中八种元素在该区域的空间分布来看。Cr和Ni,Pb和Cd有可能是来自同一来源。 7 u' P, S6 `/ y) u1 `对于Cr和Ni,在来源上有密切的关联,在该市表层土壤中基本为污染。只有在个别富集程度较高,污染达到中度以上的地区。该富集中心的位置主要分布在生活区周围和交通距周围,这可能是由于生活污水排放和交通汽车尾气排放所造成的。" \0 Q( O" L, F/ [3 c8 D
对于Pb和Cd,在来源问题上有着较密切的联系。他们的高含量点主要分布在交通区工业区周围,这可能是因为来自该城市的交通汽车尾气的排放,以及工业区汽车轮胎磨损和冶炼厂的废水,尘埃废渣等废物,以及电镀电池燃料,塑料稳定剂等所造成的污染。所以可以说他们的污染主要是由于交通污染和工业污染造成的。 2 R) O, Q3 A, H. P# U0 x, ~3 _对于Cu而言,在该城市土壤中基本为污染。只有在个别的富集程度较高污染达到中度污染。该富集区的位置主要分布在生活区周围,这可能是由于生活城市垃圾所造成的污染。0 V8 G* y- x- W0 @. K
对于Hg而言,其高含量点主要分布在交通繁华的交通区周边和工业区周边。其污染的一个主要原因是由于燃烧造成的,无论是工业用煤还是居民用煤,而且燃烧方式落后,工业排放也是表层土壤Hg都污染来源之一,主要在大面积污染的几个工业浓缩点。. C$ K. Z) v/ h2 m* l- q3 b6 D
对于Zn而言,提高含量点也主要分布在交通繁华的交通区域周边和工业区周边,这主要是由于汽车尾气排放和工厂企业的三废排放所造成的。 : K4 O3 k8 X* s8 Y' m对于As而言,该市区表层土壤As基本都是轻度或中度污染,只有在个别富集程度较高,该富集中心的位置主要分布在工业区周边,主要来源可能是工厂的废水排放。 9 [! N- O/ \1 ~- G, p# _, I综上所述,可以认为工业区交通区,生活区的活动是造成该城市表层土壤重金属污染的主要原因。 * d8 S' D/ i2 n, K(三)问题三的求解( Y. k( w- e1 D, j$ M7 E
分析重金属污染物的传播特征,由此建立模型,确认污染源的位置。首先我们建立函数,找出梯度向量,最后由函数拟合得出结论。- G N) }0 U. b. V
我们还通过绘制二元函数极值点进行分析 - i% H, V! p# m: G) ]" R用鼠标在图像中获取(x0,y0) + Y1 r+ k, }) i% X(四)问题四的求解 $ q/ D% G9 e1 v7 W. u! l- ~优点:解决问题一,我们用MATLAB对原始数据进行插值拟合并让其linspace使得数据散乱变规整我们都通过MATLAB对程序进行了最大的优化。对于问题也提出了可能性较大的原因,结合数据整理出最有可能的原因。 / z& Q5 L( F" q8 X; F缺点:对于模型的合理化还缺少部分数据。不能够全面立体,多层次的了解污染源。 " Q$ K. r8 C) K* [5 W8 w% }改进方法:为了更好地研究城市地质环境的演变模式,需要做以下的几个工作:首先我们可以利用空间中的任意一点对应的污染物浓度与时间的表达式建立数学关系模型。其次我们也可以利用高斯点源扩散模型来研究重金属污染物在大气中的扩散模型。利用更全面的数据来解决问题。 G0 L; D; H& n% E
————————————————1 s2 z6 m, E* L
版权声明:本文为CSDN博主「南心鸿文」的原创文章,遵循CC 4.0 BY-SA版权协议,转载请附上原文出处链接及本声明。8 G5 {3 |8 J" K5 R6 z$ j
原文链接:https://blog.csdn.net/qq_45494980/article/details/106818981 - n$ |% }" A; W5 F# ?7 t5 l- Y6 c9 E8 q7 @