Wood product institution

Wood product institution preview image

1 collaborator

Lutfy_abdulah Lutfy Abdulah (Author)

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.0.1 • Viewed 140 times • Downloaded 7 times • Run 0 times
Download the 'Wood product institution' 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

globals [ hutan non-hutan deforestasi max-petani max-industri max-kayu]
breed [petani a-petani]
breed [baja a-baja]
breed [industri a-industri]
breed [kayu a-kayu]
breed [KLHK a-klhk]

turtles-own [energy]
patches-own [countdown]

to setup
  clear-all
  set hutan count patches with [pcolor = green]
  set non-hutan count patches with [pcolor = yellow]
  set non-hutan count patches with [pcolor = red]
  reset-ticks
  lahan
  petani-hr
  jual-kayu
  industri-kayu
  populasi-kayu
  kayu-hr
pemerintah
end 

to go
  move
  if  hutan < 0 [stop]
 if Wood_market? [
    ask petani [
      konversi-lahan
      bangun-hutan
      dampak-baja
      populasi-kayu
      perbaikan-lev
      kartel
    ]
                        ]
     ask industri [
      tumbuh-industri
          ]

if Base_price_policy? [
    ask KLHK [
      mengendalikan-harga-kayu
    bangun-hutan
    ]
    if Wood-price < Forest-cost [
      ask klhk [
        set Wood-price Wood-price > Forest-cost - 1 / Forest_growth_time ]
    ]
     ]
  set hutan count patches with [pcolor = green]
  set non-hutan count patches with [pcolor = yellow ]
  set deforestasi count patches with [pcolor = red]
  tick
end 

to lahan
  ask patches [
      set pcolor one-of [ green yellow ]
      if-else pcolor = green
        [ set countdown Forest_growth_time ]
        [ set countdown random Forest_growth_time ]
          ]
end 

to petani-hr
   set max-petani 100
  set-default-shape petani "person"
  create-petani Number_initial_farmers
  [
    set color 10 + 2
    set size 1.5  ; easier to see
    set label-color red - 2
    setxy random-xcor random-ycor
  ]
end 

to industri-kayu
   set max-industri 50
  set-default-shape industri "building store"
  create-industri Number_initial_industry
  [
    set color 100 + 2
    set size 1.5  ; easier to see
    set label-color red - 2
    setxy random-xcor random-ycor
  ]
end 

to move
  ask petani [
    right random 180
    forward 1
  set energy energy - 2]
end 

to jual-kayu
  if Wood_market? [
    set Wood-price Wood-price + 0.001
    set Wood-price Wood-price - 0.01]
end 

to konversi-lahan
  if Wood-price < Forest-cost [
    if pcolor = green [
      set pcolor red]
   ]
end 

to bangun-hutan
  if Wood-price > Forest-cost [
    if pcolor = red [
      set pcolor green]]
end 

to dampak-baja
  if Light_steel_market? [
    set Wood-price Wood-price - 0.0000001]
end 

to kayu-hr
  ask kayu [
    set max-kayu wood-population ]
end 

to populasi-kayu
  if Forest-cost > Wood-price [
    set wood-population wood-population + 0.01
    set wood-population wood-population - 0.01
  ]
end 

to tumbuh-industri
  if Wood_market? [
  ask industri [
    hatch 0.1 [ rt random-float 360 fd 1 ]
     set energy energy + 2
     ]
  ]
end 

to tumbuh-petani
  if Wood_market? [
    if Wood-price > Forest-cost [
      ask petani [
        hatch 0.1 [ rt random-float 360 fd 1 ]
      ]

    ]
  ]
end 

to mengendalikan-harga-kayu
  if Wood-price <  Forest-cost [
    set Wood-price 0.7
  ]
end 

to perbaikan-LEV
  if Base_price_policy? [
    set Forest-cost Forest-cost + ( 1 / ((1000000 * Forest_growth_time ) + Number_initial_industry ))
    if Wood-price < Forest-cost [
      set Forest-cost Forest-cost - ( 1 / ((1000000 * Forest_growth_time ) + Number_initial_industry ))

  ]
  ]
end 

to pemerintah
   set-default-shape KLHK "person police"
  create-klhk 1
  [
    set color 93 + 2
    set size 3  ; easier to see
    set label-color green - 2
    setxy random-xcor -2
  ]
end 

to kartel
  if  Trade_cartel? [
    set Wood-price Wood-price + (Forest-cost - Wood-price) + 0.01
    create-links-to other petani
    ask out-link-neighbors [ set color white ]
    create-links-to other industri
    ask out-link-neighbors [ set color blue ]
  ]
end 

There is only one version of this model, created almost 7 years ago by Lutfy Abdulah.

Attached files

File Type Description Last updated
Wood product institution.png preview Preview for 'Wood product institution' almost 7 years ago, by Lutfy Abdulah Download

This model does not have any ancestors.

This model does not have any descendants.