The applet requires Java 5 or higher. Java must be enabled in your browser settings. Mac users must have Mac OS X 10.4 or higher. Windows and Linux users may obtain the latest Java from Oracle's Java site.
powered by NetLogo
view/download model file: wine_consuming.nlogo
(a general understanding of what the model is trying to show or explain)
(what rules the agents use to create the overall behavior of the model)
(how to use the model, including a description of each of the items in the Interface tab)
(suggested things for the user to notice while running the model)
(suggested things for the user to try to do (move sliders, switches, etc.) with the model)
(suggested things to add or change in the Code tab to make the model more complicated, detailed, accurate, etc.)
(interesting or unusual features of NetLogo that the model uses, particularly in the Code tab; or where workarounds were needed for missing features)
(models in the NetLogo Models Library and elsewhere which are of related interest)
(a reference to the model’s URL on the web if it has one, as well as any other necessary credits, citations, and links)
turtles-own [ ] breed [homewhiteclasses homewhiteclass] breed [homeroseclasses homeroseclass] breed [homeredclasses homeredclass] breed [fhomewhiteclasses fhomewhiteclass] breed [fhomeroseclasses fhomeroseclass] breed [fhomeredclasses fhomeredclass] breed [barwhiteclasses barwhiteclass] breed [barroseclasses barroseclass] breed [barredclasses barredclass] breed [otherwhiteclasses otherwhiteclass] breed [otherroseclasses otherroseclass] breed [otherredclasses otherredclass] globals [ redwineconsuming whitewineconsuming rosewineconsuming months ] patches-own [ n-sector ] to setup clear-all setup-sector1 ;drink wine at home setup-sector2 ;drink wine at bar or restaurant setup-sector3 ;drink wine at friends'home setup-sector4 ;drink wine at other places set months 1 end to setup-sector1 ask patches with [ pxcor >= 1 and pxcor <= 15 and pycor <= 15 and pycor >= 1] [set pcolor 45 set n-sector 1 ] if ( countries = "1-USA") [ if ( cases = "1-gender") [ set men consumers - women create-homeredclasses women * 2 + men * 4 create-homewhiteclasses women * 4 + men * 2 create-homeroseclasses women * 1 + men * 1 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-homeredclasses Income-A * 4 + INCOME-B * 4 create-homewhiteclasses Income-A * 2 + INCOME-B * 4 create-homeroseclasses Income-A * 2 + INCOME-B * 2 ] if ( cases = "3-knowledge" ) [create-homeredclasses consumers * years-of-school * 0.6 * 0.3 create-homewhiteclasses consumers * years-of-school * 0.6 * 0.4 create-homeroseclasses consumers * years-of-school * 0.6 * 0.3 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-homeredclasses consumers * 1 create-homewhiteclasses consumers * 0 create-homeroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-homeredclasses consumers * 2 create-homewhiteclasses consumers * 1 create-homeroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-homeredclasses consumers * 4 create-homewhiteclasses consumers * 2 create-homeroseclasses consumers * 1 ] if ( 54 < ages ) [create-homeredclasses consumers * 2 create-homewhiteclasses consumers * 2 create-homeroseclasses consumers * 1 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-homeredclasses consumers * 4 create-homewhiteclasses consumers * 1 create-homeroseclasses consumers * 1] if ( marital = "married") [create-homeredclasses consumers * 6 create-homewhiteclasses consumers * 4 create-homeroseclasses consumers * 1] if ( marital = "divorced") [create-homeredclasses consumers * 2 create-homewhiteclasses consumers * 4 create-homeroseclasses consumers * 1]] ] if ( countries = "2-China") [ if ( cases = "1-gender") [ set men consumers - women create-homeredclasses women * 1 + men * 2 create-homewhiteclasses women * 2 + men * 4 create-homeroseclasses women * 0 + men * 1 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-homeredclasses Income-A * 1 + INCOME-B * 3 create-homewhiteclasses Income-A * 1 + INCOME-B * 4 create-homeroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-homeredclasses consumers * years-of-school * 0.2 * 0.6 create-homewhiteclasses consumers * years-of-school * 0.2 * 0.2 create-homeroseclasses consumers * years-of-school * 0.2 * 0.2 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-homeredclasses consumers * 1 create-homewhiteclasses consumers * 0 create-homeroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-homeredclasses consumers * 5 create-homewhiteclasses consumers * 8 create-homeroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-homeredclasses consumers * 3 create-homewhiteclasses consumers * 4 create-homeroseclasses consumers * 1 ] if ( 54 < ages ) [create-homeredclasses consumers * 2 create-homewhiteclasses consumers * 2 create-homeroseclasses consumers * 1 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-homeredclasses consumers * 4 create-homewhiteclasses consumers * 1 create-homeroseclasses consumers * 1] if ( marital = "married") [create-homeredclasses consumers * 6 create-homewhiteclasses consumers * 4 create-homeroseclasses consumers * 1] if ( marital = "divorced") [create-homeredclasses consumers * 2 create-homewhiteclasses consumers * 4 create-homeroseclasses consumers * 1]] ] ask homeredclasses [ setxy 8 8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask homewhiteclasses [setxy 8 8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask homeroseclasses [setxy 8 8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] end to setup-sector2 ask patches with [ pxcor >= -15 and pxcor <= -1 and pycor <= 15 and pycor >= 1] [set pcolor 105 set n-sector 2] if ( countries = "1-USA") [ if ( cases = "1-gender") [ set men consumers - women create-barredclasses women * 1 + men * 2 create-barwhiteclasses women * 2 + men * 1 create-barroseclasses women * 2 + men * 1 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-barredclasses Income-A * 3 + INCOME-B * 4 create-barwhiteclasses Income-A * 2 + INCOME-B * 2 create-barroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-barredclasses consumers * years-of-school * 0.15 * 0.5 create-barwhiteclasses consumers * years-of-school * 0.15 * 0.4 create-barroseclasses consumers * years-of-school * 0.15 * 0.1 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-barredclasses consumers * 1 create-barwhiteclasses consumers * 1 create-barroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-barredclasses consumers * 5 create-barwhiteclasses consumers * 7 create-barroseclasses consumers * 3 ] if ( 36 < ages and ages <= 54 ) [create-barredclasses consumers * 2 create-barwhiteclasses consumers * 2 create-barroseclasses consumers * 3 ] if ( 54 < ages ) [create-barredclasses consumers * 1 create-barwhiteclasses consumers * 1 create-barroseclasses consumers * 0 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-barredclasses consumers * 2 create-barwhiteclasses consumers * 2 create-barroseclasses consumers * 1] if ( marital = "married") [create-barredclasses consumers * 4 create-barwhiteclasses consumers * 2 create-barroseclasses consumers * 1] if ( marital = "divorced") [create-barredclasses consumers * 4 create-barwhiteclasses consumers * 4 create-barroseclasses consumers * 1]] ] if ( countries = "2-China") [ if ( cases = "1-gender") [ set men consumers - women create-barredclasses women * 2 + men * 6 create-barwhiteclasses women * 2 + men * 6 create-barroseclasses women * 2 + men * 3 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-barredclasses Income-A * 3 + INCOME-B * 6 create-barwhiteclasses Income-A * 2 + INCOME-B * 4 create-barroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-barredclasses consumers * years-of-school * 0.4 * 0.5 create-barwhiteclasses consumers * years-of-school * 0.4 * 0.4 create-barroseclasses consumers * years-of-school * 0.4 * 0.1 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-barredclasses consumers * 1 create-barwhiteclasses consumers * 1 create-barroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-barredclasses consumers * 5 create-barwhiteclasses consumers * 3 create-barroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-barredclasses consumers * 4 create-barwhiteclasses consumers * 3 create-barroseclasses consumers * 1 ] if ( 54 < ages ) [create-barredclasses consumers * 1 create-barwhiteclasses consumers * 1 create-barroseclasses consumers * 0 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-barredclasses consumers * 2 create-barwhiteclasses consumers * 2 create-barroseclasses consumers * 1] if ( marital = "married") [create-barredclasses consumers * 4 create-barwhiteclasses consumers * 2 create-barroseclasses consumers * 1] if ( marital = "divorced") [create-barredclasses consumers * 4 create-barwhiteclasses consumers * 4 create-barroseclasses consumers * 1]] ] ask barredclasses [ setxy -8 8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask barwhiteclasses [setxy -8 8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask barroseclasses [setxy -8 8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] end to setup-sector3 ask patches with [ pxcor >= -15 and pxcor <= -1 and pycor <= -1 and pycor >= -15] [set pcolor 65 set n-sector 3] if ( countries = "1-USA") [ if ( cases = "1-gender") [ set men consumers - women create-fhomeredclasses women * 2 + men * 2 create-fhomewhiteclasses women * 3 + men * 2 create-fhomeroseclasses women * 2 + men * 2 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-fhomeredclasses Income-A * 2 + INCOME-B * 2 create-fhomewhiteclasses Income-A * 1 + INCOME-B * 1 create-fhomeroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-fhomeredclasses consumers * years-of-school * 0.2 * 0.4 create-fhomewhiteclasses consumers * years-of-school * 0.2 * 0.2 create-fhomeroseclasses consumers * years-of-school * 0.2 * 0.4 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-fhomeredclasses consumers * 1 create-fhomewhiteclasses consumers * 0 create-fhomeroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-fhomeredclasses consumers * 3 create-fhomewhiteclasses consumers * 3 create-fhomeroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-fhomeredclasses consumers * 3 create-fhomewhiteclasses consumers * 3 create-fhomeroseclasses consumers * 2 ] if ( 54 < ages ) [create-fhomeredclasses consumers * 0 create-fhomewhiteclasses consumers * 0 create-fhomeroseclasses consumers * 0 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1] if ( marital = "married") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1] if ( marital = "divorced") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1]] ] if ( countries = "2-China") [ if ( cases = "1-gender") [ set men consumers - women create-fhomeredclasses women * 2 + men * 4 create-fhomewhiteclasses women * 4 + men * 8 create-fhomeroseclasses women * 1 + men * 2 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-fhomeredclasses Income-A * 2 + INCOME-B * 6 create-fhomewhiteclasses Income-A * 3 + INCOME-B * 6 create-fhomeroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-fhomeredclasses consumers * years-of-school * 0.35 * 0.5 create-fhomewhiteclasses consumers * years-of-school * 0.35 * 0.4 create-fhomeroseclasses consumers * years-of-school * 0.35 * 0.1 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-fhomeredclasses consumers * 1 create-fhomewhiteclasses consumers * 0 create-fhomeroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-fhomeredclasses consumers * 8 create-fhomewhiteclasses consumers * 4 create-fhomeroseclasses consumers * 2 ] if ( 36 < ages and ages <= 54 ) [create-fhomeredclasses consumers * 6 create-fhomewhiteclasses consumers * 4 create-fhomeroseclasses consumers * 2 ] if ( 54 < ages ) [create-fhomeredclasses consumers * 1 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 0 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1] if ( marital = "married") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1] if ( marital = "divorced") [create-fhomeredclasses consumers * 2 create-fhomewhiteclasses consumers * 1 create-fhomeroseclasses consumers * 1]] ] ask fhomeredclasses [ setxy -8 -8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask fhomewhiteclasses [setxy -8 -8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask fhomeroseclasses [setxy -8 -8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] end to setup-sector4 ask patches with [ pxcor >= 1 and pxcor <= 15 and pycor <= -1 and pycor >= -15] [set pcolor 5 set n-sector 4] if ( countries = "1-USA") [ if ( cases = "1-gender") [ set men consumers - women create-otherredclasses women * 1 + men * 1 create-otherwhiteclasses women * 1 + men * 1 create-otherroseclasses women * 1 + men * 1 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-otherredclasses Income-A * 1 + INCOME-B * 1 create-otherwhiteclasses Income-A * 1 + INCOME-B * 1 create-otherroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-otherredclasses consumers * years-of-school * 0.05 * 0.4 create-otherwhiteclasses consumers * years-of-school * 0.05 * 0.4 create-otherroseclasses consumers * years-of-school * 0.05 * 0.2 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ] if ( 18 < ages and ages <= 36 ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ] if ( 54 < ages ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1] if ( marital = "married") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-barroseclasses consumers * 1] if ( marital = "divorced") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1]] ] if ( countries = "2-China") [ if ( cases = "1-gender") [ set men consumers - women create-otherredclasses women * 1 + men * 2 create-otherwhiteclasses women * 1 + men * 3 create-otherroseclasses women * 0 + men * 1 ] if ( cases = "2-income" ) [ set income-B consumers - INCOME-A create-otherredclasses Income-A * 1 + INCOME-B * 2 create-otherwhiteclasses Income-A * 1 + INCOME-B * 2 create-otherroseclasses Income-A * 1 + INCOME-B * 1 ] if ( cases = "3-knowledge" ) [create-otherredclasses consumers * years-of-school * 0.05 * 0.4 create-otherwhiteclasses consumers * years-of-school * 0.05 * 0.4 create-otherroseclasses consumers * years-of-school * 0.05 * 0.2 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [create-otherredclasses consumers * 0 create-otherwhiteclasses consumers * 0 create-otherroseclasses consumers * 0 ] if ( 18 < ages and ages <= 36 ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ] if ( 36 < ages and ages <= 54 ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ] if ( 54 < ages ) [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1 ]] if ( cases = "5-maritail") [ if ( marital = "single") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1] if ( marital = "married") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-barroseclasses consumers * 1] if ( marital = "divorced") [create-otherredclasses consumers * 1 create-otherwhiteclasses consumers * 1 create-otherroseclasses consumers * 1]] ] ask otherredclasses [ setxy 8 -8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask otherwhiteclasses [setxy 8 -8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask otherroseclasses [setxy 8 -8 set shape "cup" set size 2 set color magenta set heading random 360 fd random -8 ] end to monthbymonth if ( countries = "1-USA") [ if ( cases = "1-gender" ) [ set months ( months + 1 ) create-homeredclasses (women * 2 + men * 4 )* months create-homewhiteclasses (women * 4 + men * 2)* months create-homeroseclasses (women * 1 + men * 1 )* months create-barredclasses (women * 1 + men * 2)* months create-barwhiteclasses (women * 2 + men * 1)* months create-barroseclasses (women * 2 + men * 1 )* months create-fhomeredclasses (women * 2 + men * 2)* months create-fhomewhiteclasses (women * 3 + men * 2)* months create-fhomeroseclasses (women * 2 + men * 2 )* months create-otherredclasses (women * 1 + men * 1)* months create-otherwhiteclasses (women * 1 + men * 1)* months create-otherroseclasses (women * 1 + men * 1 )* months] if ( cases = "2-income" ) [set months ( months + 1 ) create-homeredclasses (Income-A * 4 + INCOME-B * 4)* months create-homewhiteclasses (Income-A * 2 + INCOME-B * 4)* months create-homeroseclasses (Income-A * 2 + INCOME-B * 2)* months create-barredclasses (Income-A * 3 + INCOME-B * 4)* months create-barwhiteclasses (Income-A * 2 + INCOME-B * 2)* months create-barroseclasses (Income-A * 1 + INCOME-B * 1)* months create-fhomeredclasses (Income-A * 2 + INCOME-B * 2)* months create-fhomewhiteclasses (Income-A * 1 + INCOME-B * 1)* months create-fhomeroseclasses (Income-A * 1 + INCOME-B * 1)* months create-otherredclasses (Income-A * 1 + INCOME-B * 1)* months create-otherwhiteclasses (Income-A * 1 + INCOME-B * 1)* months create-otherroseclasses (Income-A * 1 + INCOME-B * 1)* months] if ( cases = "3-knowledge" ) [set months ( months + 1 ) create-homeredclasses (consumers * years-of-school * 0.6 * 0.3)* months create-homewhiteclasses (consumers * years-of-school * 0.6 * 0.4)* months create-homeroseclasses (consumers * years-of-school * 0.6 * 0.3)* months create-barredclasses (consumers * years-of-school * 0.15 * 0.5)* months create-barwhiteclasses (consumers * years-of-school * 0.15 * 0.4)* months create-barroseclasses (consumers * years-of-school * 0.15 * 0.1)* months create-fhomeredclasses (consumers * years-of-school * 0.2 * 0.4)* months create-fhomewhiteclasses (consumers * years-of-school * 0.2 * 0.2)* months create-fhomeroseclasses (consumers * years-of-school * 0.2 * 0.4)* months create-otherredclasses (consumers * years-of-school * 0.05 * 0.4)* months create-otherwhiteclasses (consumers * years-of-school * 0.05 * 0.4)* months create-otherroseclasses (consumers * years-of-school * 0.05 * 0.2)* months ] if ( cases = "4-ages" ) [ set months ( months + 1 ) if ( ages <= 18 ) [create-homeredclasses consumers * 1 * months create-homewhiteclasses consumers * 0 * months create-homeroseclasses consumers * 0 * months create-barredclasses consumers * 1 * months create-barwhiteclasses consumers * 1 * months create-barroseclasses consumers * 0 * months create-fhomeredclasses consumers * 1 * months create-fhomewhiteclasses consumers * 0 * months create-fhomeroseclasses consumers * 0 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months] if ( 18 < ages and ages <= 36 ) [create-homeredclasses consumers * 2 * months create-homewhiteclasses consumers * 1 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 5 * months create-barwhiteclasses consumers * 7 * months create-barroseclasses consumers * 3 * months create-fhomeredclasses consumers * 3 * months create-fhomewhiteclasses consumers * 3 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ] if ( 36 < ages and ages <= 54 ) [create-homeredclasses consumers * 4 * months create-homewhiteclasses consumers * 2 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 2 * months create-barwhiteclasses consumers * 2 * months create-barroseclasses consumers * 3 * months create-fhomeredclasses consumers * 3 * months create-fhomewhiteclasses consumers * 3 * months create-fhomeroseclasses consumers * 2 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ] if ( 54 < ages ) [create-homeredclasses consumers * 2 * months create-homewhiteclasses consumers * 2 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 1 * months create-barwhiteclasses consumers * 1 * months create-barroseclasses consumers * 0 * months create-fhomeredclasses consumers * 0 * months create-fhomewhiteclasses consumers * 0 * months create-fhomeroseclasses consumers * 0 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ]] if ( cases = "5-maritail") [ set months ( months + 1 ) if ( marital = "single") [create-homeredclasses consumers * 4 * months create-homewhiteclasses consumers * 1 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 2 * months create-barwhiteclasses consumers * 2 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months] if ( marital = "married") [create-homeredclasses consumers * 6 * months create-homewhiteclasses consumers * 4 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 4 * months create-barwhiteclasses consumers * 2 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-barroseclasses consumers * 1 * months] if ( marital = "divorced") [create-homeredclasses consumers * 2 * months create-homewhiteclasses consumers * 4 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 4 * months create-barwhiteclasses consumers * 4 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months] ] ]if ( countries = "2-China") [ if ( cases = "1-gender" ) [ set months ( months + 1 ) create-homeredclasses (women * 1 + men * 2 )* months create-homewhiteclasses (women * 2 + men * 4)* months create-homeroseclasses (women * 0 + men * 1 )* months create-barredclasses (women * 2 + men * 6)* months create-barwhiteclasses (women * 2 + men * 6)* months create-barroseclasses (women * 2 + men * 3 )* months create-fhomeredclasses (women * 2 + men * 4)* months create-fhomewhiteclasses (women * 4 + men * 8)* months create-fhomeroseclasses (women * 1 + men * 2 )* months create-otherredclasses (women * 1 + men * 2)* months create-otherwhiteclasses (women * 1 + men * 3)* months create-otherroseclasses (women * 0 + men * 1 )* months] if ( cases = "2-income" ) [set months ( months + 1 ) create-homeredclasses (Income-A * 1 + INCOME-B * 3)* months create-homewhiteclasses (Income-A * 1 + INCOME-B * 4)* months create-homeroseclasses (Income-A * 1 + INCOME-B * 1)* months create-barredclasses (Income-A * 3 + INCOME-B * 6)* months create-barwhiteclasses (Income-A * 2 + INCOME-B * 4)* months create-barroseclasses (Income-A * 1 + INCOME-B * 1)* months create-fhomeredclasses (Income-A * 2 + INCOME-B * 6)* months create-fhomewhiteclasses (Income-A * 3 + INCOME-B * 6)* months create-fhomeroseclasses (Income-A * 1 + INCOME-B * 1)* months create-otherredclasses (Income-A * 1 + INCOME-B * 2)* months create-otherwhiteclasses (Income-A * 1 + INCOME-B * 2)* months create-otherroseclasses (Income-A * 1 + INCOME-B * 1)* months] if ( cases = "3-knowledge" ) [set months ( months + 1 ) create-homeredclasses (consumers * years-of-school * 0.2 * 0.6)* months create-homewhiteclasses (consumers * years-of-school * 0.2 * 0.2)* months create-homeroseclasses (consumers * years-of-school * 0.2 * 0.2)* months create-barredclasses (consumers * years-of-school * 0.4 * 0.5)* months create-barwhiteclasses (consumers * years-of-school * 0.4 * 0.4)* months create-barroseclasses (consumers * years-of-school * 0.4 * 0.1)* months create-fhomeredclasses (consumers * years-of-school * 0.35 * 0.5)* months create-fhomewhiteclasses (consumers * years-of-school * 0.35 * 0.4)* months create-fhomeroseclasses (consumers * years-of-school * 0.35 * 0.1)* months create-otherredclasses (consumers * years-of-school * 0.05 * 0.4)* months create-otherwhiteclasses (consumers * years-of-school * 0.05 * 0.4)* months create-otherroseclasses (consumers * years-of-school * 0.05 * 0.2)* months ] if ( cases = "4-ages" ) [ set months ( months + 1 ) if ( ages <= 18 ) [create-homeredclasses consumers * 1 * months create-homewhiteclasses consumers * 0 * months create-homeroseclasses consumers * 0 * months create-barredclasses consumers * 1 * months create-barwhiteclasses consumers * 1 * months create-barroseclasses consumers * 0 * months create-fhomeredclasses consumers * 1 * months create-fhomewhiteclasses consumers * 0 * months create-fhomeroseclasses consumers * 0 * months create-otherredclasses consumers * 0 * months create-otherwhiteclasses consumers * 0 * months create-otherroseclasses consumers * 0 * months] if ( 18 < ages and ages <= 36 ) [create-homeredclasses consumers * 5 * months create-homewhiteclasses consumers * 8 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 5 * months create-barwhiteclasses consumers * 3 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 8 * months create-fhomewhiteclasses consumers * 4 * months create-fhomeroseclasses consumers * 2 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ] if ( 36 < ages and ages <= 54 ) [create-homeredclasses consumers * 3 * months create-homewhiteclasses consumers * 4 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 4 * months create-barwhiteclasses consumers * 3 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 6 * months create-fhomewhiteclasses consumers * 4 * months create-fhomeroseclasses consumers * 2 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ] if ( 54 < ages ) [create-homeredclasses consumers * 2 * months create-homewhiteclasses consumers * 2 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 1 * months create-barwhiteclasses consumers * 1 * months create-barroseclasses consumers * 0 * months create-fhomeredclasses consumers * 1 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 0 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months ]] if ( cases = "5-maritail") [ set months ( months + 1 ) if ( marital = "single") [create-homeredclasses consumers * 4 * months create-homewhiteclasses consumers * 1 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 2 * months create-barwhiteclasses consumers * 2 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months] if ( marital = "married") [create-homeredclasses consumers * 6 * months create-homewhiteclasses consumers * 4 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 4 * months create-barwhiteclasses consumers * 2 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-barroseclasses consumers * 1 * months] if ( marital = "divorced") [create-homeredclasses consumers * 2 * months create-homewhiteclasses consumers * 4 * months create-homeroseclasses consumers * 1 * months create-barredclasses consumers * 4 * months create-barwhiteclasses consumers * 4 * months create-barroseclasses consumers * 1 * months create-fhomeredclasses consumers * 2 * months create-fhomewhiteclasses consumers * 1 * months create-fhomeroseclasses consumers * 1 * months create-otherredclasses consumers * 1 * months create-otherwhiteclasses consumers * 1 * months create-otherroseclasses consumers * 1 * months] ] ] my-update-plots if ( countries = "1-USA") [ if ( cases = "1-gender" ) [set redwineconsuming ((women * 2 + men * 4 )* months + (women * 1 + men * 2)* months + (women * 2 + men * 2)* months + (women * 1 + men * 1)* months) / 10 set whitewineconsuming ((women * 4 + men * 2)* months + (women * 2 + men * 1)* months + (women * 3 + men * 2)* months + (women * 1 + men * 1)* months) / 10 set rosewineconsuming ((women * 1 + men * 1 )* months + (women * 2 + men * 1 )* months + (women * 2 + men * 2 )* months + (women * 1 + men * 1 )* months) / 10 ] if ( cases = "2-income" ) [set redwineconsuming ((Income-A * 4 + INCOME-B * 4)* months + (Income-A * 3 + INCOME-B * 4)* months + (Income-A * 2 + INCOME-B * 2)* months + (Income-A * 1 + INCOME-B * 1)* months ) / 10 set whitewineconsuming ((Income-A * 2 + INCOME-B * 4)* months + (Income-A * 2 + INCOME-B * 2)* months + (Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months ) / 10 set rosewineconsuming ((Income-A * 2 + INCOME-B * 2)* months + (Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months ) / 10 ] if ( cases = "3-knowledge" ) [set redwineconsuming ((consumers * years-of-school * 0.6 * 0.3)* months + (consumers * years-of-school * 0.15 * 0.5)* months + (consumers * years-of-school * 0.2 * 0.4)* months + (consumers * years-of-school * 0.05 * 0.4)* months ) / 10 set whitewineconsuming ((consumers * years-of-school * 0.6 * 0.4)* months + (consumers * years-of-school * 0.15 * 0.4)* months + (consumers * years-of-school * 0.2 * 0.2)* months + (consumers * years-of-school * 0.05 * 0.4)* months ) / 10 set rosewineconsuming ((consumers * years-of-school * 0.6 * 0.3)* months + (consumers * years-of-school * 0.15 * 0.1)* months + (consumers * years-of-school * 0.2 * 0.4)* months + (consumers * years-of-school * 0.05 * 0.2)* months ) / 10 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [set redwineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set whitewineconsuming (consumers * 0 * months + consumers * 1 * months + consumers * 0 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 0 * months + consumers * 0 * months + consumers * 0 * months + consumers * 1 * months ) / 10 ] if ( 18 < ages and ages <= 36 ) [set redwineconsuming (consumers * 2 * months + consumers * 5 * months + consumers * 3 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 1 * months + consumers * 7 * months + consumers * 3 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 3 * months + consumers * 1 * months + consumers * 1 * months ) / 10 ] if ( 36 < ages and ages <= 54 ) [set redwineconsuming (consumers * 4 * months + consumers * 2 * months + consumers * 3 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 2 * months + consumers * 2 * months + consumers * 3 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 3 * months + consumers * 2 * months + consumers * 1 * months ) / 10] if ( ages > 54 ) [set redwineconsuming ( consumers * 2 * months + consumers * 1 * months + consumers * 0 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 2 * months + consumers * 1 * months + consumers * 0 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 0 * months + consumers * 0 * months + consumers * 1 * months ) / 10 ] ] if ( cases = "5-maritail") [if ( marital = "single") [set redwineconsuming (consumers * 4 * months + consumers * 2 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 1 * months + consumers * 2 * months + consumers * 1 * months + consumers * 1 * months) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months) / 10 ] if ( marital = "married") [set redwineconsuming (consumers * 6 * months + consumers * 4 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 4 * months + consumers * 2 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10] if ( marital = "divorced") [set redwineconsuming (consumers * 2 * months + consumers * 4 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 4 * months + consumers * 4 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10 ] ] ] if ( countries = "2-China") [ if ( cases = "1-gender" ) [set redwineconsuming ((women * 1 + men * 2 )* months + (women * 2 + men * 6)* months + (women * 2 + men * 4)* months + (women * 1 + men * 2)* months) / 10 set whitewineconsuming ((women * 2 + men * 4)* months + (women * 2 + men * 6)* months + (women * 4 + men * 8)* months + (women * 1 + men * 3)* months) / 10 set rosewineconsuming ((women * 0 + men * 1 )* months + (women * 2 + men * 3 )* months + (women * 1 + men * 2 )* months + (women * 0 + men * 1 )* months) / 10 ] if ( cases = "2-income" ) [set redwineconsuming ((Income-A * 1 + INCOME-B * 3)* months + (Income-A * 3 + INCOME-B * 6)* months + (Income-A * 2 + INCOME-B * 6)* months + (Income-A * 1 + INCOME-B * 2)* months ) / 10 set whitewineconsuming ((Income-A * 1 + INCOME-B * 4)* months + (Income-A * 2 + INCOME-B * 4)* months + (Income-A * 3 + INCOME-B * 6)* months + (Income-A * 1 + INCOME-B * 2)* months ) / 10 set rosewineconsuming ((Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months + (Income-A * 1 + INCOME-B * 1)* months ) / 10 ] if ( cases = "3-knowledge" ) [set redwineconsuming ((consumers * years-of-school * 0.2 * 0.6)* months + (consumers * years-of-school * 0.4 * 0.5)* months + (consumers * years-of-school * 0.35 * 0.5)* months + (consumers * years-of-school * 0.05 * 0.4)* months ) / 10 set whitewineconsuming ((consumers * years-of-school * 0.2 * 0.2)* months + (consumers * years-of-school * 0.4 * 0.4)* months + (consumers * years-of-school * 0.35 * 0.4)* months + (consumers * years-of-school * 0.05 * 0.4)* months ) / 10 set rosewineconsuming ((consumers * years-of-school * 0.2 * 0.2)* months + (consumers * years-of-school * 0.4 * 0.1)* months + (consumers * years-of-school * 0.35 * 0.1)* months + (consumers * years-of-school * 0.05 * 0.2)* months ) / 10 ] if ( cases = "4-ages" ) [if ( ages <= 18 ) [set redwineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 0 * months ) / 10 set whitewineconsuming (consumers * 0 * months + consumers * 1 * months + consumers * 0 * months + consumers * 0 * months ) / 10 set rosewineconsuming (consumers * 0 * months + consumers * 0 * months + consumers * 0 * months + consumers * 0 * months ) / 10 ] if ( 18 < ages and ages <= 36 ) [set redwineconsuming (consumers * 5 * months + consumers * 5 * months + consumers * 8 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 8 * months + consumers * 3 * months + consumers * 4 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 2 * months + consumers * 1 * months ) / 10 ] if ( 36 < ages and ages <= 54 ) [set redwineconsuming (consumers * 3 * months + consumers * 4 * months + consumers * 6 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 4 * months + consumers * 3 * months + consumers * 4 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 2 * months + consumers * 1 * months ) / 10] if ( ages > 54 ) [set redwineconsuming ( consumers * 2 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 2 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 0 * months + consumers * 0 * months + consumers * 1 * months ) / 10 ] ] if ( cases = "5-maritail") [if ( marital = "single") [set redwineconsuming (consumers * 4 * months + consumers * 2 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 1 * months + consumers * 2 * months + consumers * 1 * months + consumers * 1 * months) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months) / 10 ] if ( marital = "married") [set redwineconsuming (consumers * 6 * months + consumers * 4 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 4 * months + consumers * 2 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10] if ( marital = "divorced") [set redwineconsuming (consumers * 2 * months + consumers * 4 * months + consumers * 2 * months + consumers * 1 * months) / 10 set whitewineconsuming (consumers * 4 * months + consumers * 4 * months + consumers * 1 * months + consumers * 1 * months ) / 10 set rosewineconsuming (consumers * 1 * months + consumers * 1 * months + consumers * 1 * months + consumers * 1 * months ) / 10 ] ] ] ask homeredclasses [setxy 8 8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask homewhiteclasses [setxy 8 8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask homeroseclasses [setxy 8 8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] ask barredclasses [ setxy -8 8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask barwhiteclasses [setxy -8 8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask barroseclasses [setxy -8 8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] ask fhomeredclasses [ setxy -8 -8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask fhomewhiteclasses [setxy -8 -8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask fhomeroseclasses [setxy -8 -8 set shape "cup" set size 2 set color magenta set heading random 360 fd random 8 ] ask otherredclasses [ setxy 8 -8 set shape "cup" set size 2 set color red set heading random 360 fd random 8 ] ask otherwhiteclasses [setxy 8 -8 set shape "cup" set size 2 set color white set heading random 360 fd random 8 ] ask otherroseclasses [setxy 8 -8 set shape "cup" set size 2 set color magenta set heading random 360 fd random -8 ] end to my-update-plots set-current-plot "wine consuming" set-current-plot-pen "red" plot redwineconsuming set-current-plot-pen "rose" plot rosewineconsuming set-current-plot-pen "white" plot whitewineconsuming set-current-plot "domestistic producing" set-current-plot-pen "producing" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 1.5 ] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 1.1 ] set-current-plot "wine exporting" set-current-plot-pen "exporting" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 1.5 * 0.2 ] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 1.2 * 0.01 ] set-current-plot "wine importing" set-current-plot-pen "importing" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 0.3 ] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * 0.5 ] set-current-plot "the revenue cost and profit" set-current-plot-pen "revenue" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * (5 * 0.6 + 10 * 0.2 + 20 * 0.1 + 30 * 0.05 + 40 * 0.05) ] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * (5 * 0.10 + 10 * 0.20 + 20 * 0.20 + 30 * 0.20 + 40 * 0.30) ] set-current-plot-pen "cost" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * (3 * 0.6 + 6 * 0.2 + 14 * 0.05 + 18 * 0.05 + 24 * 0.05) ] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming ) * (2 * 0.10 + 4 * 0.20 + 4 * 0.20 + 12 * 0.20 + 16 * 0.30) ] set-current-plot-pen "profit" if ( countries = "1-USA") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming )* ((5 * 0.6 + 10 * 0.2 + 20 * 0.1 + 30 * 0.05 + 40 * 0.05)-(3 * 0.6 + 6 * 0.2 + 14 * 0.05 + 18 * 0.05 + 24 * 0.05))] if ( countries = "2-China") [plot (redwineconsuming + whitewineconsuming + rosewineconsuming )* ((5 * 0.10 + 10 * 0.20 + 20 * 0.20 + 30 * 0.20 + 40 * 0.30)-(2 * 0.10 + 4 * 0.20 + 4 * 0.20 + 12 * 0.20 + 16 * 0.30))] end