|
EDA365欢迎您登录!
您需要 登录 才可以下载或查看,没有帐号?注册
x
用bp神经网络确定抽水试验含水层参数。但所求结果与实际相差较大$ k/ u- y8 Q4 f0 L
clear all; close all;clc
# R) }- I2 p" x* M- [load t.txt %导入数据" k- [5 K) ~6 ?1 |9 T4 z
load newinput.txt
9 o8 I* N" T7 _( p! C% 随机生成测试和验证数据" \9 T8 m- N L/ p$ o" m4 H
T = 0.12 + 0.04*rand(1,120)
% V U4 r9 D) w: [2 `, NU = 0.0002 +0.0001*rand(1,120)
* |( Y+ y* H/ I: m4 S' n3 M2 A7 }
3 Y7 {6 p4 p& s%根据公式计算求得输入数据" [ [" p" ?$ i+ @- c; Y8 D' {
+ a* Y `% n, f) t# l! t6 |
M=zeros(18,120)3 K0 y# m/ A% t) @
for i=1:120
6 S, ]7 K9 t' d$ o3 z4 n+ y2 _3 |/ i for c=1:18$ m5 W9 S& ?6 X5 s9 c( c
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; C, x' y6 C+ N; Q
end
/ m" n9 ]% I4 S- H9 Send
4 k# G* n8 C7 S" t, {9 w; w2 _. E) f U" z
data = [T;U]
2 C3 H6 J& c& _- V; _' ?5 o1 m& p4 v2 V, l, f5 d9 Q
p = M
/ s( |- s6 d& |. H( n# [, C# Mt = data
/ y& ~! f5 k# Y# \% 划分数据,分成测试和验证数据
4 o: p+ g1 X: T1 E8 \[trainsample.p,valsample.p,testsample.p] =dividerand(p,0.8,0.15,0.15) ;
G4 ]& o6 w+ g" A+ I[trainsample.t,valsample.t,testsample.t] =dividerand(t,0.8,0.15,0.15);" Q$ D4 p: r" c) G0 F! _+ n4 }, C$ G
/ i$ Z* x6 r9 g, E* r* ~% 数据归一化处理
7 B0 A4 t' y, E/ m4 [0 N$ ~- p[trainsample.P, ps] = mapminmax(trainsample.p,0,1)
! X- t2 ^5 `* Wtestsample.P = mapminmax('apply',testsample.p,ps)
0 E( W& _$ w# K& m. x[trainsample.T, ts] = mapminmax(trainsample.t, 0,1)( L9 M9 ]0 I' C( O, C' T& @
* g- M. V9 C9 A" Y$ ~- i& U& D% 初始化网络: B( }4 w. _ V4 Z0 U
net = newff(trainsample.P,trainsample.T,[1,27])
4 r- T2 J; x. J: M2 `' A1 x: }9 e- R7 s: J+ s- ?% ~
% 设置网络参数
2 D! L) m4 p" D& o- onet.trainParam.epochs = 50000;
5 D! R! Q' ]3 K% r Snet.trainParam.show=50;4 l1 Q6 |: [* I& F* i9 H! T
net.trainParam.lr = 0.68;
2 f+ l$ `1 D( Ynet.trainParam.goal = 1E-15;
/ y+ T. |+ S$ s6 _
, X& I6 Y- Q: p+ a5 `8 n/ F$ Wnet.traiNFCn='trainbr';
( x8 o( `% D7 ?6 [ [$ I3 L[net,tr]=train(net,trainsample.P,trainsample.T);
" } H9 t) ^: L! r) p* P1 j
; g( e; Y+ H# W+ Z- ?. S% 仿真处理
% Q0 K1 @/ E2 ^# w( f. ~: Lp_sim=sim(net,testsample.P);
9 k8 m5 w6 a) W6 B8 W2 [9 d/ lP_sim = mapminmax('reverse', p_sim, ts);% r) ^7 S; o3 o# B( m
( U# e7 h9 w6 C% }# p2 L% 数据预测
4 w( d$ H2 p6 X) `$ Y- Z; pnewinput = mapminmax('apply', newinput, ps);* l. }- l$ Y; M" D
newOutput = sim(net, newinput);
% A6 v0 q9 R+ Y3 F5 U! n- NnewOutput = mapminmax('reverse',newOutput, ts)
: x# L6 W5 l' i/ M7 j% W- i2 b& q4 Y5 i, ?6 S; C
1 A; t2 [* q$ f O, l) v% ^
- r- E7 Y/ q" v/ b, t) b |
|