White-collor crime

White-collor crime preview image

1 collaborator

Tags

(This model has yet to be categorized with any tags)
Visible to everyone | Changeable by everyone
Model was written in NetLogo 6.4.0 • Viewed 43 times • Downloaded 0 times • Run 0 times
Download the 'White-collor crime' 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

breed [politicians politician]
breed [businesses business]
breed [regulators regulator]

politicians-own [
  funds ;; fundos para campanha
]

businesses-own [
  influence ;; influência política
]

regulators-own [
  effectiveness ;; eficácia da agência reguladora
]

to setup
  clear-all
  create-politicians 50 [
    setxy random-xcor random-ycor
    set funds random 100000 ;; inicializa fundos de campanha
  ]

  create-businesses 20 [
    setxy random-xcor random-ycor
    set influence random 10 ;; inicializa nível de influência
  ]

  create-regulators 5 [
    setxy random-xcor random-ycor
    set effectiveness random 5 ;; inicializa eficácia da agência reguladora
  ]

  reset-ticks
end 

to go
  ask politicians [
    evaluate-influence
    run-for-election
  ]

  ask businesses [
    evaluate-influence
    attempt-corruption
  ]

  ask regulators [
    evaluate-effectiveness
  ]

  tick
end 

to evaluate-influence
  let total-influence sum [influence] of businesses
  set influence (influence / total-influence) * 100
end 

to run-for-election
  if funds > 50000 [
    set funds funds - 50000
    ifelse random-float 100 < influence [
      set color green
    ] [
      set color red
    ]
  ]
end 

to attempt-corruption
  let potential-target one-of politicians
  ifelse random-float 100 < influence [
    set funds funds + 20000
    ask potential-target [
      set funds funds - 20000
    ]
  ] [
    set funds funds - 5000
  ]
end 

to evaluate-effectiveness
  ;; A eficácia da agência reguladora é afetada pela influência das empresas
  set effectiveness effectiveness - 0.1 * sum [influence] of businesses
end 

There is only one version of this model, created 7 months ago by Marcio A C Teixeira.

Attached files

File Type Description Last updated
White-collor crime.png preview Preview for 'White-collor crime' 7 months ago, by Marcio A C Teixeira Download

This model does not have any ancestors.

This model does not have any descendants.