13-18.txt

来自「小波神经网络对短期电力负荷的预测」· 文本 代码 · 共 30 行

P=[0.494293182	0.570916528	0.515242382	0.316856652	0.274914688	0.368767395	0.439242479	0.541685423	0.609859871	0.622875675	0.519722162	0.266153586	0.1004;
0.378227934	0.55698589	0.549701106	0.393576805	0.300803504	0.217795687	0.319288947	0.65398727	0.778503836	0.721580871	0.54389022	0.145816694	0.1009;
0.587727196	0.604078027	0.522297248	0.303054285	0.199908033	0.203407633	0.364742612	0.753164404	0.803601249	0.51135071	0.391742298	0.339686343	0.0983;
0.538452044	0.660925966	0.561119582	0.230581573	0.149398582	0.284852005	0.420310269	0.649207386	0.750526392	0.692465936	0.532987246	0.202158813	0.0968]';
T=[0.378227934	0.55698589	0.549701106	0.393576805	0.300803504	0.217795687	0.319288947	0.65398727	0.778503836	0.721580871	0.54389022	0.145816694;
0.587727196	0.604078027	0.522297248	0.303054285	0.199908033	0.203407633	0.364742612	0.753164404	0.803601249	0.51135071	0.391742298	0.339686343;
0.538452044	0.660925966	0.561119582	0.230581573	0.149398582	0.284852005	0.420310269	0.649207386	0.750526392	0.692465936	0.532987246	0.202158813;
0.572010455	0.432669716	0.407120211	0.469406326	0.389421332	0.197899272	0.29975072	0.688424212	0.73404487	0.483114306	0.388387909	0.345855418]';
threshold=[0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1;0 1];
net=newff(threshold,[27,12],{'tansig','logsig'},'trainlm');
net.trainParam.epochs=1000;
net.trainParam.goal=0.01;
LP.lr=0.1;
net=train(net,P,T);

P_test=[0.572010455
	0.432669716
	0.407120211
	0.469406326
	0.389421332
	0.197899272
	0.29975072
	0.688424212
	0.73404487
	0.483114306
	0.388387909
	0.345855418
	0.0996];
Out=sim(net,P_test);