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: Affecting_mafia_with_social_norms.nlogo
This model intends to simulate the interaction of a mafia-based economy.
Resources spent on the police and social norms by the government will affect the outcome
of black wealth.
The market will grow profit according to the endowment-rate, green patches indicates profit obtainable for storeowners. Red patches have no profit.
Mafious wants to make interactions with storeowners to increase their power. Storeowners will pay them regarding several social factors.
The Police interact with mafious, either the mafia has to pay a bribe, or the police will
help the mafia in controlling the market.
First of all, you should adjust the sliders and the switch according to the state of the world you wish to simulate.
Then press the setup button to create this initial state of the world.
To run the model, and begin all the interactions in the model, press the go-button.
As time goes, you can look at the different monitors to observe money flow, black wealth and the population of the storeowners.
Endowment? decides if there should be growth of profit or not
Endowment-rate decides the growth of profit in the market
Storeowners-multiply decides the limit of profit for a storeowner to give birth to a new storeowner. This can mean that he’s expanding his business.
storeowners-thrust-in-govs-ability-to-fight-mafia gives its own explanation. Changes in public interventions which will affect short-term norms will induce changes in this one.
Police-power captures the governments abilites to fight against the mafia.
The core of the strength of public interventions applied to social norms, is that it’s able to increase the efficiency of the economy, by changing behavior. By changing the slider storeowners-thrust-in-govs-ability-to-fight-mafia for a small amount of time, a benchmark for social norms may be reached so that the government may get long-term
beneficial effects regarding behavior and black wealth, even when the slider storeowners-thrust-in-govs-ability-to-fight-mafia returns to its initial position.
Try to find the benchmarks for making long-term beneficial effects in black wealt by doing some short-term public intervention, by changing storeowners-thrust-in-govs-ability-to-fight-mafia for a short amount of time.
The relationship between the variables could be estimated and implemented in the model to make it more realistic, as a part of the syntax or as a slider according to uncertainty. The interaction between the agents could be more complex, storeowners could affect each other, police could have interacted with the storeowners to check if their business was legal. The public interventions affecting social norms, here through storeowners-thrust-in-govs-ability-to-fight-mafia, could be separated into different types of expenditures in public interventions, norms management, regulations, financial interventions and changing architecture, to make it more suitable for real life. Then the storeowners propensinsity to adapt these norms could be adjusted by a slider, to simulate different network structures and societies.
“Mafianomics” http://web.econ.unito.it/terna/tesine/mafianomics.htm
globals [endowment]
breed [mafious a-mafious]
breed [cops a-cop]
breed [storeowners a-storeowner]
turtles-own [money]
patches-own [countdown]
to setup
clear-all
ask patches [set pcolor green]
if endowment? [ask patches
[ set countdown random-exponential 360 endowment-return
set pcolor one-of [green red]
]
]
set-default-shape mafious "mafious"
create-mafious initial-number-mafious
[
set color black
set size 2
set money initial-money-mafious
setxy random-xcor random-ycor
]
set-default-shape cops "cops"
create-cops initial-number-cops
[
set color blue
set size 2
set money initial-money-cops
setxy random-xcor random-ycor
]
set-default-shape storeowners "storeowner"
create-storeowners initial-number-storeowner
[
set color white
set size 2
set money initial-money-storeowners
setxy random-xcor random-ycor]
set endowment count patches with [pcolor = green]
reset-ticks
end
to go
if not any? turtles [ stop ]
ask storeowners [
take-money
multiply-storeowner
move
death
]
ask mafious [
move
catch-storeowners
death
]
ask cops [
move
catch-mafious
]
if endowment? [ ask patches [ endowment-return ] ]
set endowment count patches with [pcolor = green]
tick
end
to move
rt random 50
lt random 50
fd 1
end
to take-money
if pcolor = green [
set pcolor red
set money money + 5
]
end
to catch-storeowners
let mafia-power sum ([money] of mafious in-radius 20) / 100
let ProbRefuse-myself sum ([money] of cops in-radius 20) / 100
let prey one-of storeowners-here
if prey != nobody
[ask prey [ifelse (((ProbRefuse-myself * ((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 ))) < mafia-power )
[set money money - 3 ask patches in-radius 5 [endowment-return]] [set money money - 1 ask patches in-radius 2 [stop endowment-return]]]]
ifelse (((ProbRefuse-myself * ((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 ))) < mafia-power )
[set money money + 3] [set money money + 0]
end
to catch-mafious
let payment sum ([money] of mafious-here)
let prey one-of mafious-here
if prey != nobody
[ask prey [ifelse (storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 > 0
[set money money - (((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 / 100) * payment)]
[set money money + (((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 / 1000) * payment)]]]
ifelse (storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 > 0
[set money money + ((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 / 100) * payment]
[set money money + ((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 / 1000) * payment]
end
to endowment-return
if pcolor = red [
ifelse countdown <= 0
[set pcolor green
set countdown endowment-rate ]
[set countdown countdown - 1 ]
]
end
to death
if money < 0 [die]
end
to multiply-storeowner
let mafia-power sum ([money] of mafious in-radius 10) / 1000
if money > 10 and random-float 100 < storeowners-multiply
and ((storeowners-thrust-in-govs-ability-to-fight-mafia * police-power) / 2 / 100) > mafia-power
[hatch 1 rt random-float 360 fd 1
let ProbRefuse-myself sum ([money] of cops in-radius 10) / 1000]
set money (money / 1.5)
end