to go' X' |- J8 s) Z6 M& `' Z% {' @
prices% d6 C8 `/ A4 t/ ?) _
enlarge-market
5 s/ Y& ?0 |7 |1 K, l supervision
8 i* j' i& i. b7 V# k- V0 i2 [ move-turtles
+ U2 ~5 ^2 M0 r, n3 } new-producer5 j/ V; d+ h: m* g% t: P
check-death
5 C. [' O# |) z3 _: G; z! w8 i tick% R7 f, w9 K/ V- f+ t% R, S
do-plots3 p1 w, T1 ~8 I+ a
end8 ?$ Y1 [7 W) `$ h A
to move-turtles& d% U& ~. c9 W1 ?; L, D
pcs[$ q" [9 }& E' y: g/ p2 E3 D! T
ifelse counter > 0* N7 n8 `1 [" X
[ set counter counter - 1; Q ]% i2 L K! I1 a X2 [
set money money - cost1]
- K( {2 Z. D1 N [ right random 360
$ d- D# F: R$ j. H1 D repeat 1 [rt random 360: X; Y! u7 P, g0 C( G( u" d/ E
forward 1
Q! H+ Q/ U/ d- D) k* ~. `; {. D if pcolor = grey [
2 q" @% A. I" b8 e: w. k: W set pcolor yellow - 2
! t: b* G' e- y$ Z7 m i set quantity(quantity + 1)]]/ Z' t: K5 n: f. b
set money(1 - exposure-rate / 100)*(money + jiage * quantity)* {% s6 O% P% U* ], v3 K
set money money - cost1]: z9 S: B% t3 v; T" E5 @; [
]' j3 w7 M* z: L
ask pes
) \. w# J4 F, R- L$ V. ?) n1 K [right random 360
3 E* G# i# S$ Q; J+ S I forward 1* ~ j: m* b' R8 s
set money money + jiage * quantity
e+ a0 W5 |# S0 @# a0 x set money money - cost2]
Z6 I( N% m, ^2 R+ g% lend |