Close all;
clear all;
load Input
num=data;
input1=num(:,1);
input2=num(:,2);
input3=num(:,3);
t=num(:,4);
p1=num(1:750,(1:3)); p11=p1';
A =t(1:750,1); A1=A';
net_gas = newff([ 0 1;0 1;0 1],[10,25,1],{'tansig','tansig','purelin'},'trainlm');
net_gas.trainParam.show = 100;
net_gas.trainParam.epochs = 150;
net_gas.trainParam.goal = 1e-10;
net_gas=train(net_gas,p11,A1);
save net_gas
y1 = sim(net_gas,p11);
y1f= y1;
H1=y1f';
Error= (H1-dm(1:750))./dm(1:750)*100;
figure
x= 1:1:750;
plot (x, Error); grid
xlabel('Expr#');
ylabel('%Error');
title('NN performance for H');
axis([1 750 -25 25]);
pt1=num((751:1095),(1:3));
pt11=pt1';
yt1 = sim(net_gas,pt11);
yt1f= yt1;
Ht1=yt1f';
Error_test= (Ht1-dm(751:1095))./dm(751:1095)*100;
figure
xt= 1:1:365;
plot (xt, Error_test); grid
xlabel('Exp#');
ylabel('%Error_test');
title('NN performance for H');
axis([1 365 -100 100]);