Advanced Search

Question: Error, (in limit/mrv/limsimpl) too many levels of recursion ( Wiener process)

Question:Error, (in limit/mrv/limsimpl) too many levels of recursion ( Wiener process)

q41b3 20 Maple
sum add
July 01 2019
0

Could you help me fix this code?
Thanks in advance

> 

with(Statistics)
> 

Wpath := proc (steps, t) local walk, i, N, ww; N := nops(steps); walk[0] := 0; for i from 0 to N-1 do walk[i+1] := walk[i]+steps[i+1]*sqrt(t/N) end do; ww := seq(plot(walk[i], t*i/N .. t*(i+1)/N), i = 0 .. N-1); plots[display]([ww]) end proc
> 

N := 400
> 

numbers := [random[empirical[.5, .5]](N)]
> 

st1 := map(proc (x) options operator, arrow; 2*x-3 end proc, numbers)
> 

list_of_k := [40, 20, 10, 5, 2, 1]
> 

for j to nops(list_of_k) do k := list_of_k[j]; st[k] := [seq((sum(st1[p], p = i*k-k+1 .. k*i))/sqrt(k), i = 1 .. N/k)] end do

Error, (in limit/mrv/limsimpl) too many levels of recursion

  
> 

``


 

Download Wiener_process.mw
Please Wait...