n=10000;
count=100;
N=n/count; %N=100
r=rand(1,N-1);
for i=1:N-1,
if (r(i)>=0.5)
r(i)=1;
else r(i)=-1;
end;
end;
for i=1:n-count
R(i)=r(((i-1)-mod((i-1),count))/count+1);
end;
a(1)=1;
for i=2:N
if r(i-1)==1
a(i)=-a(i-1);
else a(i)=a(i-1);
end;
end;
for i=1:n
A(i)=a(((i-1)-mod((i-1),count))/count+1);
