Simulateur_v18_FR_parti_500
Download this modelDo you have questions or comments about this model? Ask them here! (You'll first need to log in.)
QU'EST-CE ?
Depuis les travaux pionniers d’Abelson & Bernstein en 1963 (1), plusieurs chercheurs ont développé des programmes informatiques simulant la diffusion d’idées ou d’opinions au sein d’une population.
Ce programme de simulation a été conçu à partir des résultats de travaux réalisés par le Groupe de recherche sur l'opinion publique (GROP) du Québec (Canada).
Ces travaux ont essentiellement porté sur la modélisation de l'électorat québécois en regard d'enjeux politiques. Les enquêtes réalisées ont mis en évidence la relation étroite existant au sein de l'électorat entre le niveau de polarisation sur ces enjeux et l'importance des représentations qui sous-tendent l'adhésion des électeurs à ces enjeux, c'est-à-dire la prégnance de cette adhésion pour chacun des électeurs.
Le fonctionnement de ce simulateur multiagents est établi sur cette relation. Il modélise la transmission au sein d'une population d'une opinion bipolaire.
La prégnance
Lors d'enquêtes portant sur des enjeux d'opinion, on se rend vite compte que ce ne sont pas tant les caractéristiques sociodémographiques des répondants qui permettent le mieux de les classifier en fonction de ces enjeux, mais plutôt des variables psychoculturelles décrivant des représentations favorisant l'une ou l'autre expression de l'enjeu. Par exemple, des répondants affichant des résultats élevés sur l'échelle d'autoritarisme présenteront de plus fortes tendances à adopter des points de vue convergents avec cette dimension psychologique. Les répondants favorisant l'une ou l'autre alternative d'opinion peuvent ainsi être caractérisés par des échelles de mesure décrivant un ensemble de « bassins d’attraction » influençant les trajectoires que pourront suivre les traits culturels auxquels ils seront exposés. L'intégration de ceux-ci se fait donc à travers des processus d'assimilation et d'accommodation (2) qui construisent et consolident les représentations soutenant l'adoption d'une opinion. Il ne s'agit pas d'une intégration faisant appel à un traitement strictement cognitif, mais également affectif. La part de l'affect dans la consolidation d'une opinion étant, dans bien des cas, déterminante. Adhérer à une opinion, c'est y trouver une zone de confort psychologique, ce qui implique de rendre congruente celle-ci avec l'identité de l'individu.
C'est pourquoi il convient mieux de parler de la prégnance d'une opinion que de simplement évoquer la capacité de représentations qu'un individu peut en posséder. Par ailleurs, un individu peut n'avoir acquis, sur un enjeu donné, que peu de prégnance, limitant d'autant ses dispositions à l’endroit de celui-ci. Pour des raisons diverses, allant de ses valeurs jusqu’à ses goûts, balisant d’autant son intérêt, une personne pourra n'avoir développé qu’une conception rudimentaire sur un enjeu particulier. L'entourage jouera donc un rôle important en contribuant à l'opinion qu'elle se forgera au fil des rencontres à l’intérieur de son réseau social.
Ainsi, l'intérêt porté envers l'actualité, le sentiment de compétence ou la capacité de représentations apparaissent fortement liés à l'expression d’opinions.
La polarisation
Une opinion bipolaire ne se présente pas seulement comme un choix binaire, mais comme un ensemble d’idées plus ou moins prononcées caractérisant la position de l’individu. Tout le spectre des positions, d’extrêmes jusqu’à modérées, peut y apparaître.
La transmission
On peut faire l'hypothèse que les opinions sont habituellement transmises d'un individu à un autre par celui qui possède la plus forte prégnance pour l’opinion transmise. Les individus possédant les plus faibles représentations sur un sujet donné sont également les plus susceptibles de changer fréquemment d'opinion. Nous qualifions de centristes les personnes qui présentent un tel comportement, car leur ambivalence les place au centre de gravité d’opinions bi- ou multipolaires. Ainsi, les centristes font montre d'une alternance soutenue au niveau de leurs intentions électorales, changeant souvent d'allégeance. Mais il ne s'agit pour autant pas d'indécis dans le sens où sont habituellement qualifiés les répondants à des sondages qui disent « ne pas savoir ». Ils expriment un choix, mais celui-ci peut changer facilement, selon les influences qu'ils recevront de leur entourage.
Des périodes de socialisation importante peuvent ainsi modifier substantiellement l'alignement politique des centristes. Lors de la campagne électorale fédérale de 2005-2006, nous avons pu suivre une telle transformation de l'opinion des centristes influencés par l'intense période de socialisation que constitue au Québec la période des Fêtes. Une fraction importante des centristes ont alors modifié leurs intentions électorales. Pour ces raisons, les centristes ont été qualifiés par certains auteurs de « papillons », en référence à leurs fréquents changements d'opinion.
Il est moins fréquent que les individus possédant une forte prégnance sur un sujet donné changent d'opinion. Ils formeront plutôt un groupe de partisans présentant des représentations structurées et passablement similaires sur ledit sujet.
Au sein du système complexe formé par une population en regard d'un sujet donné, les partisans correspondent à des zones plus figées tandis que les centristes correspondent à une zone plus chaotique.
Au fur et à mesure que les centristes acquièrent de meilleures représentations, qu'ils « se forgent » une opinion, nous postulons qu’ils subissent alors l’influence des membres de leur réseau social possédant une plus forte prégnance qu'eux sur ce sujet. Les individus assimilent ainsi certains des traits culturels de leurs pairs par un processus de contamination impliquant une multitude d'interactions sociales. Cette transmission au sein d'une population d’opinions polarisées se déploie en un processus dynamique non linéaire. Certains individus agiront comme des méta-influenceurs entraînant l'adhésion d'un grand nombre et suscitant chez les individus moins prégnants des renversements d'opinion inattendus. Des événements extérieurs viendront perturber cette dissémination, accentuant ou en ralentissant la progression.
(1) Abelson, R.P. & Bernstein, A. (1963) A Computer Simulation Model of Community Referendum Controversies, The Public Opinion Quarterly, Vol. 27, No. 1. , pp. 93-122.
(2) L'assimilation se définit comme l'intégration d'un nouveau processus au sein d'un système sans modification de la structure; s'il se produit un changement de structure, alors il y a accommodation. L’assimilation correspond à la résilience d’un système soumis à des contraintes pouvant être absorbées sans modification du fonctionnement général du système. L’accommodation survient lorsque, passé un certain seuil, ces contraintes font basculer le système vers un nouvel état d’équilibre impliquant des modifications en profondeur du système.
LES RÈGLES DE TRANSMISSION BI-DIRECTIONNELLE
Soit x et x´ un agent et l’un de ses influenceurs, la prégnance étant défini au temps t par P(x)t et la polarisation par M(x)t , z étant un facteur de bruit statistique ajouté et e l’inverse du logarithme naturel (c.-à-d. la base e) :
Si M(x)t est de polarité opposée à M(x´)t et que P(x´)t > P(x)t alors M(x)t+1 = M(x)t -1 M(x)t+1 = M(x´)t - M(x)t+1 . P(x)t / e . | M(x)t | . P(x´)t + z
Si P(x´)t > P(x)t alors M(x)t+1 = M(x´)t - M(x)t+1 . P(x)t / e . | M(x)t | . P(x´)t + z Si P(x)t >= | M(x)t+1 | alors P(x)t+1 = P(x)t - ( | M(x)t+1 – M(x)t | / 4 + z ) Si P(x)t < | M(x)t+1 | alors P(x)t+1 = P(x)t + ( | M(x)t+1 – M(x)t | / 4 + z )
Si P(x´)t < P(x)t alors M(x')t+1 = M(x)t - M(x')t+1 . P(x')t / e . | M(x')t | . P(x)t + z Si P(x')t >= | M(x')t+1 | alors P(x')t+1 = P(x')t - ( | M(x')t+1 – M(x')t | / 4 + z ) Si P(x')t < | M(x')t+1 | alors P(x')t+1 = P(x')t + ( | M(x')t+1 – M(x')t | / 4 + z )
COMMENT L'UTILISER
CE PROGRAMME EST ENCORE EN PHASE DE DÉVELOPPEMENT
Vous devez cliquer sur le bouton de configuration pour lancer le processus de configuration. Il va fermer tous les fichiers encore ouverts, réinitialiser toutes les variables. Il faut d'abord charger le format de distribution des agents par parti et par constellation tel que généré dans le fichier source. Vous devez cliquer sur le bouton "Format" pour charger ces paramètres de distribution. Puis il faut fournir le fichier de données correspondant à ce format. Le Simulateur distribue alors les agents pour chaque «parti», chaque agent recevant une valeur "meme" pour la polarisation de l'opinion et une valeur "pre" pour la prégnance de l'opinion, associées aux coordonnées x et y respectivement. Le fichier associe également des influenceurs à chaque agent. Le nombre (défaut 5) d'influenceurs pour chaque agent est déterminé par le curseur "influenceurs". Vous pouvez importer un fichier produit par le programme et contenant toutes les valeurs pour les agents, meme, pre et influenceurs. Vous choisissez la valeur des agents pour une itération particulière en utilisant la fenêtre d'entrée "limite_iters". En activant le commutateur "valeurs", vous sauvegarderez dans un fichier de sortie les paramètres de tous les agents à chaque itération.
Si vous avez activez le commutateur "pole_droit", vous devrez fournir un fichier de "Sortie" pour minimalement enregistrer les paramètres de la simulation. Si vous activez le commutateur "Droit%" les pourcentages des agents de chaque parti situés du côté droit seront sauvegardés dans le fichier choisi avec le bouton "Sortie" après chaque itération. Vous pourrez également sauvegarder dans un autre fichier choisi par le bouton "Sauver-V" les estimations des intentions de vote obtenues lors de chaque itération pour chacun des partis. La bascule "Estimation" donne la possibilité de n'utiliser que le fichier choisi avec le bouton "Sortie" pour sauvegarder les estimations des intentions de vote avec les pourcentages des agents globalement et par parti du côté droit.
Vous pouvez sauvegarder les paramètres généraux de la configuration correspondant aux deux premiers paragraphes en appuyant sur "Sauver-C" au-dessus de "Configuration générale". Pour charger des paramètres sauvegardés, vous appuyez sur "Charger-C" au même endroit. Vous pouvez faire apparaître les paramètres utilisés à la fin du fichier "Sortie" en activant le commutateur "Paramétrage". Vous pouvez reprendre le dernier fichier d'entrée en cliquant sur le fichier d'entrée, suivi d'annuler afin de rappeler les dernières entrées pour les agents. Les résultats s'additionneront dans le dernier fichier de sortie, à moins que vous n'ayez remplacé le fichier existant.
Vous pouvez atténuer la règle de la transmission avec les boutons situés sous "Gestion de l'entourage" en déterminant le nombre d'influenceurs se situant du même côté que celui attribué naturellement aux agents de ce «parti» et qui l'empêcheront de passer de l'autre côté. À titre d'exemple, si vous entrez "3" dans "Adhérents" pour les agents d'un «parti» et que "Côté" est fixé sur "POUR", lorsqu'un agent sera influencé pour passer du côté gauche ("CONTRE"), si trois ou plus de ses influenceurs sont toujours du côté droit ("POUR"), il restera du côté droit. Vous pouvez avant de lancer le programme attribuer pour les agents de chaque «parti» le côté de préférence et le nombre d'influenceurs de ce côté requis pour empêcher l'inversion. Vous fixez les paramètres puis cliquez sur "Attribuer" pour les agents de chaque parti pour lesquels vous voulez que l'atténuation soit activée. Le bouton "Effacer" sous "Attribuer" efface les enregistrements de la session en cours. Vous pouvez en appuyant sur le bouton "Sauver-A" sauvegarder la configuration de l'atténuation ou charger un fichier de configuration déjà sauvegardée en appuyant sur le bouton "Charger-A".
Vous pouvez déterminer l'écart de prégnance entre l'influenceur et l'agent ciblé pour que la transmission puisse se faire en entrant un nombre dans "Écartbas" pour la limite inférieure de l'écart et un nombre dans "Écarthaut" pour la limite supérieure.
Le bouton "Go" lance la simulation. La fenêtre d'entrée "nbiters" contient le nombre d'itérations que doit accomplir le programme avant que la simulation ne s'arrête. Si "nbiters" égale 0, cette commande est ignorée. Vous pouvez également activer l'interrupteur de "niveau" et le logiciel passera à une nouvelle simulation (c.-à-d. essai) lorsque le pourcentage d'agents du côté droit atteindra le niveau souhaité tel que défini dans la fenêtre délimitée par les cases "niveaubas" et "niveauhaut". Vous devez préciser le nombre de simulations atteintes (cible) que vous désirez obtenir. Vous pouvez définir dans "nbessais" le nombre maximun d'essais à effectuer, si vous entrez 0 la commande du nombre d'essais est désactivée. De plus, vous pouvez choisir à partir de combien d'itérations depuis le début de la simulation le logiciel doit tenir compte du niveau à atteindre en l'inscrivant dans la case "debutiters".
Vous pouvez simuler un événement perturbant le processus de transmission. Vous sélectionnez les limites du sous-ensemble d'agents que vous choisissez avec les curseurs "limitegauche" et "limitedroite" ainsi que "prégnancebasse" et "prégnancehaute". Vous optez pour un déplacement à gauche (-) ou à droite (+) avec le curseur "déplacer", la valeur de prégnance étant automatiquement ajuster selon le niveau de déplacement; mais vous pouvez déterminer pour chaque sous-ensemble ("Partis") d'agents le niveau de prégnance voulu en l'ajustant avec le curseur "Prégnance". Sous "Gestion des événements", vous pouvez agir sur les agents de chaque «parti» sur laquelle s'effectuera la perturbation en appuyant sur le bouton "Saisir" pour chaque configuration choisie de sous-ensemble d'agents. Pour créer un seul événement, il suffit d'appuyer sur le bouton "Événement" avant de lancer la simulation afin de déplacer les agents choisis, puis de basculer le bouton sur arrêt. Vous pouvez définir la période pendant laquelle s'opérera l'événement pour chaque catégorie d'agents sur lesquels vous entendez agir et ce pour chaque essai. Il suffit d'activer le bouton "repetevent" de définir la borne inférieure des itérations où débutera l'événement ("debuteven") et la borne supérieure où il s'arrêtera ("fineven") pour chaque sous-ensemble d'agents subissant un événement. Le bouton "Initialiser" sous "Saisir" efface les enregistrements de la session en cours. Vous pouvez en appuyant sur le bouton "Sauver-E" sauvegarder la configuration de l'événement ou charger un fichier de configuration déjà sauvegardée en appuyant sur le bouton "Charger-E". Dans ce dernier cas, les cartouches "debut"event' et "finevent" afficheront "99" pour indiquer qu'une période a été chargée.
Il est possible de créer une séquence d'événements affectant successivement les agents de chaque parti. Nous appelons ceci créer un "récit". Il faut d'abord initialiser le récit en cliquant sur "Initialiser-R". Puis, il faut inscrire chaque item de la séquence d'un sous-ensemble d'agents en configurant d'abord les paramètres événementiels de l'item, puis en les saisissant avec "Saisir" en enfin en les enregistrant avec "Inscrire" dans l'ordre séquentiel souhaité. Il est possible d'entrer 10 items par séquence pour chaque groupe d'agents, la numérotation allant de 0 à 9. On peut également sauvegarder un "récit" en cliquant sur "Sauver-R" ou en charger un déjà sauvegardé en cliquant sur "Charger-R".
Le programme comprend dix moniteurs: "Itérations" fournit le nombre d'itérations se produisant lors de chaque simulation; "Inversion" donne le cumul d'inversion des agents d'un côté à l'autre; "liens uniques" fournit le nombre total de liens non récurrents pour l'ensemble du modèle; "Essais" donne le nombre de simulations effectuées; "cible" fournit le nombre de simulations ayant atteint le niveau souhaité. Vous pouvez le réinitialiser avec le bouton "Réinitialiser". Les cinq premiers moniteurs sous la fenêtre graphique fournissent le pourcentage total d'agents situé dans le côté droit, ainsi que le pourcentage des agents dans le côté droit pour les quatre «partis».
Enfin, la fenêtre graphique trace à chaque itération les courbes du pourcentage d'agents situé dans le côté droit pour le total et pour chaque «parti». Il redessine le graphique à chaque 25 itérations.
Le programme estime pour chaque itération les intentions de vote selon les changements réalisés dans les intentions référendaires. Vous pouvez sauvegarder dans le fichier de "Sortie" la liste des paramètres des résultats ainsi que les estimations des intentions de vote obtenues lors de chaque itération en activant le bouton "Estimation". Vous pouvez désactiver les transferts provenant d'un parti vers d'autres en mettant sur off le bouton correspondant identifié par l'acronyme du parti suivi de "on" (exemple "PQon"). Les cartouches "XX->Xd%" et suivantes permettent de déterminer les pourcentages de la fraction du vote passant d'un parti vers d'autres. Les estimations "CAQ->Xd%" (meme >0) vont toutes au PQ de même que celle provenant de "QS->Xd%" (meme>0). La cartouche "CAQ<-PQ%" permet de distribuer à la CAQ puis le solde restant au PLQ les estimations établies sur "PQ->Xg%" (meme<0); la cartouche "CAQ<-PLQ%" permet de distribuer à la CAQ puis le solde restant à QS les estimations établies sur "PLQ-Xg%" (meme<0); enfin, la cartouche "PQ<-PLQ%" permet de distribuer au PQ puis le solde restant à QS les estimations établies sur "PLQ-Xd%" (meme>0).
La rationalité sous-jacente étant la suivante:
PQ->Xg% (meme<0) => PQ3a -> CAQ (CAQ<-PQ%) et PLQ (100-CAQ<-PQ%) PQ->Xd% (meme>0) => PQ3b -> QS CAQ->Xd% (meme>0) => CAQ3 -> PQ QS->Xd% (meme>0) => QS3 -> PQ PLQ->Xd% => PLQ3a -> PQ (PQ<-PLQ%) et QS (100-PQ<-PLQ%) PLQ->Xg% => PLQ3b -> CAQ (CAQ<-PLQ%) et QS (100-CAQ<-PLQ%)
En utilisant la fonctionnalité "Transferts électoraux" vous pouvez transférer une fraction des appuis de l'un des partis ("De") vers un second parti ("Vers") en déterminant le pourcentage de sympathisants ("Pourcent") du premier parti qui passe vers le deuxième parti. Vous entrez l'un après l'autre les transferts d'un parti vers un autre en appuyant sur le bouton "Établir" après chaque duo de parti. Puis lorsque vous avez complété ces entrées, vous appuyez sur le bouton "Transférer" pour effectuer les transferts. Les agents transférés prennent alors la couleur du nouveau parti.
FICHIER FOURNI
Ce programme vient avec un fichier "Modèle" contenant les valeurs pour un échantillon de 500 agents, chaque agent ayant 5 influenceurs. Ce fichier modélise les proportions des intentions de vote pour les quatre principaux partis.
CHOSES À ESSAYER
Exécuter le programme en attribuant un nombre minimal d'influenceurs se trouvant d'un côté opposé à l'agent ciblé et pouvant contrer son changement de polarité. Introduire un événement perturbateur en établissant ses paramètres d'action pour les agents d'un ou de plusieurs «partis»
CREDITS AND REFERENCES
Ce modèle a d'abord été développé en utilisant un langage orienté objet. Il est maintenant adapté à l'environnement Netlogo. Pierre-Alain Cotnoir détient un doctorat en psychologie comparative et travaille comme analyste en enquêtes d'opinion. Vous pouvez le contacter à pac@cam.org
Comments and Questions
extensions [sound]
turtles-own [meme
pre
infl_list
]
globals [nb
nb_cible
essais
ratio
in
out
bruit
effet
base
compression
forme
exclusion
;in
rn
co
meme_2
meme_R
pre_R
host
change
pole
total
percentage
go_trans
transfert
trans_cible
couleur_de
couleur_vers
PQ_de
CAQ_de
QS_de
PLQ_de
PQ_vers
CAQ_vers
QS_vers
PLQ_vers
PQ_CAQ_%
PQ_QS_%
PQ_PLQ_%
CAQ_PQ_%
CAQ_QS_%
CAQ_PLQ_%
QS_PQ_%
QS_CAQ_%
QS_PLQ_%
PLQ_PQ_%
PLQ_CAQ_%
PLQ_QS_%
ji
p_class1 p_class2
p_class3
p_class4
in_data
iteration
fvote
file-in file-out file-config file-attenuer file-saisir file-format file-recit file-vote
inscription
list_data
percent
autolink
Dif
TermMoins TermPlus
limite_gauche_PQ limite_droite_PQ
limite_gauche_PLQ limite_droite_PLQ
limite_gauche_CAQ limite_droite_CAQ
limite_gauche_QS limite_droite_QS
prégnance_basse_PQ prégnance_haute_PQ
prégnance_basse_PLQ prégnance_haute_PLQ
prégnance_basse_CAQ prégnance_haute_CAQ
prégnance_basse_QS prégnance_haute_QS
prégnance_PQ prégnance_PLQ prégnance_CAQ prégnance_QS
déplacer_PQ déplacer_PLQ déplacer_CAQ déplacer_QS
debut_even_PQ debut_even_CAQ debut_even_QS debut_even_PLQ
fin_even_PQ fin_even_CAQ fin_even_QS fin_even_PLQ
PQ CAQ PLQ QS Tous
PQ_1 CAQ_1 PLQ_1 QS_1
PQ_2 CAQ_2 PLQ_2 QS_2
PQ_3a PQ_3b CAQ_3 PLQ_3a PLQ_3b QS_3
vote_PQ vote_CAQ vote_QS vote_PLQ
tot_percent
tot_class1 tot_class2 tot_class3 tot_class4
Adhérents_PQ Adhérents_CAQ Adhérents_QS Adhérents_PLQ
côté_PQ côté_CAQ côté_QS côté_PLQ
u1
u2
w1
w2
s
z
f01 f02 f03 f04 f05 f06 f07 f08 f09 f10
f11 f12 f13 f14 f15 f16 f17 f18 f19 f20
f21 f22 f23 f24 f25 f26 f27 f28 f29 f30
f31 f32 f33 f34 f35 f36 f37 f38 f39 f40
d_PQ lg_PQ ld_PQ p_PQ pb_PQ ph_PQ de_PQ fe_PQ
d_CAQ lg_CAQ ld_CAQ p_CAQ pb_CAQ ph_CAQ de_CAQ fe_CAQ
d_QS lg_QS ld_QS p_QS pb_QS ph_QS de_QS fe_QS
d_PLQ lg_PLQ ld_PLQ p_PLQ pb_PLQ ph_PLQ de_PLQ fe_PLQ
seq zéro
]
to randomize ;; générer des variables aléatoires normalisées
set u1 random-float 1
set u2 random-float 1
set w1 (2 * u1 - 1)
set w2 (2 * u2 - 1)
set s ((w1 ^ 2) + (w2 ^ 2))
if s <= 1
[set z (w1 * sqrt(-2 * ln s / s) * random bruit / 10)]
end
to config
set valeurs false
set go_trans false
set PQ_CAQ_% 0
set PQ_QS_% 0
set PQ_PLQ_% 0
set CAQ_PQ_% 0
set CAQ_QS_% 0
set CAQ_PLQ_% 0
set PLQ_PQ_% 0
set PLQ_CAQ_% 0
set PLQ_QS_% 0
set PQ_de false
set CAQ_de false
set QS_de false
set PLQ_de false
set PQ_vers false
set CAQ_vers false
set QS_vers false
set PLQ_vers false
set récit false
set fvote false
;set repet_even false
if niveau = true [set pole_droit true]
file-close-all
clear-ticks
clear-turtles
clear-all-plots
clear-output
set bruit 6 ;; bruit stochastique simulant l'effet de variables intermédiaires affectant la transmission
set effet 2 ;; facteur diminuant la distribution des agents sur l'ordonnée
set base 1.06 ;; facteur diminuant la distribution des agents sur l'abscisse
set compression 4 ;; facteur comprimant la distribution des agents vers le bas simulant une diminution de prégnance
if pole_droit = true [set pole true ]
if pole_droit = true [set Droit% true]
set nb 1
set iteration 1
set nb_cible 1
set essais 0
set change 0
set total 0
ask patches [ set pcolor lime]
draw
set-default-shape turtles "person"
reset-ticks
set out false
set in false
set forme false
set inscription false
set tot_percent 0
set percentage 0
set tot_class1 0
set tot_class2 0
set tot_class3 0
set tot_class4 0
set PQ_2 0
set CAQ_2 0
set QS_2 0
set PLQ_2 0
set vote_PQ 0
set vote_CAQ 0
set vote_QS 0
set vote_PLQ 0
if limite_iters = 0 [set limite_iters limite_iters + 1]
end
to draw ;; dessiner les axes
ask patches [if pxcor = 0 and pxcor <= 30 [set pcolor gray]
if pycor = 0 and pycor <= 30 [set pcolor gray]]
ask patch -5 0 [set pcolor violet]
ask patch -10 0 [set pcolor violet]
ask patch -15 0 [set pcolor violet]
ask patch -20 0 [set pcolor violet]
ask patch -25 0 [set pcolor violet]
ask patch -30 0 [set pcolor violet]
ask patch 0 0 [set pcolor violet]
ask patch 5 0 [set pcolor violet]
ask patch 10 0 [set pcolor violet]
ask patch 15 0 [set pcolor violet]
ask patch 20 0 [set pcolor violet]
ask patch 25 0 [set pcolor violet]
ask patch 30 0 [set pcolor violet]
ask patch 0 5 [set pcolor violet]
ask patch 0 10 [set pcolor violet]
ask patch 0 15 [set pcolor violet]
ask patch 0 20 [set pcolor violet]
ask patch 0 25 [set pcolor violet]
ask patch 0 30 [set pcolor violet]
end
to go
if f01 != 0 [set forme true]
ifelse forme = true [if in = false and (pole_droit = true or valeurs = true or Droit% = true) [user-message "Données manquantes du fichier d'entrée" stop]]
[user-message "Fichier manquant du format des données" stop]
ifelse out = false and in = false [user-message "Fichier de sortie inexistant" stop] [if out = false [user-message "Fichier de sortie inexistant" stop]]
if PQ_1 != true or PLQ_1 != true [user-message "SVP gérez l'entourage avant de lancer la simulation" stop]
set nb 1
if pole_droit = false [set pole false]
ask turtles [set co (exp(abs(meme)))
set host who
if limite_gauche > limite_droite [set limite_droite limite_gauche + 1] ;; faire suivre la limite droite de l'événement en fonction de la limite gauche
randomize
transmission
;écriture des paramètres des agents lors de chaque itération dans le fichier de sortie
if out = true and valeurs = true [file-open file-out file-write who file-write meme file-write pre file-write infl_list file-close]
]
tick
if inscription = true [inscrire_vote]
set percent (change / total * 100) ;;calcul des pourcentages d'agents du côté droit en totalité et par parti
set percentage count turtles with [meme > 0]
set percentage precision (percentage / échantillon * 100) 0
set p_class1 count turtles with [color = blue and meme > 0]
set p_class1 precision (p_class1 / count turtles with [color = blue] * 100) 0
set p_class4 count turtles with [color = red and meme > 0]
set p_class4 precision (p_class4 / count turtles with [color = red] * 100) 0
set p_class2 count turtles with [color = magenta and meme > 0]
set p_class2 precision (p_class2 / count turtles with [color = magenta] * 100) 0
set p_class3 count turtles with [color = orange and meme > 0]
set p_class3 precision (p_class3 / count turtles with [color = orange] * 100) 0
;paramètres d'estimation du vote
ifelse PQ_on = true [set PQ_3a count turtles with [color = blue and meme < 0] * PQ->Xg% / 100] [set PQ_3a 0] ;; 35%
ifelse PQ_on = true [set PQ_3b count turtles with [color = blue and meme > 0] * PQ->Xd% / 100] [set PQ_3b 0] ;; 25%
ifelse CAQ_on = true [set CAQ_3 count turtles with [color = magenta and meme > 0] * CAQ->Xd% / 100] [set CAQ_3 0] ;; 85%
ifelse QS_on = true [set QS_3 count turtles with [color = orange and meme > 0] * QS->Xd% / 100] [set QS_3 0] ;; 10%
ifelse PLQ_on = true [set PLQ_3b count turtles with [color = red and meme < 0] * PLQ->Xg% / 100] [set PLQ_3b 0] ;; 25%
ifelse PLQ_on = true [set PLQ_3a count turtles with [color = red and meme > 0] * PLQ->Xd% / 100] [set PLQ_3a 0] ;; 24%
set vote_PQ round ((count turtles with [color = blue and meme > 0] - (PQ_3a + PQ_3b) + CAQ_3 + QS_3 + (PLQ_3a * PQ<-PLQ% / 100)) / échantillon * 100) ;; 100%
set vote_CAQ round ((count turtles with [color = magenta] - CAQ_3 + (PQ_3a * CAQ<-PQ% / 100) + (PLQ_3b * CAQ<-PLQ% / 100)) / échantillon * 100) ;; 80% 80%
set vote_QS round ((count turtles with [color = orange] + PQ_3b + (PLQ_3b * (100 - CAQ<-PLQ%) / 100) + (PLQ_3a * (100 - PQ<-PLQ%) / 100) - QS_3) / échantillon * 100)
set vote_PLQ round ((count turtles with [color = red] - (PLQ_3a + PLQ_3b) + (PQ_3a * (100 - CAQ<-PQ%) / 100)) / échantillon * 100)
;écriture dans le fichier de sortie des estimations du vote suivi de l'écriture dans le fichier de sortie des résultats du côté "POUR"
if fvote = false and valeurs = false [
if estimation = true or Droit% = true or pole_droit = true [file-open file-out]
ifelse estimation = true [file-write vote_PQ file-write "; " file-write vote_CAQ file-write "; " file-write vote_QS file-write "; " file-write vote_PLQ file-write "; "] [if Droit% = true [file-write " ; ; ; ; "]]
ifelse Droit% = true [file-write percentage file-write "; " file-write p_class1 file-write "; " file-write p_class2 file-write "; " file-write p_class3 file-write "; " file-write p_class4 file-write "; " file-write iteration file-write "; " file-print essais + 1 file-close] [if pole_droit = true [file-write " ; ; ; ; " file-write iteration file-write "; " file-print essais + 1 file-close]]
if niveau = true and iteration > debut_iters [if count turtles with [meme > 0] / échantillon * 100 > niveau_bas and count turtles with [meme > 0] / échantillon * 100 < niveau_haut [if pole = true [set percentage count turtles with [meme > 0] set percentage precision (percentage / échantillon * 100) 1
if Droit% = false [file-open file-out file-write percentage file-write "; " file-write p_class1 file-write "; " file-write p_class2 file-write "; " file-write p_class3 file-write "; " file-write p_class4 file-write "; " file-print iteration file-close
set tot_percent tot_percent + percentage set tot_class1 tot_class1 + p_class1 set tot_class2 tot_class2 + p_class2 set tot_class3 tot_class3 + p_class3 set tot_class4 tot_class4 + p_class4]]
]
set nb_cible nb_cible + 1
set essais essais + 1
if nb_cible > cible and pole_droit = true [if paramétrage = true [parametres] sound:play-note "Tubular Bells" 60 64 1 stop]
if nb_cible <= cible [data reset-ticks clear-plot set iteration 0]]]
if iteration >= nb_iters and nb_iters != 0 [ifelse pole_droit = true or estimation = true [set essais essais + 1 data reset-ticks clear-plot set iteration 0] [if out = true [if valeurs = false and (pole_droit = true or Droit% = true) [if paramétrage = true [parametres]]] sound:play-note "Tubular Bells" 60 64 1 stop]]
set iteration iteration + 1
;;rafraichir le graphique
if ticks > 25 [reset-ticks
clear-plot]
if nb_essais > 0 and nb_essais < essais + 1 [if out = true [if valeurs = false [if paramétrage = true [parametres]]] sound:play-note "Tubular Bells" 60 64 1 stop]
end
to transmission ;; procéder à la transmission mémétique
ask in-link-neighbors [set total total + 1
if repet_even = true [event] ;;commande par catégorie reproduisant l'événement avant chaque transmission.
if [pre] of self > [pre] of myself and ([pre] of self - [pre] of myself >= écart_bas and [pre] of self - [pre] of myself < écart_haut)
[set meme_R ([meme] of self)
set pre_R ([pre] of self)
ifelse (([meme] of self < 0 and [meme] of myself > 0) or ([meme] of self > 0 and [meme] of myself < 0))
[set meme_2 [meme] of myself * -1
set change change + 1
;calcul de l'effet de l'entourage pour l'agent ciblé
if PQ_1 = true and côté_PQ = "POUR" and [color] of myself = blue and [meme_2] of myself < 0 [if count in-link-neighbors with [meme > 0] > influenceurs - Adhérents_PQ [set meme_2 meme_2 * -1 set change change - 1]] ;; atténuation du changement de côté en fonction du nombre d'influenceurs du côté opposé
if PQ_1 = true and côté_PQ = "CONTRE" and [color] of myself = blue and [meme_2] of myself > 0 [if count in-link-neighbors with [meme < 0] > influenceurs - Adhérents_PQ [set meme_2 meme_2 * -1 set change change - 1]]
if CAQ_1 = true and côté_CAQ = "CONTRE"and [color] of myself = magenta and [meme_2] of myself > 0 [if count in-link-neighbors with [meme < 0] > influenceurs - Adhérents_CAQ [set meme_2 meme_2 * -1 set change change - 1]]
if CAQ_1 = true and côté_CAQ = "POUR" and [color] of myself = magenta and [meme_2] of myself < 0 [if count in-link-neighbors with [meme > 0] > influenceurs - Adhérents_CAQ [set meme_2 meme_2 * -1 set change change - 1]]
if QS_1 = true and côté_QS = "POUR"and [color] of myself = orange and [meme_2] of myself < 0 [if count in-link-neighbors with [meme > 0] > influenceurs - Adhérents_QS [set meme_2 meme_2 * -1 set change change - 1]]
if QS_1 = true and côté_QS = "CONTRE" and [color] of myself = orange and [meme_2] of myself > 0 [if count in-link-neighbors with [meme < 0] > influenceurs - Adhérents_QS [set meme_2 meme_2 * -1 set change change - 1]]
if PLQ_1 = true and côté_PLQ = "POUR" and [color] of myself = red and [meme_2] of myself < 0 [if count in-link-neighbors with [meme > 0] > influenceurs - Adhérents_PLQ [set meme_2 meme_2 * -1 set change change - 1]]
if PLQ_1 = true and côté_PLQ = "CONTRE"and [color] of myself = red and [meme_2] of myself > 0 [if count in-link-neighbors with [meme < 0] > influenceurs - Adhérents_PLQ [set meme_2 meme_2 * -1 set change change - 1]]]
[set meme_2 [meme] of myself]
if pre_R > [pre] of myself [set meme_2 (meme_2 + (meme_R * pre_R / co * [pre] of myself) + z * bruit) / base]
ifelse meme_2 >= 0 [if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit)]]
[if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit) * -1]]
ask turtle host [pregnance
set meme meme_2
set xcor meme
if pre > limites [set pre limites]
if pre < 0 [set pre 0]
set ycor pre
]
]]
end
to pregnance ;; calculer la prégnance après la transmission mémétique
randomize
Set Dif (abs(meme_2 - meme)) / compression
Set TermMoins (pre - Dif + z) / base
Set TermPlus (pre + Dif + z) / base
ifelse pre >= abs(meme_2) - effet
[if TermMoins >= 0 and TermMoins <= limites [set pre TermMoins]]
[if TermPlus >= 0 and TermPlus <= limites [set pre TermPlus]]
if pre <= 0 [set pre random-float bruit]
end
to event ;; produire un événement
set exclusion 1
If Récit = true [set seq 0 while [seq <= 9] [ if iteration >= item seq de_PQ and iteration <= item seq fe_PQ
[set debut_even_PQ item seq de_PQ set fin_even_PQ item seq fe_PQ set limite_gauche_PQ item seq lg_PQ set limite_droite_PQ item seq ld_PQ
set prégnance_PQ item seq p_PQ set prégnance_haute_PQ item seq ph_PQ set prégnance_basse_PQ item seq pb_PQ set déplacer_PQ item seq d_PQ] set seq seq + 1]]
if PQ = true or Tous = true [if (iteration >= debut_even_PQ and iteration <= fin_even_PQ) or (debut_even = 0 and fin_even = 0) [ask turtles with [color = blue] [if meme > limite_gauche_PQ and meme < limite_droite_PQ and pre < prégnance_haute_PQ and pre > prégnance_basse_PQ [set meme_2 meme
set meme_2 meme_2 + déplacer_PQ
ifelse meme_2 >= 0 [if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit)]]
[if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit) * -1]]
ifelse prégnance_PQ = 0 [pregnance]
[set pre prégnance_PQ + log(random-float bruit) 2]
set meme meme_2
if meme > limites [set meme limites]
if pre > 29 [set pre 29]
if pre < -29 [set pre -29]
if pre < 0 [set pre 0]
setxy meme pre]]]
]
If Récit = true [set seq 0 while [seq <= 9] [ if iteration >= item seq de_CAQ and iteration <= item seq fe_CAQ
[set debut_even_CAQ item seq de_CAQ set fin_even_CAQ item seq fe_CAQ set limite_gauche_CAQ item seq lg_CAQ set limite_droite_CAQ item seq ld_CAQ
set prégnance_CAQ item seq p_CAQ set prégnance_haute_CAQ item seq ph_CAQ set prégnance_basse_CAQ item seq pb_CAQ set déplacer_CAQ item seq d_CAQ] set seq seq + 1]]
if CAQ = true or Tous = true [if (iteration >= debut_even_CAQ and iteration <= fin_even_CAQ) or (debut_even = 0 and fin_even = 0) [ask turtles with [color = magenta] [if meme > limite_gauche_CAQ and meme < limite_droite_CAQ and pre < prégnance_haute_CAQ and pre > prégnance_basse_CAQ [set meme_2 meme
set meme_2 meme_2 + déplacer_CAQ
ifelse meme_2 >= 0 [if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit)]]
[if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit) * -1]]
ifelse prégnance_CAQ = 0 [pregnance]
[set pre prégnance_CAQ + log(random-float bruit) 2]
set meme meme_2
if meme > limites [set meme limites]
if pre > 29 [set pre 29]
if pre < -29 [set pre -29]
if pre < 0 [set pre 0]
setxy meme pre]]]
]
If Récit = true [set seq 0 while [seq <= 9] [ if iteration >= item seq de_QS and iteration <= item seq fe_QS
[set debut_even_QS item seq de_QS set fin_even_QS item seq fe_QS set limite_gauche_QS item seq lg_QS set limite_droite_QS item seq ld_QS
set prégnance_QS item seq p_QS set prégnance_haute_QS item seq ph_QS set prégnance_basse_QS item seq pb_QS set déplacer_QS item seq d_QS] set seq seq + 1]]
if QS = true or Tous = true [if (iteration >= debut_even_QS and iteration <= fin_even_QS) or (debut_even = 0 and fin_even = 0) [ask turtles with [color = orange] [if meme > limite_gauche_QS and meme < limite_droite_QS and pre < prégnance_haute_QS and pre > prégnance_basse_QS [set meme_2 meme
set meme_2 meme_2 + déplacer_QS
ifelse meme_2 >= 0 [if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit)]]
[if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit) * -1]]
ifelse prégnance_QS = 0 [pregnance]
[set pre prégnance_QS + log(random-float bruit) 2]
set meme meme_2
if meme > limites [set meme limites]
if pre > 29 [set pre 29]
if pre < -29 [set pre -29]
if pre < 0 [set pre 0]
setxy meme pre]]]
]
If Récit = true [set seq 0 while [seq <= 9] [ if iteration >= item seq de_PLQ and iteration <= item seq fe_PLQ
[set debut_even_PLQ item seq de_PLQ set fin_even_PLQ item seq fe_PLQ set limite_gauche_PLQ item seq lg_PLQ set limite_droite_PLQ item seq ld_PLQ
set prégnance_PLQ item seq p_PLQ set prégnance_haute_PLQ item seq ph_PLQ set prégnance_basse_PLQ item seq pb_PLQ set déplacer_PLQ item seq d_PLQ] set seq seq + 1]]
if PLQ = true or Tous = true [if (iteration >= debut_even_PLQ and iteration <= fin_even_PLQ) or (debut_even = 0 and fin_even = 0) [ask turtles with [color = red] [if meme > limite_gauche_PLQ and meme < limite_droite_PLQ and pre < prégnance_haute_PLQ and pre > prégnance_basse_PLQ [set meme_2 meme
set meme_2 meme_2 + déplacer_PLQ
ifelse meme_2 >= 0 [if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit)]]
[if abs(meme_2) >= limites [set meme_2 (limites - random-float bruit) * -1]]
ifelse prégnance_PLQ = 0 [pregnance]
[set pre prégnance_PLQ + log(random-float bruit) 2]
set meme meme_2
if meme > limites [set meme limites]
if pre > 29 [set pre 29]
if pre < -29 [set pre -29]
if pre < 0 [set pre 0]
setxy meme pre]]]
]
set exclusion 0
end
to in_file ;fichier d'entrée
set in true
if forme = false and f01 = 0 [user-message "Fichier manquant du format des données" stop]
carefully [set file-in user-file
if (file-in != false)
[
set list_data []
file-open file-in
while [not file-at-end?]
[set list_data sentence list_data (list (list file-read file-read file-read file-read)) ]
user-message "Fichier chargé!"
]
data] [set in false user-message "Erreur de lecture du fichier de distribution"]
calcul
end
to data ;lecture de la distribution des agents
clear-turtles
set in_data 1
create-turtles échantillon
ifelse (is-list? list_data) [foreach list_data [ [?1] -> ask turtle first ?1 [if in_data <= (limite_iters * échantillon) + 1 [set meme item 1 ?1
set pre item 2 ?1
set infl_list last ?1
foreach infl_list [ [??1] -> create-link-from turtle ??1 ]
ask links [hide-link]
setxy meme pre
if (who >= f09 or who <= f10) or (who >= f07 and who <= f08) or (who >= f05 and who <= f06) or (who >= f03 and who <= f04) or (who >= f01 and who <= f02) [set color red] ;; répartition des agents par parti en fonction du fichier source
if (who >= f19 and who <= f20) or (who >= f17 and who <= f18) or (who >= f15 and who <= f16) or (who >= f13 and who <= f14) or (who >= f11 and who <= f12) [set color blue]
if (who >= f29 and who <= f30) or (who >= f27 and who <= f28) or (who >= f25 and who <= f26) or (who >= f23 and who <= f24) or (who >= f21 and who <= f22) [set color magenta]
if (who >= f39 and who <= f40) or (who >= f37 and who <= f38) or (who >= f35 and who <= f36) or (who >= f33 and who <= f34) or (who >= f31 and who <= f32) [set color orange]
set in_data in_data + 1]] ]]
[set in false user-message "Erreur de lecture" ]
if pole_droit [set pole true]
if go_trans = true [transférer]
end
to out_pole
if in = false [user-message "Fichier d'entrée manquant" stop]
file-close
set file-out user-new-file
if is-string? file-out
[
carefully [if file-exists? file-out
[file-delete file-out]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-out]
set out true
if valeurs = false [
set percentage count turtles with [meme > 0]
set percentage precision (percentage / échantillon * 100) 0
set p_class1 count turtles with [color = blue and meme > 0]
set p_class1 precision (p_class1 / count turtles with [color = blue] * 100) 0
set p_class4 count turtles with [color = red and meme > 0]
set p_class4 precision (p_class4 / count turtles with [color = red] * 100) 0
set p_class2 count turtles with [color = magenta and meme > 0]
set p_class2 precision (p_class2 / count turtles with [color = magenta] * 100) 0
set p_class3 count turtles with [color = orange and meme > 0]
set p_class3 precision (p_class3 / count turtles with [color = orange] * 100) 0
if fvote = false [
if estimation = true or Droit% = true [file-print " Vote PQ ; Vote CAQ ; Vote QS ; Vote PLQ ; Ref TOTAL ; Ref PQ ; Ref CAQ ; Ref QS ; Ref PLQ ; Iterations ; Essais"]
ifelse estimation = true [file-write vote_PQ file-write " ; " file-write vote_CAQ file-write " ; " file-write vote_QS file-write " ; " file-write vote_PLQ file-write " ; "] [if Droit% = true [file-write "; ; ; ; "]]
ifelse Droit% = true [file-write percentage file-write "; " file-write p_class1 file-write "; " file-write p_class2 file-write "; " file-write p_class3 file-write "; " file-write p_class4 file-write "; " file-write 0 file-write "; " file-print essais] [if pole_droit = true [file-write " ; ; ; ; " file-write 0 file-write "; " file-print essais file-close]]
]]
end
to saisie ;; saisie de la configuration par parti pour la gestion d'événements
if Formations = "PQ" or Formations = "Tous" [set limite_gauche_PQ limite_gauche set limite_droite_PQ limite_droite set prégnance_basse_PQ prégnance_basse set prégnance_haute_PQ prégnance_haute set prégnance_PQ prégnance
set déplacer_PQ déplacer set debut_even_PQ debut_even set fin_even_PQ fin_even set PQ true]
if Formations = "CAQ" or Formations = "Tous" [set limite_gauche_CAQ limite_gauche set limite_droite_CAQ limite_droite set prégnance_basse_CAQ prégnance_basse set prégnance_haute_CAQ prégnance_haute set prégnance_CAQ prégnance
set déplacer_CAQ déplacer set debut_even_CAQ debut_even set fin_even_CAQ fin_even set CAQ true]
if Formations = "QS" or Formations = "Tous" [set limite_gauche_QS limite_gauche set limite_droite_QS limite_droite set prégnance_basse_QS prégnance_basse set prégnance_haute_QS prégnance_haute set prégnance_QS prégnance
set déplacer_QS déplacer set debut_even_QS debut_even set fin_even_QS fin_even set QS true]
if Formations = "PLQ" or Formations = "Tous" [set limite_gauche_PLQ limite_gauche set limite_droite_PLQ limite_droite set prégnance_basse_PLQ prégnance_basse set prégnance_haute_PLQ prégnance_haute set prégnance_PLQ prégnance
set déplacer_PLQ déplacer set debut_even_PLQ debut_even set fin_even_PLQ fin_even set PLQ true]
if Formations = "Tous" [set Tous true]
end
to attribuer ;; configuration par parti de l'atténuation
if Partis = "PQ" [set PQ_1 true set Adhérents_PQ Adhérents set côté_PQ côté]
if Partis = "CAQ"[set CAQ_1 true set Adhérents_CAQ Adhérents set côté_CAQ côté]
if Partis = "QS" [set QS_1 true set Adhérents_QS Adhérents set côté_QS côté]
if Partis = "PLQ"[set PLQ_1 true set Adhérents_PLQ Adhérents set côté_PLQ côté]
end
to parametres ;; impression des paramètres utilisés et de la moyenne des pourcentages obtenus pour tous les cibles
file-open file-out
if cible > essais [set cible essais]
file-print "" file-print "PARAMETRES:"
file-write "Entree: ; " file-print file-in
file-write "Sortie: ; " file-print file-out
if récit = true [file-write "Recit: ; " file-print file-recit]
file-write "Echantillon: ; " file-print échantillon
file-write "Influenceurs: ; " file-print influenceurs
file-write "Limites: ; " file-print limites
file-write "Liens uniques: ; " file-print (count links)
file-write "Essais: ; " file-print essais
file-write "Nb_iters: ; " file-print nb_iters
if niveau = true [file-write "Debut_iters: ; " file-print debut_iters
file-write "cible: ; " file-print cible
set ratio cible / essais * 100
file-write "Prob: ; " file-write precision ratio 3 file-print " %"
file-write "Niveau_bas: ; " file-print niveau_bas
file-write "Niveau_haut: ; " file-print niveau_haut]
file-write "Interactions: ; " file-print total
file-write "Inversions: ; " file-print change
file-write "Changements: ; " file-write precision percent 3 file-print " %"
file-print "Attenuation:"
if PQ_1 = true [file-write "Adherents_PQ: ; " file-print Adhérents_PQ
file-write "Cote_PQ: ; " file-print côté_PQ]
if CAQ_1 = true [file-write "Adherents_CAQ: ; " file-print Adhérents_CAQ
file-write "Cote_CAQ: ; " file-print côté_CAQ]
if QS_1 = true [file-write "Adherents_QS: ; " file-print Adhérents_QS
file-write "Cote_QS: ; " file-print côté_QS]
if PLQ_1 = true [file-write "Adherents_PLQ: ; " file-print Adhérents_PLQ
file-write "Cote_PLQ: ; " file-print côté_PLQ]
ifelse récit = false [if repet_even = true [file-write "debut_even: ; " file-print debut_even
file-write "fin_even: ; " file-print fin_even]
if PQ = true [file-write "Limite_gauche_PQ: ; " file-print limite_gauche_PQ
file-write "Limite_droite_PQ: ; " file-print limite_droite_PQ
file-write "Pregnance_basse_PQ: ; " file-print prégnance_basse_PQ
file-write "Pregnance_haute_PQ: ; " file-print prégnance_haute_PQ
if prégnance_PQ != 0 [file-write "Pregnance_PQ: ; " file-print prégnance_PQ]
file-write "Deplacer_PQ: ; " file-print déplacer_PQ
file-write "Debut_even_PQ: ; " file-print debut_even_PQ
file-write "Fin_even_PQ: ; " file-print fin_even_PQ]
if CAQ = true [file-write "Limite_gauche_CAQ: ; " file-print limite_gauche_CAQ
file-write "Limite_droite_CAQ: ; " file-print limite_droite_CAQ
file-write "Pregnance_basse_CAQ: ; " file-print prégnance_basse_CAQ
file-write "Pregnance_haute_CAQ: ; " file-print prégnance_haute_CAQ
if prégnance_CAQ != 0 [file-write "Pregnance_CAQ: ; " file-print prégnance_CAQ]
file-write "Deplacer_CAQ: ; " file-print déplacer_CAQ
file-write "Debut_even_CAQ: ; " file-print debut_even_CAQ
file-write "Fin_even_CAQ: ; " file-print fin_even_CAQ]
if QS = true [file-write "Limite_gauche_QS: ; " file-print limite_gauche_QS
file-write "Limite_droite_QS: ; " file-print limite_droite_QS
file-write "Pregnance_basse_QS: ; " file-print prégnance_basse_QS
file-write "Pregnance_haute_QS: ; " file-print prégnance_haute_QS
if prégnance_QS != 0 [file-write "Pregnance_QS: ; " file-print prégnance_QS]
file-write "Deplacer_QS: ; " file-print déplacer_QS
file-write "Debut_even_QS: ; " file-print debut_even_QS
file-write "Fin_even_QS: ; " file-print fin_even_QS]
if PLQ = true [file-write "Limite_gauche_PLQ: ; " file-print limite_gauche_PLQ
file-write "Limite_droite_PLQ: ; " file-print limite_droite_PLQ
file-write "Pregnance_basse_PLQ: ; " file-print prégnance_basse_PLQ
file-write "Pregnance_haute_PLQ: ; " file-print prégnance_haute_PLQ
if prégnance_PLQ != 0 [file-write "Pregnance_PLQ: ; " file-print prégnance_PLQ]
file-write "Deplacer_PLQ: ; " file-print déplacer_PLQ
file-write "Debut_even_PLQ: ; " file-print debut_even_PLQ
file-write "Fin_even_PLQ: ; " file-print fin_even_PLQ]]
[if PQ = true [file-write "Limite_gauche_PQ: ; " file-print lg_PQ
file-write "Limite_droite_PQ: ; " file-print ld_PQ
file-write "Pregnance_basse_PQ: ; " file-print pb_PQ
file-write "Pregnance_haute_PQ: ; " file-print ph_PQ
file-write "Pregnance_PQ: ; " file-print p_PQ
file-write "Deplacer_PQ: ; " file-print d_PQ
file-write "Debut_even_PQ: ; " file-print de_PQ
file-write "Fin_even_PQ: ; " file-print fe_PQ]
if CAQ = true [file-write "Limite_gauche_CAQ: ; " file-print lg_CAQ
file-write "Limite_droite_CAQ: ; " file-print ld_CAQ
file-write "Pregnance_basse_CAQ: ; " file-print pb_CAQ
file-write "Pregnance_haute_CAQ: ; " file-print ph_CAQ
file-write "Pregnance_CAQ: ; " file-print p_CAQ
file-write "Deplacer_CAQ: ; " file-print d_CAQ
file-write "Debut_even_CAQ: ; " file-print de_CAQ
file-write "Fin_even_CAQ: ; " file-print fe_CAQ]
if QS = true [file-write "Limite_gauche_QS: ; " file-print lg_QS
file-write "Limite_droite_QS: ; " file-print ld_QS
file-write "Pregnance_basse_QS: ; " file-print pb_QS
file-write "Pregnance_haute_QS: ; " file-print ph_QS
file-write "Pregnance_QS: ; " file-print p_QS
file-write "Deplacer_QS: ; " file-print d_QS
file-write "Debut_even_QS: ; " file-print de_QS
file-write "Fin_even_QS: ; " file-print fe_QS]
if PLQ = true [file-write "Limite_gauche_PLQ: ; " file-print lg_PLQ
file-write "Limite_droite_PLQ: ; " file-print ld_PLQ
file-write "Pregnance_basse_PLQ: ; " file-print pb_PLQ
file-write "Pregnance_haute_PLQ: ; " file-print ph_PLQ
file-write "Pregnance_PLQ: ; " file-print p_PLQ
file-write "Deplacer_PLQ: ; " file-print d_PLQ
file-write "Debut_even_PLQ: ; " file-print de_PLQ
file-write "Fin_even_PLQ: ; " file-print fe_PLQ]]
if go_trans = true [file-print "Transferts electoraux:"]
if PQ_CAQ_% != 0 [file-write "PQ_CAQ: ; " file-write PQ_CAQ_% file-print " %"]
if PQ_QS_% != 0 [file-write "PQ_QS: ; " file-write PQ_QS_% file-print " %"]
if PQ_PLQ_% != 0 [file-write "PQ_PLQ: ; " file-write PQ_PLQ_% file-print " %"]
if CAQ_PQ_% != 0 [file-write "CAQ_PQ: ; " file-write CAQ_PQ_% file-print " %"]
if CAQ_QS_% != 0 [file-write "CAQ_QS: ; " file-write CAQ_QS_% file-print " %"]
if CAQ_PLQ_% != 0 [file-write "CAQ_PLQ: ; " file-write CAQ_PLQ_% file-print " %"]
if PLQ_PQ_% != 0 [file-write "PLQ_PQ: ; " file-write PLQ_PQ_% file-print " %"]
if PLQ_CAQ_% != 0 [file-write "PLQ_CAQ: ; " file-write PLQ_CAQ_% file-print " %"]
if PLQ_QS_% != 0 [file-write "PLQ_QS: ; " file-write PLQ_QS_% file-print " %"]
ask turtles with [color = blue] [set PQ_2 PQ_2 + 1]
ask turtles with [color = red] [set PLQ_2 PLQ_2 + 1]
ask turtles with [color = magenta] [set CAQ_2 CAQ_2 + 1]
ask turtles with [color = orange] [set QS_2 QS_2 + 1]
if estimation = true [file-print "Configuration de l'estimation:"]
if estimation = true [if PQ_on = true [file-write "PQ->Xd: ; " file-write PQ->Xd% file-print " %"]]
if estimation = true [if PQ_on = true [file-write "PQ->Xg: ; " file-write PQ->Xg% file-print " %"]]
if estimation = true [if CAQ_on = true [file-write "CAQ->Xd: ; " file-write CAQ->Xd% file-print " %"]]
if estimation = true [if QS_on = true [file-write "QS->Xd: ; " file-write QS->Xd% file-print " %"]]
if estimation = true [if PLQ_on = true [file-write "PLQ->Xd: ; " file-write PLQ->Xd% file-print " %"]]
if estimation = true [if PLQ_on = true [file-write "PLQ->Xg: ; " file-write PLQ->Xg% file-print " %"]]
if estimation = true [if PQ_on = true [file-write "CAQ<-PQ: ; " file-write CAQ<-PQ% file-print " %"]]
if estimation = true [if PLQ_on = true [file-write "PQ<-PLQ: ; " file-write PQ<-PLQ% file-print " %"]]
if estimation = true [if PLQ_on = true [file-write "CAQ<-PLQ: ; " file-write CAQ<-PLQ% file-print " %"]]
file-print "Distribution initiale:"
file-write "Vote PQ: ; " file-write round (PQ_2 / échantillon * 100) file-print " %"
file-write "Vote CAQ: ; " file-write round (CAQ_2 / échantillon * 100) file-print " %"
file-write "Vote QS: ; " file-write round (QS_2 / échantillon * 100) file-print " %"
file-write "Vote PLQ: ; " file-write round (PLQ_2 / échantillon * 100) file-print " %"
if Droit% = false and Niveau = true and cible > 0 [set tot_percent tot_percent / cible
set tot_class1 tot_class1 / cible
set tot_class2 tot_class2 / cible
set tot_class3 tot_class3 / cible
set tot_class4 tot_class4 / cible
file-print "MOYENNES:"
file-write precision tot_percent 1 file-write ";" file-write precision tot_class1 1 file-write ";" file-write precision tot_class2 1 file-write ";" file-write precision tot_class3 1 file-write ";" file-write precision tot_class4 1]
file-close
end
to init_atténuation ;;remise à zéo des paramètres de l'entourage
set PQ_1 false
set CAQ_1 false
set PLQ_1 false
set QS_1 false
set Adhérents_PQ 0
set Adhérents_CAQ 0
set Adhérents_QS 0
set Adhérents_PLQ 0
set côté_PQ ""
set côté_QS ""
set côté_CAQ ""
set côté_PLQ ""
end
to init_saisie ;;remise à zéro des paramètres d'événements
set PQ false
set CAQ false
set PLQ false
set QS false
set limite_gauche_PQ 0
set limite_droite_PQ 0
set limite_gauche_PLQ 0
set limite_droite_PLQ 0
set limite_gauche_CAQ 0
set limite_droite_CAQ 0
set limite_gauche_QS 0
set limite_droite_QS 0
set prégnance_basse_PQ 0
set prégnance_haute_PQ 0
set prégnance_basse_PLQ 0
set prégnance_haute_PLQ 0
set prégnance_basse_CAQ 0
set prégnance_haute_CAQ 0
set prégnance_basse_QS 0
set prégnance_haute_QS 0
set prégnance_PQ 0
set prégnance_PLQ 0
set prégnance_CAQ 0
set prégnance_QS 0
set déplacer_PQ 0
set déplacer_PLQ 0
set déplacer_CAQ 0
set déplacer_QS 0
set debut_even_PQ 0
set fin_even_PQ 0
set debut_even_CAQ 0
set fin_even_CAQ 0
set debut_even_QS 0
set fin_even_QS 0
set debut_even_PLQ 0
set fin_even_PLQ 0
end
to charger_atténuer ;lecture d'un fichier de configuration de l'entourage (atténuation)
carefully [set file-attenuer user-file
if (file-attenuer != false)
[
file-open file-attenuer
set Adhérents_PQ file-read set Adhérents_CAQ file-read set Adhérents_QS file-read set Adhérents_PLQ file-read set côté_PQ file-read set côté_CAQ file-read set côté_QS file-read set côté_PLQ file-read
set PQ_1 file-read set CAQ_1 file-read set QS_1 file-read set PLQ_1 file-read
user-message "Fichier chargé!" file-close]
] [user-message "Erreur de lecture du fichier d'atténuation"]
end
to charger_saisir ;;lecture d'un fichier configurant un événement
carefully [set file-saisir user-file
if (file-saisir != false)
[
file-open file-saisir
set limite_gauche_PQ file-read set limite_gauche_CAQ file-read set limite_gauche_QS file-read set limite_gauche_PLQ file-read
set limite_droite_PQ file-read set limite_droite_CAQ file-read set limite_droite_QS file-read set limite_droite_QS file-read
set prégnance_basse_PQ file-read set prégnance_basse_CAQ file-read set prégnance_basse_QS file-read set prégnance_basse_PLQ file-read
set prégnance_haute_PQ file-read set prégnance_haute_CAQ file-read set prégnance_haute_QS file-read set prégnance_haute_PLQ file-read
set prégnance_PQ file-read set prégnance_CAQ file-read set prégnance_QS file-read set prégnance_PLQ file-read
set déplacer_PQ file-read set déplacer_CAQ file-read set déplacer_QS file-read set déplacer_PLQ file-read
set debut_even_PQ file-read set debut_even_CAQ file-read set debut_even_QS file-read set debut_even_PLQ file-read
set fin_even_PQ file-read set fin_even_CAQ file-read set fin_even_QS file-read set fin_even_PLQ file-read
set PQ file-read set CAQ file-read set QS file-read set PLQ file-read
set repet_even file-read
set debut_even 99
set fin_even 99
user-message "Fichier chargé!" file-close]
] [user-message "Erreur de lecture du fichier d'événement"]
end
to sauver_atténuer ;;sauvegarde dans un fichier des paramètres de l'entourage
set file-attenuer user-new-file
if is-string? file-attenuer
[
carefully [if file-exists? file-attenuer
[file-delete file-attenuer]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-attenuer]
file-write Adhérents_PQ file-write Adhérents_CAQ file-write Adhérents_QS file-write Adhérents_PLQ file-write côté_PQ file-write côté_CAQ file-write côté_QS file-write côté_PLQ
file-write PQ_1 file-write CAQ_1 file-write QS_1 file-write PLQ_1
file-close
end
to sauver_saisir ;;sauvegarde dans un fichier des paramètres d'un événement
set file-saisir user-new-file
if is-string? file-saisir
[
carefully [if file-exists? file-saisir
[file-delete file-saisir]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-saisir]
file-write limite_gauche_PQ file-write limite_gauche_CAQ file-write limite_gauche_QS file-write limite_gauche_PLQ
file-write limite_droite_PQ file-write limite_droite_CAQ file-write limite_droite_QS file-write limite_droite_PLQ
file-write prégnance_basse_PQ file-write prégnance_basse_CAQ file-write prégnance_basse_QS file-write prégnance_basse_PLQ
file-write prégnance_haute_PQ file-write prégnance_haute_CAQ file-write prégnance_haute_QS file-write prégnance_haute_PLQ
file-write prégnance_PQ file-write prégnance_CAQ file-write prégnance_QS file-write prégnance_PLQ
file-write déplacer_PQ file-write déplacer_CAQ file-write déplacer_QS file-write déplacer_PLQ
file-write debut_even_PQ file-write debut_even_CAQ file-write debut_even_QS file-write debut_even_PLQ
file-write fin_even_PQ file-write fin_even_CAQ file-write fin_even_QS file-write fin_even_PLQ
file-write PQ file-write CAQ file-write QS file-write PLQ
file-write repet_even
file-close
end
to sauver_config ;;sauvegarde dans un fichier des paramètres de la configuration générale
set file-config user-new-file
if is-string? file-config
[
carefully [if file-exists? file-config
[file-delete file-config]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-config]
file-write valeurs file-write pole_droit file-write Droit% file-write Niveau
file-write debut_iters file-write Niveau_bas file-write Niveau_haut file-write échantillon file-write influenceurs file-write limites
file-write nb_iters file-write nb_essais file-write cible
file-write PQ->Xd% file-write PQ->Xg% file-write CAQ->Xd% file-write QS->Xd% file-write PLQ->Xg% file-write PLQ->Xd% file-write PQ<-PLQ% file-write CAQ<-PQ% file-write CAQ<-PLQ%
file-close
end
to charger_config ;;lecture d'un fichier contenant les paramètres de la configuration générale
carefully [set file-config user-file
if (file-config != false)
[
file-open file-config
set valeurs file-read set pole_droit file-read set Droit% file-read set Niveau file-read
set debut_iters file-read set Niveau_bas file-read set Niveau_haut file-read set échantillon file-read set influenceurs file-read set limites file-read
set nb_iters file-read set nb_essais file-read set cible file-read
set PQ->Xd% file-read set PQ->Xg% file-read set CAQ->Xd% file-read set QS->Xd% file-read set PLQ->Xg% file-read set PLQ->Xd% file-read set PQ<-PLQ% file-read set CAQ<-PQ% file-read set CAQ<-PLQ% file-read
user-message "Fichier chargé!" file-close]
] [user-message "Erreur de lecture du fichier de configuration"]
end
to format ;;lecture d'un fichier contenant la configuration de distribution des agents en fonction du fichier source
carefully [set file-format user-file
if (file-format != false)
[set forme true
file-open file-format
set f01 file-read set f02 file-read set f03 file-read set f04 file-read set f05 file-read set f06 file-read set f07 file-read set f08 file-read set f09 file-read set f10 file-read
set f11 file-read set f12 file-read set f13 file-read set f14 file-read set f15 file-read set f16 file-read set f17 file-read set f18 file-read set f19 file-read set f20 file-read
set f21 file-read set f22 file-read set f23 file-read set f24 file-read set f25 file-read set f26 file-read set f27 file-read set f28 file-read set f29 file-read set f30 file-read
set f31 file-read set f32 file-read set f33 file-read set f34 file-read set f35 file-read set f36 file-read set f37 file-read set f38 file-read set f39 file-read set f40 file-read
user-message "Fichier chargé!" file-close]
] [user-message "Erreur de lecture du fichier de format"]
end
to inscrire ;;inscription dans un récit d'événements se produisant séquentiellement
ifelse zéro = true
[if formations = "PQ" [set d_PQ replace-item séquence d_PQ déplacer_PQ
set lg_PQ replace-item séquence lg_PQ limite_gauche_PQ
set ld_PQ replace-item séquence ld_PQ limite_droite_PQ
set p_PQ replace-item séquence p_PQ prégnance_PQ
set pb_PQ replace-item séquence pb_PQ prégnance_basse_PQ
set ph_PQ replace-item séquence ph_PQ prégnance_haute_PQ
set de_PQ replace-item séquence de_PQ debut_even_PQ
set fe_PQ replace-item séquence fe_PQ fin_even_PQ]
if formations = "CAQ" [set d_CAQ replace-item séquence d_CAQ déplacer_CAQ
set lg_CAQ replace-item séquence lg_CAQ limite_gauche_CAQ
set ld_CAQ replace-item séquence ld_CAQ limite_droite_CAQ
set p_CAQ replace-item séquence p_CAQ prégnance_CAQ
set pb_CAQ replace-item séquence pb_CAQ prégnance_basse_CAQ
set ph_CAQ replace-item séquence ph_CAQ prégnance_haute_CAQ
set de_CAQ replace-item séquence de_CAQ debut_even_CAQ
set fe_CAQ replace-item séquence fe_CAQ fin_even_CAQ]
if formations = "QS" [set d_QS replace-item séquence d_QS déplacer_QS
set lg_QS replace-item séquence lg_QS limite_gauche_QS
set ld_QS replace-item séquence ld_QS limite_droite_QS
set p_QS replace-item séquence p_QS prégnance_QS
set pb_QS replace-item séquence pb_QS prégnance_basse_QS
set ph_QS replace-item séquence ph_QS prégnance_haute_QS
set de_QS replace-item séquence de_QS debut_even_QS
set fe_QS replace-item séquence fe_QS fin_even_QS]
if formations = "PLQ" [set d_PLQ replace-item séquence d_PLQ déplacer_PLQ
set lg_PLQ replace-item séquence lg_PLQ limite_gauche_PLQ
set ld_PLQ replace-item séquence ld_PLQ limite_droite_PLQ
set p_PLQ replace-item séquence p_PLQ prégnance_PLQ
set pb_PLQ replace-item séquence pb_PLQ prégnance_basse_PLQ
set ph_PLQ replace-item séquence ph_PLQ prégnance_haute_PLQ
set de_PLQ replace-item séquence de_PLQ debut_even_PLQ
set fe_PLQ replace-item séquence fe_PLQ fin_even_PLQ]
]
[user-message "Il faut initialiser avant"]
end
to remise_0 ;;initialisation et remise à zéro des listes d'événements pour un récit
set zéro true
set d_PQ [0 0 0 0 0 0 0 0 0 0]
set d_CAQ [0 0 0 0 0 0 0 0 0 0]
set d_QS [0 0 0 0 0 0 0 0 0 0]
set d_PLQ [0 0 0 0 0 0 0 0 0 0]
set lg_PQ [0 0 0 0 0 0 0 0 0 0]
set lg_CAQ [0 0 0 0 0 0 0 0 0 0]
set lg_QS [0 0 0 0 0 0 0 0 0 0]
set lg_PLQ [0 0 0 0 0 0 0 0 0 0]
set ld_PQ [0 0 0 0 0 0 0 0 0 0]
set ld_CAQ [0 0 0 0 0 0 0 0 0 0]
set ld_QS [0 0 0 0 0 0 0 0 0 0]
set ld_PLQ [0 0 0 0 0 0 0 0 0 0]
set p_PQ [0 0 0 0 0 0 0 0 0 0]
set p_CAQ [0 0 0 0 0 0 0 0 0 0]
set p_QS [0 0 0 0 0 0 0 0 0 0]
set p_PLQ [0 0 0 0 0 0 0 0 0 0]
set pb_PQ [0 0 0 0 0 0 0 0 0 0]
set pb_CAQ [0 0 0 0 0 0 0 0 0 0]
set pb_QS [0 0 0 0 0 0 0 0 0 0]
set pb_PLQ [0 0 0 0 0 0 0 0 0 0]
set ph_PQ [0 0 0 0 0 0 0 0 0 0]
set ph_CAQ [0 0 0 0 0 0 0 0 0 0]
set ph_QS [0 0 0 0 0 0 0 0 0 0]
set ph_PLQ [0 0 0 0 0 0 0 0 0 0]
set de_PQ [0 0 0 0 0 0 0 0 0 0]
set de_CAQ [0 0 0 0 0 0 0 0 0 0]
set de_QS [0 0 0 0 0 0 0 0 0 0]
set de_PLQ [0 0 0 0 0 0 0 0 0 0]
set fe_PQ [0 0 0 0 0 0 0 0 0 0]
set fe_CAQ [0 0 0 0 0 0 0 0 0 0]
set fe_QS [0 0 0 0 0 0 0 0 0 0]
set fe_PLQ [0 0 0 0 0 0 0 0 0 0]
end
to sauver_récit ;sauvegarde dans un fichier de la séquence d'événements pour un récit
set file-recit user-new-file
if is-string? file-recit
[
carefully [if file-exists? file-recit
[file-delete file-recit]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-recit]
file-write lg_PQ file-write lg_CAQ file-write lg_QS file-write lg_PLQ
file-write ld_PQ file-write ld_CAQ file-write ld_QS file-write ld_PLQ
file-write pb_PQ file-write pb_CAQ file-write pb_QS file-write pb_PLQ
file-write ph_PQ file-write ph_CAQ file-write ph_QS file-write ph_PLQ
file-write p_PQ file-write p_CAQ file-write p_QS file-write p_PLQ
file-write d_PQ file-write d_CAQ file-write d_QS file-write d_PLQ
file-write de_PQ file-write de_CAQ file-write de_QS file-write de_PLQ
file-write fe_PQ file-write fe_CAQ file-write fe_QS file-write fe_PLQ
file-write PQ file-write CAQ file-write QS file-write PLQ
file-write nb_iters file-write nb_essais file-write cible
file-write debut_iters file-write niveau_bas file-write niveau_haut
file-write valeurs file-write pole_droit file-write droit% file-write niveau file-write estimation file-write limite_iters
file-write PQ_on file-write CAQ_on file-write QS_on file-write PLQ_on
file-write repet_even file-write récit
file-close
end
to charger_récit ;lecture d'un fichier contenant la séquence d'événements pour un récit
carefully [set file-recit user-file
if (file-recit != false)
[
file-open file-recit
set lg_PQ file-read set lg_CAQ file-read set lg_QS file-read set lg_PLQ file-read
set ld_PQ file-read set ld_CAQ file-read set ld_QS file-read set ld_PLQ file-read
set pb_PQ file-read set pb_CAQ file-read set pb_QS file-read set pb_PLQ file-read
set ph_PQ file-read set ph_CAQ file-read set ph_QS file-read set ph_PLQ file-read
set p_PQ file-read set p_CAQ file-read set p_QS file-read set p_PLQ file-read
set d_PQ file-read set d_CAQ file-read set d_QS file-read set d_PLQ file-read
set de_PQ file-read set de_CAQ file-read set de_QS file-read set de_PLQ file-read
set fe_PQ file-read set fe_CAQ file-read set fe_QS file-read set fe_PLQ file-read
set PQ file-read set CAQ file-read set QS file-read set PLQ file-read
set nb_iters file-read set nb_essais file-read set cible file-read
set debut_iters file-read set niveau_bas file-read set niveau_haut file-read
set valeurs file-read set pole_droit file-read set droit% file-read set niveau file-read set estimation file-read set limite_iters file-read
set PQ_on file-read set CAQ_on file-read set QS_on file-read set PLQ_on file-read
set repet_even file-read set récit file-read
user-message "Fichier chargé!" set zéro true file-close]
] [user-message "Erreur de lecture du fichier de récit"]
end
to sauver_vote ;sauvegarde dans un fichier des estimations des intentions de vote
set fvote true
set file-vote user-new-file
if is-string? file-vote
[
carefully [if file-exists? file-vote
[file-delete file-vote]] [set out false user-message "Erreur d'ouverture de fichier" stop]
file-open file-vote set inscription true file-print " Vote PQ ; Vote CAQ ; Vote QS ; Vote PLQ ; Iterations ; Essais "]
set out true
end
to inscrire_vote ;procédure d'inscription des estimations du vote lors de chaque itération
file-open file-vote
file-write vote_PQ file-write "; " file-write vote_CAQ file-write "; " file-write vote_QS file-write "; " file-write vote_PLQ file-write "; " file-write iteration file-write "; " file-print essais + 1
file-close
end
to établir ;; établir la liste des transferts électoraux d'un parti vers un autre en utilisant le bouton "Établir"
set go_trans true
if De = "PQ" and Vers = "CAQ" [set PQ_de true set CAQ_vers true set PQ_CAQ_% Pourcent]
if De = "PQ" and Vers = "QS" [set PQ_de true set QS_vers true set PQ_QS_% Pourcent]
if De = "PQ" and Vers = "PLQ" [set PQ_de true set PLQ_vers true set PQ_PLQ_% Pourcent]
if De = "CAQ" and Vers = "PQ" [set CAQ_de true set PQ_vers true set CAQ_PQ_% Pourcent]
if De = "CAQ" and Vers = "QS" [set CAQ_de true set QS_vers true set CAQ_QS_% Pourcent]
if De = "CAQ" and Vers = "PLQ" [set CAQ_de true set PLQ_vers true set CAQ_PLQ_% Pourcent]
if De = "QS" and Vers = "PQ" [set QS_de true set PQ_vers true set QS_PQ_% Pourcent]
if De = "QS" and Vers = "CAQ" [set QS_de true set CAQ_vers true set QS_CAQ_% Pourcent]
if De = "QS" and Vers = "PLQ" [set QS_de true set PLQ_vers true set QS_PLQ_% Pourcent]
if De = "PLQ" and Vers = "PQ" [set PLQ_de true set PQ_vers true set PLQ_PQ_% Pourcent]
if De = "PLQ" and Vers = "CAQ" [set PLQ_de true set CAQ_vers true set PLQ_CAQ_% Pourcent]
if De = "PLQ" and Vers = "QS" [set PLQ_de true set QS_vers true set PLQ_QS_% Pourcent]
end
to transférer ;; activation du transfert en appuyant sur le bouton "Transférer"
if PQ_de = true and CAQ_vers = true [set couleur_de blue set couleur_vers magenta set Pourcent PQ_CAQ_% effectuer calcul]
if PQ_de = true and QS_vers = true [set couleur_de blue set couleur_vers orange set Pourcent PQ_QS_% effectuer calcul]
if PQ_de = true and PLQ_vers = true [set couleur_de blue set couleur_vers red set Pourcent PQ_PLQ_% effectuer calcul]
if CAQ_de = true and PQ_vers = true [set couleur_de magenta set couleur_vers blue set Pourcent CAQ_PQ_% effectuer calcul]
if CAQ_de = true and QS_vers = true [set couleur_de magenta set couleur_vers orange set Pourcent CAQ_QS_% effectuer calcul]
if CAQ_de = true and PLQ_vers = true [set couleur_de magenta set couleur_vers red set Pourcent CAQ_PLQ_% effectuer calcul]
if QS_de = true and PQ_vers = true [set couleur_de orange set couleur_vers blue set Pourcent QS_PQ_% effectuer calcul]
if QS_de = true and CAQ_vers = true [set couleur_de orange set couleur_vers magenta set Pourcent QS_CAQ_% effectuer calcul]
if QS_de = true and PLQ_vers = true [set couleur_de orange set couleur_vers red set Pourcent QS_PLQ_% effectuer calcul]
if PLQ_de = true and PQ_vers = true [set couleur_de red set couleur_vers blue set Pourcent PLQ_PQ_% effectuer calcul]
if PLQ_de = true and CAQ_vers = true [set couleur_de red set couleur_vers magenta set Pourcent PLQ_CAQ_% effectuer calcul]
if PLQ_de = true and QS_vers = true [set couleur_de red set couleur_vers orange set Pourcent PLQ_QS_% effectuer calcul]
end
to effectuer ;;effectuer les transferts électoraux
set transfert round(count turtles with [color = couleur_de] * Pourcent / 100)
set ji 1
while [ji < transfert]
[set trans_cible random 500
ask turtle trans_cible [if color = couleur_de [set color couleur_vers set ji ji + 1]]]
end
to calcul ;;calculer les pourcentages de chaque parti
set vote_PQ round (count turtles with [color = blue] / échantillon * 100)
set vote_CAQ round (count turtles with [color = magenta] / échantillon * 100)
set vote_QS round (count turtles with [color = orange] / échantillon * 100)
set vote_PLQ round (count turtles with [color = red] / échantillon * 100)
end
There is only one version of this model, created almost 5 years ago by Pierre-Alain Cotnoir.
Attached files
| File | Type | Description | Last updated | |
|---|---|---|---|---|
| Simulateur_v18_FR_parti_500.png | preview | Preview for 'Simulateur_v18_FR_parti_500' | almost 5 years ago, by Pierre-Alain Cotnoir | Download |
This model does not have any ancestors.
This model does not have any descendants.