NS L12(8)

clear;
x(1)=0.2;
for i=2:200;
    x(i)=(4*(x(i-1)))*(1-x(i-1));
end;
Q=length(x);
v=10;
u=120;
t=x(1,v+1:v+u);

for i = 1:v
p(i, 1:u) = x(1,i:i+u-1);
end;
net = newff(minmax(p), [10, 1], {'logsig', 'purelin'});
net = train(net, p, t);
y1 = sim(net, p);
plot(y1 - t)
n = 166
x(n)
sim(net, x(n - v:n-1)')