7 lines
110 B
Mathematica
7 lines
110 B
Mathematica
function x = randomwalk(n,p)
|
|
r = rand(n,1);
|
|
r(r<p) = -1.0;
|
|
r(r>=p) = +1.0;
|
|
x = cumsum(r);
|
|
end
|