to go' p0 Q: R2 F! D8 F6 [
prices: K7 }: w& ]# o; F8 L; g
enlarge-market
( }- J; @+ D2 _) t0 z supervision0 r8 D( a4 p! h( y9 ~: E
move-turtles6 [% u& H4 a4 M& c- @! V
new-producer
% Z% F: Z' t ~ check-death+ j+ H4 Q% G& v
tick
6 v1 O( W! j, N2 l9 R& X do-plots6 z. T7 j& {" y W
end# q4 E* [* a! e8 _' J8 x5 E2 T/ i
to move-turtles
* Q. e" x1 g- i7 H pcs[" c2 ?# \2 S: d' H E
ifelse counter > 0
6 t: G$ Y7 c5 D- I/ D [ set counter counter - 1
6 p; e$ Z4 U# I7 }) E set money money - cost1]' Z* {2 Q- D6 `3 s8 o
[ right random 360$ v/ d! x' y3 ^, }- W; R; c% ^- Q
repeat 1 [rt random 3603 u, g( Z+ h4 @7 o q
forward 1
/ W: Q) i+ Q1 x; R; A, Y if pcolor = grey [
) i: x8 z$ B1 s# `& f set pcolor yellow - 2
4 X( A: s: N+ d% L set quantity(quantity + 1)]]
& {2 [+ _% n! X& B# x0 G3 c set money(1 - exposure-rate / 100)*(money + jiage * quantity)
/ J& ?- V# P5 n8 h, l4 H3 V j7 [ set money money - cost1]
H& N2 P; Q: t1 M ]
1 Q1 C( G+ @) l9 g ask pes$ Q3 S1 y1 B( ]+ h7 X9 H% R- ?) E
[right random 360& _* R3 R/ O' S. m
forward 1% p$ j( R7 H+ [3 [* }
set money money + jiage * quantity% d7 x1 E1 H6 O5 x) J* Y6 X
set money money - cost2]/ l! E/ O9 r: Q' |8 ?, [
end |