Complex Marriage Stability Problem
Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)
WHAT IS IT?
(a general understanding of what the model is trying to show or explain)
HOW IT WORKS
(what rules the agents use to create the overall behavior of the model)
HOW TO USE IT
(how to use the model, including a description of each of the items in the Interface tab)
THINGS TO NOTICE
(suggested things for the user to notice while running the model)
THINGS TO TRY
(suggested things for the user to try to do (move sliders, switches, etc.) with the model)
EXTENDING THE MODEL
(suggested things to add or change in the Code tab to make the model more complicated, detailed, accurate, etc.)
NETLOGO FEATURES
(interesting or unusual features of NetLogo that the model uses, particularly in the Code tab; or where workarounds were needed for missing features)
RELATED MODELS
(models in the NetLogo Models Library and elsewhere which are of related interest)
CREDITS AND REFERENCES
(a reference to the model's URL on the web if it has one, as well as any other necessary credits, citations, and links)
Comments and Questions
breed [males male] breed [females female] turtles-own [attract standards married] links-own [dif age] patches-own [couple] globals [breakup] to setup clear-all set breakup 0 create-males c [set color blue set shape "person" setxy random-pxcor random-pycor set attract random-normal attmean 2 set standards random-normal stmean 1] create-females c [set color pink set shape "person" setxy random-pxcor random-pycor set attract random-normal attmean 2 set standards random-normal stmean 1] reset-ticks end to go ; ask males with [ count my-links > 1] [face one-of in-link-neighbors] ;ask females with [ count my-links > 1] [face one-of in-link-neighbors] ask turtles [ forward 0.001 ] repeat c [ breakups] ask males [if (count my-links = 0) [create-links-with females in-radius rad with [attract >= [standards] of myself and [attract] of myself >= standards] [set age 0]]] ask turtles [ if (count my-links > 0)[face one-of in-link-neighbors]] ask turtles [ if (count my-links > 0)[set color green]] ask males [ if (count my-links = 0)[set color blue]] ask females [ if (count my-links = 0)[set color pink]] linkage ask links [ set label age ] tick end to breakups ; ask links [ set current abs ([attract] of end1) ] ; ask males [if (count my-links = 1) [create-links-with females in-radius rad with [attract > [current] of myself ; and [attract] of myself >= standards and [attract]] [set age 0]]] ask links [ set dif abs ([attract] of end1 - [attract] of end2) ] ask turtles [ if (count my-links > 1) [ let p min-one-of my-links [dif] if [age] of p <= 10 [ask p [die]]]] ask turtles [ if (count my-links > 1) [ let p min-one-of my-links [dif] if [age] of p > 10 [ask p [die] set breakup breakup + 1 ]]] end to linkage ask links [set age age + 1] end to targetmove let target in-link-neighbors if (count my-links < 1 ) [face target] end to stud create-males 1 [set color yellow set shape "face happy" setxy random-pxcor random-pycor set attract 100 set standards 0] end to labels ask turtles [ set label attract ] ask links [ set label age ] end to hidelabels ask turtles [ set label "" ] end
There are 3 versions of this model.
Attached files
File | Type | Description | Last updated | |
---|---|---|---|---|
Complex Marriage Stability Problem.png | preview | Preview for 'Complex Marriage Stability Problem' | about 5 years ago, by Talha Wani | Download |
DATA.dta | data | Data from Behavior Space experiment to assess radius's effect on breakups | about 5 years ago, by Talha Wani | Download |
NEW DATA WORKING 2.dta | data | New Data from Behavior Space experiment to assess radius's effect on breakups | about 5 years ago, by Talha Wani | Download |
This model does not have any ancestors.
This model does not have any descendants.