|  | 
 
| 
用bp神经网络确定抽水试验含水层参数。但所求结果与实际相差较大
x
EDA365欢迎您登录!您需要 登录 才可以下载或查看,没有帐号?注册  ! k, [& \+ C3 A* L0 wclear all; close all;clc
 ( ^& V! G) T9 h/ J: B# K; I! {load t.txt    %导入数据
 " K( y& y4 m/ }; q* eload newinput.txt0 H$ z( y" q% l9 p, N  |
 % 随机生成测试和验证数据# A1 I- F, O6 m% K1 o+ |# f
 T = 0.12 + 0.04*rand(1,120)
 5 \7 Y# q. m0 ~4 r' S7 K; UU = 0.0002 +0.0001*rand(1,120)* I- O, L4 C2 T
 / x. |+ {! q: ?' X# b0 @- R  y# [$ @
 %根据公式计算求得输入数据, s! v* N( q  c9 x7 V' r9 K4 u
 
 3 w- J( ?! b0 `M=zeros(18,120)' ~5 \) ~) S$ ]' d0 v0 R7 s, r6 d
 for i=1:1204 v# O* n% F! u6 ~# Z- X' L: B6 K
 for c=1:18
 5 h; y; q) r) P: M& U) O    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;, `4 n4 U6 j  m2 V* k$ \0 `
 end
 0 R% m7 z% J& P  ]# E; r, nend9 K' z4 U1 n4 T# r. X
 " Q9 X: D3 R6 \3 k2 P
 data  = [T;U]( g9 o5 d8 j$ L0 a9 T. a" B4 X; d
 
 3 r# a4 n/ S2 X( d- T3 B: vp = M9 T* r% z7 \; A
 t = data
 8 y$ }' F: y  I/ A% 划分数据,分成测试和验证数据
 ! o8 k" J# a8 e# e5 i/ _0 z" A/ e[trainsample.p,valsample.p,testsample.p] =dividerand(p,0.8,0.15,0.15) ;
 3 x+ p; |, B8 U; r[trainsample.t,valsample.t,testsample.t] =dividerand(t,0.8,0.15,0.15);
 6 V$ y2 C3 P0 t8 K* G" V6 b+ ]" M* u0 d3 ?7 G  R
 % 数据归一化处理+ ~0 S4 ~' s8 v" `' G
 [trainsample.P, ps] = mapminmax(trainsample.p,0,1). `# w  L5 X( ?9 ^
 testsample.P = mapminmax('apply',testsample.p,ps)
 $ h. p/ |0 l# t) d. n[trainsample.T, ts] = mapminmax(trainsample.t, 0,1)
 - z1 I8 d8 ^3 I- M# L/ z8 ]% J/ Y- {. X$ ?8 T5 l
 % 初始化网络
 & f! {& L. L* ^, Nnet = newff(trainsample.P,trainsample.T,[1,27]), @  U6 I* b) R9 j; H- b6 D* _
 
 $ S4 W. U0 T+ |0 f: e% 设置网络参数0 J* L3 }3 |; Q5 [$ ^( |8 k
 net.trainParam.epochs = 50000;* o; \# P* l# x+ g1 j7 q
 net.trainParam.show=50;
 ! B4 g& Z3 P3 a7 }" O7 F4 Anet.trainParam.lr = 0.68;
 ' i; W; s; e6 d' J% J# ]net.trainParam.goal = 1E-15;2 h5 z. ^. ~1 \: h7 l) B
 
 7 q# q3 ~! R8 O2 Hnet.traiNFCn='trainbr';
 ; g( M0 E* q/ G8 Q9 s[net,tr]=train(net,trainsample.P,trainsample.T);
 + L; X( u$ D  F) p! h, F9 c8 m. ?/ w+ W: B1 V3 K6 V
 % 仿真处理
 4 [' E+ m5 ?2 p0 ]p_sim=sim(net,testsample.P);
 8 D0 I2 k! }" i( @" aP_sim = mapminmax('reverse', p_sim, ts);
 6 q' B% T& {* n4 f8 Z- z; T* n/ P. `2 K* k' M9 @
 % 数据预测
 $ Y- ^9 J7 @- |, tnewinput = mapminmax('apply', newinput, ps);! k3 ~; J% U: p, ?& n2 C
 newOutput = sim(net, newinput);  q& V( h4 e- E. W
 newOutput = mapminmax('reverse',newOutput, ts)
 3 q( i( {. ^; |8 x" D  o
 6 M8 B  z/ z6 f* y0 o. m* i, G) V; H" {; e; t4 Y3 L. `
 
   2 g( k0 s( w, @! o
 | 
 |