to go: X: N% k9 X1 y% P
prices# N n5 w' @' {- M- v* r
enlarge-market5 A; m* t2 I% C: |+ u
supervision# Z' a" c8 W% F# n; [, N- s
move-turtles- n6 M* ?6 v0 @" d8 x
new-producer
9 G6 o: K0 T8 E2 ` check-death) T* d+ [9 l! R$ A0 S8 ?/ i5 Q
tick+ i$ c9 N/ {' t6 N" k
do-plots
% J) @) `7 D( m1 rend7 s: G* _7 U6 S( P# K' {
to move-turtles$ h- c9 a' [3 a
pcs[+ `4 Y/ }0 T a* k4 b3 }& `7 X
ifelse counter > 0' h' N; _/ ]$ s/ Q6 {
[ set counter counter - 1
% M0 x! Y) r$ [+ G9 ?# |4 N set money money - cost1]
9 e7 m1 \; I+ c$ x4 ~+ E7 B [ right random 360. H! @% D; T' a1 p
repeat 1 [rt random 360" a- P9 P6 a/ E2 _
forward 1
6 s1 E8 d0 l1 S, P& R if pcolor = grey [ K) D, E6 @2 f- B
set pcolor yellow - 2- z6 p% L+ G1 e9 s) t% x
set quantity(quantity + 1)]]5 Z. @- R0 W8 ]8 V8 v
set money(1 - exposure-rate / 100)*(money + jiage * quantity)2 Q Q$ F( E) T! A
set money money - cost1]- B. W, e$ i4 b) ]0 X1 x- U
]
/ _% O/ u. i( y6 \ ask pes
: B2 n3 n& ~$ C. M. { [right random 360
4 R! b$ y& @* p' I } forward 1( ~6 V8 a; `' b" s8 q$ F* A
set money money + jiage * quantity+ H" {! f/ [' N: |1 [" a, n' }( s
set money money - cost2]
% ~8 @- ]. m$ R- x7 W" r6 f1 ?end |