%
%
%       Biofisica 2006 - FCEyN - UBA
%       Random Walks

function w=rw(p,l)

q=1-p;

w(1)=0;  % Lugar de comienzo del random walk


for i=1:l
    
    if rand<p 
        w(i+1)=w(i)+1;  % paso a la derecha con probabilidad p
    else
        w(i+1)=w(i)-1;  % paso a la izquierda con probabilidad q
    end
end