Sorry, more globals needed inside PB:
PB=: 4 : 0 "1
ni=: x
'd os'=. y
'w per_mat m pr' =: d
z=.i.0, #w
for_o. os do.
f=. m + pr * ( 4 : 'y * x % +/ w * (f % z) * ni * 1 - ^ - z=. m + f=.
pr * y'^:_ 2:)`...@.(<&2) o
b=. +/ per_mat * w * ni * ^ - spawn_t * f
r=. (b<breakpoint){ ( ({...@$ )recruit_h),({ ~...@$ ) recruit_l
z=. z, ni=: r,}: ni * ^ - f
end.
)
I hope this will do. :-(
--
Met vriendelijke groet,
=@@i
----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm
