Question

Using Mathematica programming -- I need the program to run 8 times and get 8 different outputs-

I only get one output -- I think I need to use the For loop function -- don't know how to insert into program. Help.

Clear["Global`*"]

numCoinFlips = 500 (* This is the # of coin flips. *)
x[1] = 0;

For[n = 1, n < numCoinFlips + 1,
y[n] = Sign[RandomReal[{-1, 1}]];
(* y[n] is the sequence of coin flips. *)
x[n + 1] = x[n] + y[n];
n = n + 1
]

Table[x[n], {n, 1, numCoinFlips}]
Position[Table[x[n], {n, 1, numCoinFlips}], 0] --This lines tells me what position do I find the zero's on output

Answer 1

Clear["Global`*"]

numCoinFlips = 500 (* This is the # of coin flips. *)
x[1] = 0;

For(i=0, i<8,i++)

[

For[n = 1, n < numCoinFlips + 1,
y[n] = Sign[RandomReal[{-1, 1}]];
(* y[n] is the sequence of coin flips. *)
x[n + 1] = x[n] + y[n];
n = n + 1
]

]

Table[x[n], {n, 1, numCoinFlips}]
Position[Table[x[n], {n, 1, numCoinFlips}], 0]

just use the for loop for 8 times