read `W:\\GuessRat.txt`:

Help1:=proc(): print(` fc() , RS(n), RW(n), BD(n),B(n)  `): end:

#a fair coin with sides -1 and 
fc:=proc() local ra: 2*rand(1..2)()-3:end:

#RS(n): a random sequence of {-1,1} of length n
RS:=proc(n) local i:
[seq(fc(),i=1..n)]: end:

#RW(n): a random walk as a sequence of points
RW:=proc(n) local L,i:
L:=RS(n):

[ seq([i,add(L[j],j=1..i)    ] , i=0..n)]:

end:

#the plot of a random walk of length n
BD:=proc(n): plot(RW(n)):end:




 B:=proc(n) local L,i:
 L:=RW(n):

 L:=evalf([seq([L[i][1]/n,L[i][2]/sqrt(n) ], i=1..n)]):
plot(L):

end: