August 2, 2004
horse_race2.mw2
86 KB
horse_race2.zip
19 KB
This is a horse race that uses a simple animation technique that does not require setsh "horse1 etc.
November 1, 2003
This is a simple race between 4 turtles. The race however is currently rigged with an advantage to the fish.
The fish uses a procedure called race_faster
whereas the car uses a slightly slower version called race.
The turtles stop racing when they reach the colour green.
This project also demonstrated the process of animating a turtle with the trot procedure used by the horse.
November 1, 2003
crowd1.mw2
101 KB
crowd1.zip
30KB
A simple version of the crowd idea.
Credit:
This program is based on:
What a Crowd! by Wendy Petti author of Math Cats
http://www.mathcats.com
wpetti@mathcats.com
November 2, 2003
crowd3.mw2
142 KB
crowd3.zip
23KB
crowd3.exe 84 KB
Keywords: math's, estimation, random numbers,
This program stamps a random number of people on the screen The object
is to estimate the number of people and then check your estimate against
the total number of people.
Credit:
This program is based on:
What a Crowd! by Wendy Petti author of Math Cats
http://www.mathcats.com
wpetti@mathcats.com
bounce.mw2
33 KB
bounce.zip
5KB
Fun with bouncing turtles.
to reflect_red
seth 180 - heading ;
make the turtle bounce
end
to reflect_blue
seth 360 - heading ;
make the turtle bounce
end
July 25, 2004
maths1.mw2
66 KB
maths1.zip
20KB
; Author: Rupert
Russell
; e-mail: rupert.russell1@gmail.com
; URL: http://www.rupert.id.au/microworlds
; Purpose: To generate a random collection of turtles
; to promote discussion of mathematical concepts.
; e.g.
; Q. Tell me where the start is? A. Above the car.
; Q. Where is the girl? A.
In front of the house.
; Children can also click & drag turtles on the
screen in response to instructions.
; e.g.
; Move the red circle below the swan.
; Move all the animals above the car.
; Put both fishes together.
; Note to you may add or remove turtles as you wish
; but do not remove the turtle named t_star.
; Key Learning Area (KLA): Mathematics
; CSF II Level: 1
; Strand: Space
; KIDMAP Code: MAMA0105
; Learning Outcome: 1.5
; Use and understand simple everyday location words
; to follow and give an oral direction.
; Learning Indicator: Describe where an item is placed
; (e.g. under the table).
; Created: July 25, 2004 - version
1
; This program may be freely used and modified
; for educational purposes as long as this notice
; remains intact.
------------------------------------------------------------
to go
;-------- This procedure sets the shape of each turtle
; to a random shape. It then moves each turtle
; to a random position on the screen making sure
; that each turtle is not too close to the side
; of the screen.
;
; It then changes the shape of the turtle "t_star
; back to a star. This way there will always be
; a single star on the screen.
cg
everyone [pu]
everyone [setsh (random 62) + 1] ;
only uses 62 turtles
everyone [setx (random 335) - (random 335)+ 5] ;
random x
everyone [sety (random 176) - (random 176)+ 5] ;
random y
talkto "t_star
setsh "star ;
make sure ;
there is ;
always a
; star
end
September 13, 2004
falling.mw2
91KB
falling.zip
32 KB
falling.exe
92 KB
Simulates falling objects.
Each shape falls according to a different set of rulles.
Generated from an idea by David Henderson
October 19, 2004
rotate.mw2
413 KB
rotate.zip
224 KB
rotate.exe
284 KB
rotate
source code
Plugin version
GNU License.txt
buz.mw2
45 KB
buz.zip
18.KB
buz.exe
80 KB
seth 40
make "x 0
forever [
repeat 20 [fd .5 wait 0.1 ]
rt (sin :x) * 10
make "x :x + 10
stamp
]
end
guess1.mw2
12 KB
guess1.zip
9 KB
guess1.exe
72 KB
ct
cc
if min > max [settc "red print [Please set min to less than max] stopall]
if min = max [settc "red print [Please set max to more than min] stopall]
settc "black
print (se [Pick a number greater than ] min - 1)
print (se [& less than ] max + 1 )
make "hiddenNumber (random (max - min)) + min
;show se [The hidden number is ]
:hiddenNumber
end
to ?
ct
if guess > :hiddenNumber [settc "red
print [Too big try again] ]
if guess < :hiddenNumber [ settc "blue
print [Too small try again] ]
if guess = :hiddenNumber [ settc "green
print [You win!]]
end
normal_distribution.mw2
48 KB
; only bounce once per pin
if :bounce [make "direction random 2]
make "bounce "false
; pick a direction to bounce
at random
ifelse :direction = 1 [bounce_left][bounce_right]
end
to bounce_left
; bounce around the pin 16
times
if :draw = "true [pd]
seth 270
repeat 16 [lt 5 fd 1.7 wait :delay]
seth 180
make "bounce "true
end
MindReader.mw2
253 KB
MindReader
source code
; each turtle becomes a random shape
setsh 1 + random 25
end
to Become_Answer
; each Answer turtle becomes
the same random shape
; t9, t18. t27, t36, t45, t54, t63, t72, t81, t90
; choose which random shape
to become
make "random_number 1 + random 25
; change each turtle in turn
to the same random shape
make "t_counter 91
repeat 10[
talkto word "t :t_counter
setsh :random_number
make "t_counter :t_counter -
9
]
end
to psychic
; show the answer on page 2
page2
setsh :random_number + 26
end
May 31, 2006
pirate-map.mw2
449 KB
pirate-map.zip 140 KB
This is an example of a pirates map the objective is to give the turtle commands that will lead it to the gold.
I have drawn the background using stamps of turtles and then used freezebg to freeze the background image that way if you make a mistake you can start again with the CG button and the background does not disappear.
Note that I have stamped the text onto the background as well this is the best way to ensure that the text font and size stay consistent.
