Representation in Classroom

No preview image

1 collaborator

Amy Herbertson (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

turtles-own [energy]

globals
[cwomen cmen
  qwomen qmen
  ]

to set-count
  set cwomen 0 
  set cmen 0
  ask turtles [
    ifelse color = red 
    [set cwomen (cwomen + 1)
    ]
  [set cmen (cmen + 1)
  ]
  ]
end 

to setup
  clear-all
   set-default-shape turtles "person"
  create-turtles number [
    choose-sex                   
    set size 3    
  spread-out-horizontally 
  ]    
  set qwomen 0
  set qmen 0  
  set-count
  ;;do-plots
end 

to choose-sex  
  set color one-of [red yellow]
end 

to-report woman?  
  report color = red
end 

to go
  ask-questions
end 

to ask-questions
 ask turtles [
 ifelse woman? 
 [set energy random cwomen]   
     [set energy random cmen]
 if energy > ( cmen / 2 ) 
 [ ifelse woman? [ left 90 forward 1 back 1 right 90 set qwomen (qwomen + 1)
     set qwomen (qwomen + 1) do-plots] 
   [ rt 90 forward 1 back 1 left 90 set qmen (qmen + 1) set qmen (qmen + 1) do-plots
   ]]
 ]
end 

to do-plots
  set-current-plot "Questions"
  set-current-plot-pen "boys"
  plot qmen / cmen
  set-current-plot-pen "girls"
  plot qwomen / cwomen
end 

to spread-out-horizontally
  ifelse woman?
    [ facexy max-pxcor 0 ]  
    [ facexy min-pxcor 0 ]  
  fd 4                   
  while [any? other turtles-here] [ fd 1 ]
end 

to setup-turtles
    create-turtles number
    ask turtles [ spread-out-horizontally ]
end

There is only one version of this model, created about 15 years ago by Amy Herbertson.

Attached files

No files

This model does not have any ancestors.

This model does not have any descendants.

NetLogo