|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
用bp神经网络确定抽水试验含水层参数。但所求结果与实际相差较大
4 m$ R: K7 k! l9 h& u, b+ gclear all; close all;clc
; A2 @7 c9 Y: a1 q; cload t.txt %导入数据7 X) R6 G; P: q8 E
load newinput.txt
3 S9 H4 ^9 p( C' ?: Z7 S3 n; t" Y% 随机生成测试和验证数据) o/ Y3 K3 L* l( }6 r, u. M
T = 0.12 + 0.04*rand(1,120)+ u6 |* C2 O" u
U = 0.0002 +0.0001*rand(1,120). y0 H+ s+ k* o3 w5 N
& M/ Z+ j8 O j8 c# V%根据公式计算求得输入数据6 F% }1 A. m1 f$ l9 b, l
. J2 M9 s' R, L) G8 cM=zeros(18,120)! s3 l' z1 {2 M
for i=1:1206 {: N% {0 h2 U) }2 k6 C! v
for c=1:18. l- }; a$ v8 G5 O5 I c; j* d
m=43*43*U(1,i)/4/T(1,i)/t(c,1);n=-0.577216-log(m)+m;s=1*n/4/T(1,i )/pi;M(c,i)=s;
$ E% ^; B. p. n7 o% O) } end; L. w' H5 ]$ `5 Q+ A% k
end
( `5 g7 b: K9 s- d- z: o3 t% P& ]1 {; _3 x' P+ C
data = [T;U]9 ]! Z- B H& h" n. t3 n7 _
" e W/ y# q& j+ \p = M) |7 I& f# M% [
t = data
1 B3 F: f1 k+ A0 H; c8 S% 划分数据,分成测试和验证数据) E3 t' d+ q. F$ O! [% P* A8 f
[trainsample.p,valsample.p,testsample.p] =dividerand(p,0.8,0.15,0.15) ;- |2 W. l- a% k0 i J- l8 ^6 ?* J- F
[trainsample.t,valsample.t,testsample.t] =dividerand(t,0.8,0.15,0.15);
' \8 u( x1 f% z6 i- {7 ]' s7 K4 }9 E* d; |) x. w* P
% 数据归一化处理
$ r/ k& q2 J5 J# y7 x7 R4 o' b/ q[trainsample.P, ps] = mapminmax(trainsample.p,0,1)
4 E* m) b, a9 O3 o8 s0 x) }testsample.P = mapminmax('apply',testsample.p,ps)
. E% Y# x- m+ r/ [5 T4 n: v[trainsample.T, ts] = mapminmax(trainsample.t, 0,1)( M+ U( b; O" }) t5 y) l- w
$ V4 T: `' ^% B: E
% 初始化网络
0 _ L4 |/ A0 anet = newff(trainsample.P,trainsample.T,[1,27])/ F1 p, K1 c' a) m5 R
7 \! Q+ ]' B! m' r% h% 设置网络参数
+ ?: Z( X$ E9 Dnet.trainParam.epochs = 50000;
% v. P% i" u/ d/ ^+ K$ V Gnet.trainParam.show=50;2 Q% _) o3 H4 s
net.trainParam.lr = 0.68;# h; E+ c# k2 e- r; B, \, w" q
net.trainParam.goal = 1E-15;! T# G' Q% [7 Q- [
: S6 W7 v8 ?( x
net.traiNFCn='trainbr';7 ?# U4 J k8 ^1 X. D
[net,tr]=train(net,trainsample.P,trainsample.T);0 Y% N2 ]( }5 k- _6 H, U: c' o
8 W5 w1 U, N; g8 E" S/ ^% 仿真处理
2 I. V1 S# i0 A( h' ?% Up_sim=sim(net,testsample.P);
9 k8 b# U2 Y- q6 }3 n' j3 `P_sim = mapminmax('reverse', p_sim, ts);
! X) M+ M5 \- B
6 X0 K! Y3 q7 l8 ^+ U% 数据预测# M* Z: Q3 @% d
newinput = mapminmax('apply', newinput, ps);1 ?: D! _1 Z! _/ f C
newOutput = sim(net, newinput);( P' _6 a4 w) q Z5 R# N2 M
newOutput = mapminmax('reverse',newOutput, ts)
& i; Y1 ]/ m/ w \4 S2 F* b. r5 g* T6 P! I, l2 i
9 n, X; ]+ L* L9 n
% I+ B( k' L) {( `" P |
|