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