Sujet : Le jeu de l’ultimatum se présente de la façon suivante :

2 individus (A et B) se partagent une somme S = 100 ;
A (le proposant) offre à B (le répondant) une part X de cette somme, c’est à dire,
A reçoit une somme (S-X) ; B reçoit une somme X ;
Si répondant B accepte la proposition, les 2 gagent la somme indiquée au-dessus;
Si répondant B n’accepte pas, les 2 n’obtiennent rien du tout;

    (Au sens de la théorie des jeux, s’ils sont rationnels, la proposition (X=1 ; S-X=99) est un équilibre parfait).     On suppose que l’on a 49 individus qui répètent ce jeu un certain nombre de fois :

A chaque fois, chaque individu joue le rôle de proposant avec un répondant choisi au hasard.

    La stratégie de chaque individu est la suivante :

Choisir 2 nombres entiers au hasard mais entre 0 et 100, prop et accept ; Quand il est proposant il offre toujours prop à l’autre; Quand il est répondant il accepte si et seulement si la répartition offerte est supérieure ou égale à accept.

 Réalisation :

    Notre programme réalisé consiste à simuler des échanges entre des individus. Ces derniers déterminent un niveau de proposition et un niveau d’acceptation. En fonction de ces niveaux, ils choisiront de jouer et d’avoir un gain, ou non. Le gain est lié à la répartition des sommes échangées. Il est donc question d’analyser le gain cumulé et le gain moyen des individus en fonction du leur proposition et de leur acceptation.

    Nous proposons 3 simulations de jeu : le mode normal, le mode intelligent, et le mode parfait sous 3 hypothèses. Ces 3 modes de jeu peuvent être sélectionnés à la fin d’une partie, avant d’en commencer une autre. Ceci peut correspondre par exemple dans la réalité à un contrat signé qui fait que les quantités et les prix négociés ne pourront pas être anticipés différemment au cours d’une période (ici une partie, c’est-à-dire un ensemble de confrontations). On peut définir cette période comme une période d’adaptation.

Le mode normal : hypothèse d’information nulle : Les individus ne se connaissent pas, chacun ne connaît pas lui-même en plus. C’est l’expérience d’individu des parties précédentes n’a pas d’impact pour la partie suivante. prop et accept sont donc choisit au hasard entre 0 et 100.

Le mode Intelligent : hypothèse d’information imparfaite : Les individus ne se connaissent pas, mais chacun connaît lui-même. C’est à dire, chaque individu prendra sa décision en fonction de la moyenne des ses gains moyens réalisés pendant les n confrontations précédentes. prop et accpet sont donc tous supérieures au gain moyen précédent d’individu ;

Le mode parfait : hypothèse d’information imparfait : Tout le mode se connaît. C’est à dire, chaque individu va prendre en compte les résultats globaux obtenus des parties précédentes pour faire la décision. Donc prop > le gain moyen global et accept < le gain moyen global

un peu plus tard, je vais mettre en place notre programme et le code original pour le  téléchargement.

Private Sub Command1_Click()
　r = InputBox(“Entrez un chiffre pour vérifier, SVP”)
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘Ici donne une condition pour les non premiers nombres
　　　　MsgBox (“Ce n’est pas un premier nombre”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (“C’est un premier nombre”)
End Sub

‘Lister des nombres de 1 à 100Private Sub Command2_Click()
　r = 100
　Me.Caption = 0
　Me.ForeColor = vbBlue
　For j = 1 To r
　　　For i = 2 To j
　　　　　If Val(j) Mod i = 0 And i <> Val(j) Then
　　　　　　Me.ForeColor = vbBlue ‘la couleur pour les non premiers nombres
　　　　　　Exit For
　　　　　Else
　　　　　　Me.ForeColor = vbRed ‘la couleur pour les premiers nombres
　　　　　End If
　　　Next i
　　Print ” ” & Format(j, “000″);
　　If Me.ForeColor = vbRed Then Me.Caption = Me.Caption + 1 ‘La totale de nombre des premiers nombres
　　If j Mod 10 = 0 Then Print
　Next j
End Sub

 Private Sub Command1_Click()
　r = InputBox(“请输入您要判断的数字”)
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘这里给出了非质数的条件
　　　　MsgBox (“此数为非质数”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (“此数为质数”)
End Sub

‘列出1到100中的质数与非质数
Private Sub Command2_Click()
　r = 100 ‘设定最大范围为100
　Me.Caption = 0 ‘把按钮2的显示名称设为0，为了之后显示总数
　Me.ForeColor = vbBlue ‘把按钮2的显示名称的字体颜色设为蓝色
　For j = 1 To r
　　　For i = 2 To j
　　　　　If Val(j) Mod i = 0 And i <> Val(j) Then
　　　　　　Me.ForeColor = vbBlue ‘非质数为蓝色
　　　　　　Exit For
　　　　　Else
　　　　　　Me.ForeColor = vbRed ‘质数为红色
　　　　　End If
　　　Next i
　　Print ” ” & Format(j, “000″);
　　If Me.ForeColor = vbRed Then Me.Caption = Me.Caption + 1 ‘显示质数的总数
　　If j Mod 10 = 0 Then Print
　Next j
End Sub

Private Sub Command1_Click()
　r = InputBox(“Enter a number please”) ‘ Enter a number to verify
　For i = 2 To r
　　　If Val(r) Mod i = 0 And i <> Val(r) Then ‘ this phase give a condition which is not a prime number
　　　　MsgBox (“The numbered you entered is not a prime number”)
　　　　Exit Sub
　　　End If
　Next i
　MsgBox (“The numbered you entered is not a prime number”)
End Sub

‘A list of number from 1 to 100
Private Sub Command2_Click()
　r = 100
　Me.Caption = 0
　Me.ForeColor = vbBlue
　For j = 1 To r
　　　For i = 2 To j
　　　　　If Val(j) Mod i = 0 And i <> Val(j) Then
　　　　　　Me.ForeColor = vbBlue ‘color of a not prime number
　　　　　　Exit For
　　　　　Else
　　　　　　Me.ForeColor = vbRed ‘color of a prime number
　　　　　End If
　　　Next i
　　Print ” ” & Format(j, “000″);
　　If Me.ForeColor = vbRed Then Me.Caption = Me.Caption + 1 ‘total of the prime number
　　If j Mod 10 = 0 Then Print
　Next j
End Sub