turtles-own
0 @+ m, J: P0 r2 m4 r8 c- @to setup/ x! i# q( B: j0 A4 Y% W' `1 d
clear-all
) } [9 p3 ^1 z create-turtles 100
9 T" V1 t. c, E J. x ask turtles [setxy random-xcor random-ycor]
- a! D* q. G1 `% T* t end" a) z0 w& H( ~3 V
8 h5 U4 ^! E7 y Q" w8 [- @% g. Nto go
[: l( Y" b% T/ l4 E3 X. p8 m/ N ask turtles# Y$ p! J6 |- g& H
[ right random 360 forward 1]
( A: d3 @3 A# e% W8 y3 i run-a-turtle
7 o8 a% n7 N1 v9 n# ?end
: k! `! ^' @2 G4 }8 A! x! h5 r/ X5 j3 L! ?' O
to run-a-turtle
) x: C0 }5 D2 a" a ask turtle i [set color red : F3 Z" R9 V) g, D$ i
set i i + 1 ]) `0 O, `5 Q/ }! d$ w, G
ifelse i >= 99 [stop] K! `* m. ~+ D! s; _2 l
[run-a-turtle]
1 k" j- A- O7 `8 M$ U: {& u# Dend
* }. R: c+ T9 V 我这个程序就是运行不起,我想随机create100个turtles,然后,让turtles一个一个的变红,这里我用了一个循环,而且一个一个叫turtle变红,我就是用的ask turtle i.
- K) Z4 k+ t( f* Q* V- q最近我都在自己学这个语言,有很多不精的地方,这个程序就是通不过,谁能帮忙看看啊,万分感谢!!!!! |