read `W:\\GuessRat.txt`: Help1:=proc(): print(` fc() , RS(n), RW(n), BD(n),B(n) , `): print(`GR(i,n), GRe(i,n,K) `): 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: #You have i dollars, you are done when you lost #everything, or made N dollars GR:=proc(i,N) local c,m: c:=0: m:=i: while m>0 and m