to go
' H+ F( Y+ k% M( L$ Z7 \ prices+ r0 s3 c6 ~# \ H( |
enlarge-market
& ~# @' u# f* h supervision
- K6 {% L$ Q Z move-turtles
- r- z: f- j) r9 s; E' Q. z1 f new-producer
1 C- D! I" `: U* h" Q( M% r check-death
1 _( v/ g4 E* u: Z( D tick+ T2 V& X; ?/ R' Q0 p/ m
do-plots
a) H% ^+ r1 I% Eend3 H: P$ z3 `+ L$ B* W
to move-turtles( w% ]3 u! k& s M ?4 Q" g! Y3 N
pcs[* v6 _9 W" r& y8 n' H+ G! E9 @$ ^
ifelse counter > 07 k* U3 O9 C# W! p
[ set counter counter - 1* E7 B2 P5 a3 }, T, O
set money money - cost1]
1 o* t" }4 c" a7 d [ right random 3608 ]5 C/ _, A( g/ o
repeat 1 [rt random 360
. ]8 Y: ]6 O- \: I7 U, N forward 15 M" u3 a" p0 F6 ^/ L* Z" O
if pcolor = grey [; h2 W/ F; t- X2 D
set pcolor yellow - 2
3 g* G& |! C$ d, M0 f set quantity(quantity + 1)]]
4 i( t2 ?4 W/ [# l' G set money(1 - exposure-rate / 100)*(money + jiage * quantity)
L4 n9 {3 v, l; n5 k# i) R9 }- y set money money - cost1]
0 x2 ?; ^8 W* H5 k ]2 |. s- m# }: r
ask pes9 R. \3 _" x& i0 z5 b
[right random 360
& O$ T4 w! W% l7 \# i% y, n% A forward 15 s) r3 {1 \% v0 Q$ v5 S. w
set money money + jiage * quantity
- i( t3 Q2 k3 a set money money - cost2]
' U% m, b1 p. S' Pend |