How would you like your eggs, sir?

No preview image

1 collaborator

Alexander Risman (Author)

WHAT IS IT?

This section could give a general understanding of what the model is trying to show or explain.

HOW IT WORKS

This section could explain what rules the agents use to create the overall behavior of the model.

HOW TO USE IT

This section could explain how to use the model, including a description of each of the items in the interface tab.

THINGS TO NOTICE

This section could give some ideas of things for the user to notice while running the model.

THINGS TO TRY

This section could give some ideas of things for the user to try to do (move sliders, switches, etc.) with the model.

EXTENDING THE MODEL

This section could give some ideas of things to add or change in the procedures tab to make the model more complicated, detailed, accurate, etc.

NETLOGO FEATURES

This section could point out any especially interesting or unusual features of NetLogo that the model makes use of, particularly in the Procedures tab. It might also point out places where workarounds were needed because of missing features.

RELATED MODELS

This section could give the names of models in the NetLogo Models Library or elsewhere which are of related interest.

CREDITS AND REFERENCES

This section could contain a reference to the model's URL on the web if it has one, as well as any other necessary credits or references.

Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

extensions [sound]

breed [sheeps sheep]
breed [wolfs wolf]
breed [persons person]

to do-the-dishes
  clear-all
  sound:stop-music
end 

to scrambled
  
  wall-of-sound
    wall-of-color
end 

to wall-of-sound
  ask patches [
    sound:start-note my-wall-instrument my-wall-pitch 100]
end 

to wall-of-color
  ask patches [
    set pcolor random 100
  ]
end 

to wall-off
  ask patches [sound:stop-note my-wall-instrument my-wall-pitch]
end 

to-report my-wall-instrument 
  report item (random length sound:instruments)
              sound:instruments
end 

to-report my-wall-pitch
  report 35 + random 12
end 

to sunny-side-up
  let d one-of [32 40 48]
  every 1 [
  ask patches [set pcolor 43 + random 5]]
  every 2
  [
  sound:play-note "ORCHESTRAL HARP" one-of 
    [60 62 64 65 67 69 71 72] d .5
  sound:play-note-later .5 "ORCHESTRAL HARP" one-of 
    [60 62 64 65 67 69 71 72] d .5
  sound:play-note-later 1 "ORCHESTRAL HARP" one-of 
    [60 62 64 65 67 69 71 72] d .5
  sound:play-note-later 1.5 "ORCHESTRAL HARP" one-of 
    [60 62 64 65 67 69 71 72] d .5
   ifelse random 100 < 50
  [sound:play-note "VIOLIN" one-of
  [72 74 76 77 79 81 83 84] d .25
  sound:play-note-later 1 "VIOLIN" one-of
  [72 74 76 77 79 81 83 84] d .25]
  [sound:play-note "VIOLIN" one-of
  [72 74 76 77 79 81 83 84] d 1.5
  sound:play-note-later 1.5 "VIOLIN" one-of
  [72 74 76 77 79 81 83 84] d .5]
]
end 

to hard-boiled
  wall-of-sound
  ask patches [set pcolor white]
  ask patch 0 0 [set pcolor yellow]
end 

to poached
  every 120 [
  create-sheeps 100
  create-persons 50
  create-wolfs 10
  set-default-shape sheeps "bird"
  set-default-shape wolfs "wolf 2"
  set-default-shape persons "person"
  ask turtles [set heading random 360
    fd random 100
    ]
  ask sheeps [set color white]
  ask wolfs [set color grey]
  ask persons [set color magenta]
  ]
  every 10 [
    ask patches[
     ifelse random 100 < 5
  [set pcolor green]
  [set pcolor black] ]]
  ask turtles
  [set heading random 360
   fd .05]
  ask sheeps
  [if [breed] of one-of turtles-here = persons
    [if random 10000 < 2
    [ sound:play-note "KOTO" one-of
    [57 58 62 64 65 69] 30 + random 15 1
      die
   ]]
  ]
 ask persons 
 [if [breed] of one-of turtles-here = wolfs
   [if random 5000 < 2
     [sound:play-note "TINKLE BELL" one-of
    
    [57 58 62 64 65 69] 30 + random 15 1
       die]
   ]
 ]
end

There is only one version of this model, created over 13 years ago by Alexander Risman.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.

NetLogo