r=randn(1,200)
a=0
for j=5.992:0.00008:6.008
   a=a+1
   r(a)=j
end
s=zeros(40,6)
a=0
for j=1:5:196
    a=a+1
    k=[r(j),r(j+1),r(j+2),r(j+3),r(j+4)]
    s(a,:)=poly(k)
end
b=0;
for b=1:6
plot(s(:,b))
hold on
end