correction:
> PB=: 4 : 0 "1
> n=. x
> 'd os'=. y
> 'w per_mat m pr' =. d
>
Sorry, this line need to global:
'w per_mat m pr' =: d
> z=.i.0, #w
> for_o. os do.
> f =. m + pr * ( 4 : 'y*x%+/w*(f%z)*n*1-^-z=.m+f=.pr*y'^:_ 2:) `...@.(<&2) o
> z=.z, n=. 3e4,}:n*^-f
> end.
> )
>
>
>
> PB=: 4 : 0 "1
> n=. x
> 'd os'=. y
> 'w per_mat m pr' =. d
>
also:
'w per_mat m pr' =: d
> z=.i.0, #w
> for_o. os do.
> f =. m + pr * ( 4 : 'y*x%+/w*(f%z)*n*1-^-z=.m+f=.pr*y'^:_ 2:) `...@.(<&2) o
> b=. +/per_mat*w*n*^-spawn_t * f
> r=. (b<breakpoint){ ( ({...@$ )recruit_h),({ ~...@$ ) recruit_l
> z=.z, n=. r,}:n*^-f
> end.
> )
>
>
--
Met vriendelijke groet,
=@@i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
