Una simulazione classica: il moto casuale di una particella nel piano.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 |
DIM=5 ' dimensione del passo '-------------------------------------------- Turtle.Speed=10 ' velocità massima '-------------------------------------------- Timer.Interval=100 ' 10 passi al secondo Timer.Tick =PASSO '-------------------------------------------- Sub PASSO x=Turtle.X ' posizione attuale y=Turtle.Y dir=Math.GetRandomNumber(4) ' dove andare? If(dir = 1) Then x=x+DIM ElseIf(dir = 2) Then x=x-DIM ElseIf(dir = 3) Then y=y+DIM ElseIf(dir = 4) Then y=y-DIM EndIf Turtle.MoveTo(x,y) ' nuova posizione EndSub '-------------------------------------------- |
Esercizi
- Il passo più piccolo porterà a figure più dense.
- Aggiungi più casualità: colore, spessore, passo, movimenti in diagonale, …
- Si può evitare che la tartaruga esca dallo schermo visibile.