turtles-own
. }4 b' z( g% P2 }% }to setup5 Q+ z+ Y- k2 D" k+ G2 M( x2 V
clear-all$ ~! D& ]9 O% d, S3 O4 a+ k
create-turtles 100
/ x3 @- C6 U8 _ o7 {9 M+ C ask turtles [setxy random-xcor random-ycor]
" l6 Q1 V' ~- u' r% Y, x end
& A% S* q! C |" ]) N / t/ r8 V2 ~& e6 G$ v( I+ N
to go
: `" E7 w4 D# c6 m' w ask turtles
& h$ E4 o! A1 c' b3 B [ right random 360 forward 1]
8 X$ ~( t" H! J. ]8 ^: W, l. ^0 I7 \ run-a-turtle4 {& `3 p+ v' z s
end 4 t) V+ e+ S0 n0 Z* f6 |/ G% P) c
, y% Y) N9 d, Z! A0 @- I
to run-a-turtle
4 k3 C C: H- R ask turtle i [set color red
- D! a) A- p1 @/ S5 \1 q7 P set i i + 1 ]
* x9 U. _% @5 |: c ifelse i >= 99 [stop]
( L. T+ C+ j" {1 n, { [run-a-turtle], K3 B, i% o" Y- [' Q
end0 ]8 P0 p [' ^1 f+ t
我这个程序就是运行不起,我想随机create100个turtles,然后,让turtles一个一个的变红,这里我用了一个循环,而且一个一个叫turtle变红,我就是用的ask turtle i.
3 H5 p9 o. D$ r# Z( m最近我都在自己学这个语言,有很多不精的地方,这个程序就是通不过,谁能帮忙看看啊,万分感谢!!!!! |