Civilization

Civilization preview image

1 collaborator

Avatar_black Leo B (Author)

Tags

civilization 

Tagged by Leo B over 10 years ago

human simulation 

Tagged by Leo B over 10 years ago

Visible to everyone | Changeable by the author
Model was written in NetLogo 5.0.5 • Viewed 563 times • Downloaded 41 times • Run 0 times
Download the 'Civilization' modelDownload this modelEmbed this model

Do you have questions or comments about this model? Ask them here! (You'll first need to log in.)


Comments and Questions

Please start the discussion about this model! (You'll first need to log in.)

Click to Run Model

;; note :
;; cycle jour/nuit avec green + + et - - 
;; chasse mais avec les arbres pour le bois
;; creation denfants, vieillissement
;; fd en fonction de lage

Breed [humans Human]
breed [tree wood]
breed [towns town]
breed [foods food]
breed [houses house]

directed-link-breed [hunters hunter]
directed-link-breed [parents parent]

undirected-link-breed [lovers love]

tree-own [ ressource ]

towns-own [
  stock-food
  stock-wood
]

humans-own [ 
  sexe 
  age
  metier
  energie
  energie-max
  max-transporte
  type-item
  quantity
  target
  my-home
  can_move?
  ]

houses-own[
 owner 
]

foods-own [ 
  ressource
  energie
  can_move?]

globals [
 year 
 day
 hour
 night?
 mort-vieu
 mort-number
]

to SETUP
  ;; (for this model to work with NetLogo's new plotting features,
  ;; __clear-all-and-reset-ticks should be replaced with clear-all at
  ;; the beginning of your setup procedure and reset-ticks at the end
  ;; of the procedure.)
  __clear-all-and-reset-ticks
  prepare-patch
  prepare-turtle
  set year 0
  set hour 10
  set night? false
  set mort-number 0
  set mort-vieu 0
end 

to prepare-turtle
  ask n-of 1 patches WITH [pxcor < 70 and pxcor > -70 and pycor < 70 and pycor > -70 ][
    sprout 1[
     set breed towns 
     set shape "campsite"
     set size 5
     set color 52
     set stock-food 10000
    ]
    create_human humans-quantity 20
  ]
 create_tree 500
 create_food 1000
end 

to prepare-patch
  ask patches[
   set pcolor green 
  ]
end 

to affichage
ifelse show-couple? [ask lovers [show-link]][ask lovers [hide-link]]
ifelse show-hunters? [ask hunters [show-link]][ask hunters [hide-link]]
ifelse show-generation? [ask parents [show-link]][ask parents [hide-link]]
end 

to graph
  set-current-plot "Population"

  set-current-plot-pen "total"
  plot (count humans)
  
  set-current-plot-pen "couples"
  plot (count lovers)
  
  set-current-plot "Mort"
  
  set-current-plot-pen "Total"
  plot (mort-number)
  
  set-current-plot-pen "Vieillesse"
  plot (mort-vieu)
  
  set-current-plot "Ressources"

  set-current-plot-pen "Stock"
  plot (sum [stock-food] of towns)
  
  set-current-plot-pen "Nature"
  plot (sum [ressource] of foods)
  
  
  set-current-plot "Population Age"

  set-current-plot-pen "Age_moyen"
  plot (sum [age] of humans / count humans)
  
  set-current-plot-pen "Esperance de vie"
  plot (sum [energie-max] of humans / count humans)
end 

to GO
  affichage
  ifelse less-lag? [ ask turtles with [ breed != humans and breed != houses and breed != towns ] [ hide-turtle] ][ask turtles [show-turtle]]
  every Speed[
    go-town
    if not night? [
    take-target
    hunt
    relationship
    create-family
    ]
    move
    repop 
    mort
    if test-fast? [naissance]
    if night?  [
      naissance
      ask humans [
        set target nobody
        ask my-out-hunters [die]
      ]
    ]
  ]
  every (Speed + 0.1) * 1.2[
    graph
    set hour hour + (2 / 30)
    if test-fast? [ ask humans [if (not night?) or (night? and age < 20) [ set age age + 0.5]]]
        if night? [set hour hour + 1 / 30]
    if hour > 24 [ set hour 0 
      set day day + 1
      if not test-fast? [ask humans[ set age age + 2]]]
    if day > 365 [ set day 0 
      set year year + 1]

    set night? false
    if hour < 9 [set night? true]
    if hour < 9 and hour > 7[
    ask patches with [pcolor < 55][
     set pcolor pcolor + 0.3 
    ]]
    if hour > 19[
      set night? true
    ask patches with [pcolor > 53][
     set pcolor pcolor - 0.3 
    ]]
ask humans [ set size age / 100 
  if size > 2 [set size 2 ]]
  ]
  if count humans = 0 [ stop ]
end 

to mort
ask turtles With [(breed = humans) or (breed = foods)][
  if energie < 0 [
    if breed = humans [ set mort-number mort-number + 1]
    die
    ]
]
ask humans [
;; if age > ( random 20 + 85 ) [die]
if (age > (energie-max / 5 ) and not test-fast?) or (age > ( energie-max) and test-fast? ) [
  set mort-number mort-number + 1 
  set mort-vieu mort-vieu + 1
  die]
]
ask hunters [
 ask end1 [ set target nobody ]
 if link-length > 10 or end2 = nobody or end1 = nobody [die]
]
ask houses[
  if owner != nobody [
 if count owner = 0 [die] ]
]
end 

to move
  ask turtles With [((breed = humans) or (breed = foods)) and can_move?][
    if random 100 < 30 [
   left random 90
   right random 90
    ]
    
       
    
    if breed = foods and random 1000 < 10 [
      face min-one-of towns [distance myself]
    ]
    
    if breed = humans [
      let close-town my-home
     if target != nobody[
       face target
    ]

   if ([distance myself] of close-town >= ( (energie - (60 / 100 * energie)) / 2 - 10 / 100 * energie)) or (quantity > max-transporte) or night?
   [
     face close-town
   ]
   fd 0.5
    ]
if (breed = humans or (breed = foods and not night?))  [fd 0.2 ]

if not night?  [set energie energie - 1]
  ]
end 

to repop
  if (random 1000 < 50) and (count tree < 600) [
  create_tree 3
  if night? [create_tree 7]
  ]
  if (random 1000 < 50) and (count foods < 600) [
  create_food 7
  if not night? [create_food 3]
  ]
end 

to create_tree [ number ]
  ask n-of (random number) patches[
     sprout 1 [
     set breed tree
     set shape "tree"
     set color green - 2
     set ressource random 100
     set size (ressource / 10)
   ]
  ]
end 

to create_human [number value-age]
  sprout number [
    set breed humans
    set shape "person"
    set size 1.1
    ifelse random 100 > 50 
    [set color red
      set sexe "male"]
    [set color blue
      set sexe "female"]
    
      set age ((random value-age) + 17 )
ifelse test-fast?   [set energie-max ((random (( hour + 2 + day * 24 ) * 100)) + 100)][   set energie-max ((random (( day + 2 ) * 100)) + 100)]
      set energie random energie-max + energie-max
      set max-transporte 1000
      set type-item ""
      set quantity 0
      set target nobody
      set my-home min-one-of towns [distance myself]
      set can_move? true
   ]
end 

to create_food [number]
ask n-of (random number) patches[
  sprout 1 [
    set breed foods
    set shape "cow"
    set ressource random 1000 + 800
    set size ressource / 700
    set energie 5000
    set color white
    set can_move? true
   ]
]
end 

to create_house
  hatch 1 [
    set color random 100
   set breed houses
   set shape "house efficiency"
   set size 2
   set owner nobody
  ]
end 

to go-town
  
  let terrain nobody
  ask towns [
   set size ( count humans in-radius 100 ) / 50 
  ]
  ask houses[
    set owner (humans with [ my-home = myself])
    set size count owner
  ]
  ask humans[

    if [distance myself] of my-home < 3
    [
      let dechargement quantity
      let temp-type type-item
      let consommation-food energie-max - energie
      let regeneration 0
      
      ask min-one-of towns [distance myself] [
       if temp-type = foods and stock-food < count humans * 1000 [ set stock-food stock-food + dechargement ]
       if temp-type = tree and stock-wood < count humans * 100 [ set stock-wood stock-wood + dechargement ]
       ifelse consommation-food > stock-food [set regeneration stock-food] [set regeneration consommation-food]
       set stock-food stock-food - regeneration
      ]
      
      set quantity 0
      set energie energie + regeneration
      ]
  ]
end 

to hunt
  ask humans with [(target != nobody)] [
  if target != nobody and [distance myself] of target < 1[
    move-to target
    if target != nobody and [breed] of target = foods [
      ajout-transport ([ressource] of target)
      ask target [die]
      ]
    
    if target != nobody and [breed] of target = tree [
      ajout-transport 10
      ask target [set ressource ressource - 10
        set size (ressource / 10)
        if ressource < 0 [die]]]
    ]
  ]
end 

to ajout-transport [ value ]

ifelse quantity + value < max-transporte [
    set quantity quantity + value
][ set quantity max-transporte]
end 

to take-target
  ask humans with [quantity < max-transporte and age > 18] [
    let temp-target []
    ifelse type-item = "" and (count humans with [type-item = foods] / count humans * 100) < 50 [set temp-target (turtle-set foods in-radius 5)  ][
ifelse type-item = "" and (count humans with [type-item = tree] / count humans * 100) < 50 [set temp-target (turtle-set tree in-radius 15) ]
[ 
  let temp-breed type-item
 set temp-target turtles in-radius 10 with [breed = temp-breed]
]]
set temp-target temp-target with [count my-in-hunters < 5]

 set temp-target min-one-of temp-target [distance myself]
 if temp-target != nobody[
  ask hunters with [end1 = myself] [die]
  set target temp-target
  create-hunter-to target [set color red
    ifelse show-hunters? [show-link][hide-link]]
  set type-item [breed] of target

   
  ]
  ]
end 

to relationship
  ask humans[
  if age > (random 6 + 17) and random 100 < 5 and count my-lovers = 0 [
    let my-sexe sexe
    let my-age age
    let my-place my-home
    
    let possible-love humans with [distance myself < 5 and sexe != my-sexe and age > (random 6 + 17) and age > my-age - 20 and age < my-age + 20 and (my-home != my-place or [breed] of my-home = towns or [breed] of my-place = towns) and count my-lovers = 0 ]
    
    if count possible-love != 0[
    set possible-love min-one-of possible-love [distance myself]
    
     create-love-with possible-love [set color pink
           ifelse show-couple? [show-link][hide-link]] 
     
      let couple []
    
    ask my-lovers [
      set couple both-ends
    ]
    ask couple [
     set my-home min-one-of towns [distance myself]

    ]]]]
end 

to create-family
  ask humans [
    if random 100 < 5 and count my-lovers != 0 and count houses in-radius 10 = 0 and count towns in-radius 5 = 0 [
      let family []
      let person1 nobody
      let person2 nobody
      ask my-lovers [
        set family both-ends
        set person1 end1
        set person2 end2
      ]      
      let breed1 0
      let breed2 0
      ask person1 [ set breed1 [breed] of my-home]
      ask person2 [ set breed2 [breed] of my-home]
      
      if (breed1 != breed2 or breed1 = towns or breed2 = towns) [
       create_house
       let new-house one-of houses-here
                     
       ask family[
         set my-home new-house
       ]]
    ]
  ]
end 

to naissance
 ;; ask humans with [(count my-lovers != 0) and (count my-out-parents < 10) and (sexe = "female") and ([breed] of my-home = houses)][
  ask humans with [(count my-lovers != 0) and (sexe = "female") and ([breed] of my-home = houses)][
if random 1000 < 5 [

      let parent []
      let parent1 nobody
      let parent2 nobody
     ask my-lovers [
set parent both-ends
set parent1 end1
set parent2 end2
     ]
     
     let energie-average (( [energie-max] of parent1 + [energie-max] of parent1 ) / 2)
;;   print (word "parent1 : " parent1 ", parent2 : " parent2 ", average : " energie-average)
      
  hatch 1[
    ifelse random 100 > 50 
    [set color red
      set sexe "male"]
    [set color blue
      set sexe "female"]
    
      set age 0
      ifelse test-fast?   [ set energie-max ( random energie-average * 2 ) + ( hour + day * 24) * 5 + ( energie-average )][   set energie-max ( random energie-average * 2 ) + ( day * 5 ) + ( energie-average )]
      
      set energie random energie-max + energie-max / 2
      set type-item ""
      set quantity 0
      set target nobody
      set can_move? true
      create-parents-from parent [set color yellow
            ifelse show-generation? [show-link][hide-link]]
   ]

  ]]
end 

There is only one version of this model, created over 10 years ago by Leo B.

Attached files

File Type Description Last updated
Civilization.png preview Preview for 'Civilization' over 10 years ago, by Leo B Download

This model does not have any ancestors.

This model does not have any descendants.