Advanced Search

Question: Serial correlation in coin toss

Question:Serial correlation in coin toss

MrMarc 3163 Maple
June 07 2008
0

When I want to simulate and plot the distribution from a random coin toss (normal distribution) I use the following code:

restart:
randomize():
coin:=rand(0..1):
coin_1:=proc(n) seq(coin(),i=1..n) end:
x_1:=seq([coin_1(10)],i=1..500):
x_2:=[seq(numboccur(1,x_1[i]),i=1..500)]:
with(Statistics):
Histogram(x_2,frequencyscale=relative,discrete = true );

what code should I use in order to get a coin with serial correlation. A normal distribution with fat tails? (Prefereably I want to tweak the above code)

 
Please Wait...