function x = randomwalk(n,p)
% returns a random wolk with n steps and 
% probability p for positive steps.
    r = rand(n,1);
    r(r<p) = -1.0;
    r(r>=p) = +1.0;
    x = cumsum(r);
end