Yunjiao.Wang

Simulation models for economics

Project work on

"Wine consuming."

 

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.


Here you can find an introduction to the Wine consuming application.


powered by NetLogo

view/download model file: wine_consuming.nlogo

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)

CODE

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