Advanced Search

Question: Error, unterminated procedure

Question:Error, unterminated procedure

q41b3 20 Maple
syntax procedure
May 29 2019
1


Could you help me?

> 

restart
> 

with(stats)
> 

with(plots)
> 

"RandWalk :=proc(N,p,q,sa,sb,M) local A,B,r,PA,PC,PB, state,step,path: A:=-N: B:=N: r:=1-p-q: PA:=empirical[0.,sa,1-sa]: PC:= empirical[q,r,p]: PB := empirical[1-sb,sb,0.]: state:=0: path:=state: from 1 to M do if (A< state and state <B) then step:=trunc(stats[random, PC](1))-2: else if state =A then step:= trunc(stats[random,PA](1))-2: else if state =B then step:= trunc(stats[random,PB](1))-2: end if: state := state + step: path := path,state: end do: plots[pointplot]([seq([i,path[i]],i=1..nops([path]))],axes=BOXED): end proc:"

Error, unterminated procedure

"RandWalk :=proc(N,p,q,sa,sb,M) local A,B,r,PA,PC,PB, state,step,path: A:=-N: B:=N: r:=1-p-q: PA:=empirical[0.,sa,1-sa]: PC:= empirical[q,r,p]: PB := empirical[1-sb,sb,0.]: state:=0: path:=state: from 1 to M do if (A< state and state <B) then step:=trunc(stats[random, PC](1))-2: else if state =A then step:= trunc(stats[random,PA](1))-2: else if state =B then step:= trunc(stats[random,PB](1))-2: end if: state := state + step: path := path,state: end do: plots[pointplot]([seq([i,path[i]],i=1..nops([path]))],axes=BOXED): end proc:"

  
> 

``


 

Download randomWalk.mw
 

> 

restart
> 

with(stats)
> 

with(plots)
> 

"RandWalk :=proc(N,p,q,sa,sb,M) local A,B,r,PA,PC,PB, state,step,path: A:=-N: B:=N: r:=1-p-q: PA:=empirical[0.,sa,1-sa]: PC:= empirical[q,r,p]: PB := empirical[1-sb,sb,0.]: state:=0: path:=state: from 1 to M do if (A< state and state <B) then step:=trunc(stats[random, PC](1))-2: else if state =A then step:= trunc(stats[random,PA](1))-2: else if state =B then step:= trunc(stats[random,PB](1))-2: end if: state := state + step: path := path,state: end do: plots[pointplot]([seq([i,path[i]],i=1..nops([path]))],axes=BOXED): end proc:"

Error, unterminated procedure

"RandWalk :=proc(N,p,q,sa,sb,M) local A,B,r,PA,PC,PB, state,step,path: A:=-N: B:=N: r:=1-p-q: PA:=empirical[0.,sa,1-sa]: PC:= empirical[q,r,p]: PB := empirical[1-sb,sb,0.]: state:=0: path:=state: from 1 to M do if (A< state and state <B) then step:=trunc(stats[random, PC](1))-2: else if state =A then step:= trunc(stats[random,PA](1))-2: else if state =B then step:= trunc(stats[random,PB](1))-2: end if: state := state + step: path := path,state: end do: plots[pointplot]([seq([i,path[i]],i=1..nops([path]))],axes=BOXED): end proc:"

  
> 

``


 

Download randomWalk.mw

 

restart; with(stats); with(plots); RandWalk :=proc(N,p,q,sa,sb,M) local A,B,r,PA,PC,PB, state,step,path: A:=-N: B:=N: r:=1-p-q: PA:=empirical[0.,sa,1-sa]: PC:= empirical[q,r,p]: PB := empirical[1-sb,sb,0.]: state:=0: path:=state: from 1 to M do if (A< state and state
Please Wait...