Z=read('c:\laborat\mmt01\dane_wig.txt',126,1);
O=read('c:\laborat\mmt01\dane_obrot.txt',126,1);
Z=(Z-min(Z))/(max(Z)-min(Z));
O=(O-min(O))/(max(O)-min(O));
N=[20 20 15 10];
lp=[0.1 0.05 0.5 0.1];
Te=500;
P=zeros(20,11);
T=zeros(10,11);
for j=1:11 
  for i=1:10 
    P(i,j)= Z((j - 1)*10 + i,1);
	P(i + 10,j)= O((j - 1)*10 + i,1);
	T(i,j)= Z(j*10 + i,1);
  end
end
W=ann_FF_init(N);
[W,sW]=ann_FF_Mom_online(P,T,N,W,lp,Te);
D=zeros(20,1);
D(1:10,1)=Z(111:120,1);
D(11:20,1)=O(111:120,1);
Y1=ann_FF_run(P,N,W);
Y2=ann_FF_run(D,N,W);
xx=1:1:130;
plot(xx(1:126),Z);plot(xx(11:120),Y1(:),'r');plot(xx(121:130),Y2,'g');