实验经济学第八讲经济实验实施实例电子商务信誉机课件.ppt

1、整理课件1实验经济学第八讲：经济实验实施实例：电子商务信誉机制的有效性检验 杜宁华上海财经大学经济学院，经济学实验室2009 年 5月整理课件2 作业：Programming with Visual Basic 6.0 Enhanced Edition,Diane Zak,Tutorial 5，Tutorial 6 and Tutorial 10(三周时间)整理课件3一、背景环境整理课件4 Bolton，Katok and Ockenfels（2004）的研究采用如下博弈来刻画电子商务交易过程：销售者和购买者手中各有35元。销售者向购买者出售标价为35元的商品，该商品对购买者而言价值50元。销

2、售者从供货渠道获得产品、直到将产品运送到购买者手中全部过程所产生的成本为20元。整理课件5 购买者有两种可能的选择：购买或不购买。如果购买者选择不购买，则销售者和购买者各自保有自己的35元。如果购买者选择购买，则购买者把自己的35元交付给销售者。整理课件6 销售者在得到购买者的35元之后也有两种选择，发货或不发货。如果销售者选择不发货，则销售者得到70元而购买者得到0元。如果销售者选择发货，则销售者的所得是自己的35元加上购买者支付的35元再减去发货成本20元，共计50元；而此时购买者得到了对她而言价值50元的产品，即所得也为50元。整理课件7购买者所得 35销售者所得 35购买者不购买购买0

3、705050不发货销售者发货整理课件8 电子商务中，购买者处于不利地位。交付货款后，购买者面临着销售者欺诈（即不发货）的风险。建立信誉机制的目的是为了提高市场效率。如果购买者能看到销售者在以往的交易中的发货记录，那么购买者只会从记录良好的销售者手中购买商品。交易中的欺诈将直接反映在销售者的发货记录中，从而直接降低该销售者以后成交的可能性。整理课件9二、实验设计整理课件10 我们需要足够的实验局。每个实验局我们征召8个实验参加者。这8个实验参加者博弈重复进行14轮。在每一轮中，8个参加者被随机分成4组。每一组中，销售者/购买者随机决定。从第2轮起，购买者能看到当前遇到的销售者以往的信誉记录。如果

4、该销售者以往与某个购买者发生了交易，记录将显示该销售者在交易中是否发货。信誉记录信息需要购买者主动点击才会看到。整理课件11整理课件12三、程序设计整理课件13 服务器程序要实现的功能：实验中信息传递的中转站 要生成数据文件以记录实验结果 要将实验结果通过电脑屏幕随时反映给监控实验的研究人员。整理课件14 创建一个新的VB窗体Rep_Monitor.frm和VB工程Rep_Monitor.vbp，并存放到恰当的目录下。针对服务器程序需要实现的功能，我们在窗体Rep_Monitor上添加若干个对象。整理课件15整理课件16对象名称对象作用图标组lblID显示实验参加者的识别号码图标组lblGro

5、up显示实验参加者的组别图标组lblRole显示实验参加者的角色图标组lblFChoice显示同组购买者的选择图标组lblSChoice显示同组销售者的选择图标组lblFPayoff显示同组购买者的所得图标组lblSPayoff显示同组销售者的所得图标组lblTPayoff显示实验参加者的累积所得lblPeriod显示当前的轮次lblIDArrived显示最新连入的实验参加者cmdSubUp使实验参加者进入实验状态NQmonitor信息传递的工具整理课件17整理课件18 服务器程序的功能细化：实验开始前，服务器要检查连接状态。当所有实验参加者都和服务器连上，且已作好实验准备时，服务器要发出使实

6、验参加者进入实验状态的指令。实验开始时，服务器要对参加者进行分组配对。每一轮开始时，服务器要向参加者发送新一轮的信息。每一轮结束时，服务器要记录本轮的实验结果。在各轮进行过程中，服务器要处理购买者（甲）的决策、销售者（乙）的决策，并记录购买者使用信誉系统得情况。整理课件19任务（Task）对象（Object）事件（Event）为实验参加者分组配对FormForm_load检查实验参加者与服务器的连接NQmonitorNqmonitor_MessageArrived使实验参加者进入实验状态cmdSubUpcmdSubUp_Click开始新的轮次NQmonitor终止当前轮次NQmonitor,窗

7、体上所有的图标组处理购买者（甲）的决策NQmonitorNqmonitor_MessageArrived处理销售者（乙）的决策NQmonitorNqmonitor_MessageArrived登记购买者观察信誉记录的情况NQmonitorNqmonitor_MessageArrived整理课件20 实验参加者程序要实现向实验参加者传递信息和采集实验参加者的决策两大块功能。我们创建一个新的VB窗体Rep_Subject.frm和VB工程Rep_Subject.vbp，并存放到恰当的目录下。整理课件21整理课件22对象名称对象作用lblRound显示当前轮次lblRole显示实验参加者的角色lbl

8、YourChoice“你的决策是：”cmdA用于选择A，C的按键cmdB用于选择B，D的按键lblFChoice显示“甲已选择A，本轮结束”lblHistory显示“历史记录：”txtHistory用于记载实验参加者本人的决策历史lblInfo显示“乙的决策记录：”cmdSum汇总信息按键lblSummary用于展示乙的决策记录汇总信息cmdInfo详细信息按键txtInfo用于展示乙的决策记录详细信息txtID用于输入识别号码cmdOK用于确认识别号码NQsubject信息传递的工具整理课件23整理课件24任务（Task）对象（Object）事件（Event）录入实验参加者识别号码txtID

9、,cmdOKcmdOK_Click进入实验状态NQsubjectNQsubject_MessageArrived接收销售者的信誉记录NQsubjectNQsubject_MessageArrived购买者（甲）观察信誉记录 cmdSum,cmdInfo,lblSummary,txtInfocmdSum_Click,cmdInfo_Click购买者（甲）进行决策cmdA,cmdBcmdA_Click,cmdB_Click购买者（甲）的决策被传至销售者（乙）NQsubjectNQsubject_MessageArrived销售者（乙）进行决策cmdA,cmdBcmdA_Click,cmdB_Cli

10、ck开始新的轮次NQsubjectNQsubject_MessageArrived终止当前轮次NQsubjectNQsubject_MessageArrived整理课件25四、程序代码和文档整理课件261.服务器程序Rep_Monitor整理课件271.1 对变量和变量组进行定义整理课件28Option ExplicitDim Period As IntegerDim Arrangement(1 To 14,1 To 4,1 To 2)As Integer Arrangement(period,group,role)Dim Choice(1 To 14,1 To 8)As String cho

11、ice(period,id)Dim Random(1 To 8)As Single,Position(1 To 8)As IntegerDim Group(1 To 8)As Integer,Role(1 To 8)As IntegerDim FChoice(1 To 8)As String,SChoice(1 To 8)As StringDim FPayoff(1 To 8)As Integer,SPayoff(1 To 8)As Integer,_ TPayoff(1 To 8)As IntegerDim SumUse(1 To 8)As Integer,InfoUse(1 To 8)As

12、 IntegerDim CountSChoices As Integer整理课件291.2 窗体载入：初始化和实验参加者之间的配对 整理课件30Private Sub Form_Load()Period=0 frmMonitor.Top=(Screen.Height-frmMonitor.Height)/2 frmMonitor.Left=(Screen.Width-frmMonitor.Width)/2 Open D:Trust_Programresult1.txt For Output As#1 Write#1,Period,ID,Group,Role,FChoice,_ SChoice,

13、FPayoff,SPayoff,Total Payoff,Summary,Info Close#1 NQmonitor.OpenQueues End Sub整理课件311.2.1 随机配对整理课件32Private Sub Form_Load()Dim i As Integer,j As Integer,k As IntegerDim Differ as Boolean Period=0 frmMonitor.Top=(Screen.Height-frmMonitor.Height)/2 frmMonitor.Left=(Screen.Width-frmMonitor.Width)/2 Ope

14、n D:Trust_Programresult1.txt For Output As#1整理课件33Write#1,Period,ID,Group,Role,FChoice,_ SChoice,FPayoff,SPayoff,Total Payoff,Summary,Info Close#1 For k=1 To 14完成各回合的随机配对 For i=1 To 8生成8个互不相同的随机数Do Differ=True Randomize Random(i)=Rnd For j=1 to i 1If Random(j)=Random(i)ThenDiffer=FalseEnd If Next j

15、Loop Until Differ Next i Next k整理课件34Loop Until DifferNext i For i=1 To 8将8个参加者的识别号码随机排序 Position(i)=1 For j=1 To 8 If Random(j)Random(i)Then Position(i)=Position(i)+1 End If Next j Next i Next k整理课件35第1组第2组第3组第4组甲 Arrangement(k,1,1)=Position(1)Arrangement(k,2,1)=Position(3)乙 Arrangement(k,1,2)=Posi

16、tion(2)Arrangement(k,2,2)=Position(4)Arrangement(k,4,2)=Position(8)整理课件36Position(i)=Position(i)+1 End If Next j Next i For i=1 To 4按照排序后的识别号码分组按照排序后的识别号码分组 For j=1 To 2 Arrangement(k,i,j)=Position(2*(i-1)+j)Next j Next i Next k整理课件371.2.2 事前配对整理课件38 另一种实验中常见的配对方法是事先将配对方案存入一个数据文件，运行实验时再从数据文件中读取配对方案。

17、整理课件39Group 1Group 2Group 3Group 4Round 112345678Round 285671234Round 313572468Round 442861357Round 534781256Round 612347856Round 767851234整理课件40Close#1Open D:Trust_Programmatching8.txt For Input As#2 For i=1 To 14 period For j=1 To 2 role Input#2,Arrangement(i,1,j),Arrangement(i,2,j),_ Arrangement(

18、i,3,j),Arrangement(i,4,j)Next jNext iClose#2NQmonitor.OpenQueues整理课件411.3 使实验参加者进入实验状态整理课件42Private Sub cmdSubUp_Click()Dim i As Integer StartPeriod For i=1 To 8 NQmonitor.SendMessage 0,SubEnabled,i Next i cmdSubUp.Enabled=False End Sub整理课件431.4 轮次的开始整理课件44Private Sub StartPeriod()Dim i As Integer,j

19、 As Integer Dim Trustee As Integer Period=Period+1 For i=1 To 8 SumUse(i)=0 InfoUse(i)=0 Next i CountSChoices=0End Sub整理课件451.4.1 发送配对信息整理课件46在语句“CountSChoice=0”后面加入以下各行语句：分配各个实验参加者的角色分配各个实验参加者的角色 For i=1 To 4 group For j=1 To 2 role NQmonitor.SendMessage j,NewPeriod,_Arrangement(Period,i,j)Next jNe

20、xt i整理课件471.4.2 向各组中的甲（购买者）发送乙的信誉记录 整理课件48向各组中的甲发送乙的信誉记录向各组中的甲发送乙的信誉记录 For i=1 To 4 Trustee=Arrangement(Period,i,2)For j=1 To Period-1 If Choice(j,Trustee)=C Or Choice(j,Trustee)=D Then NQmonitor.SendMessage Choice(j,Trustee)&j,_RepInfo,Arrangement(Period,i,1)End If Next jNext i整理课件491.5 轮次的结束整理课件50

21、 子程序StopPeriod：各轮结束时，服务器要向各个实验参加者发送本轮的结果。在服务器的屏幕上，研究人员也需要看到本轮发生的情况。将本轮的实验结果记录到数据文件中。服务器要判定当前是否已经到了最后一轮，从而决定是否进行下一轮的实验。整理课件511.5.1 向各实验参加者发送实验结果 整理课件52Private Sub StopPeriod()Dim i As Integer,j As Integer Dim Partner As Integer For i=1 To 4 向所有参加者发送与其同组的人的决策 For j=1 To 2 Partner=Arrangement(Period,i,

22、3-j)NQmonitor.SendMessage Choice(Period,Partner),_ EndPeriod,Arrangement(Period,i,j)Next j Next iEnd Sub整理课件531.5.2 在服务器屏幕上显示本轮的实验结果整理课件54研究人员的屏幕信息 lblPeriod.Caption=Period For i=1 To 4 For j=1 To 2 Group(Arrangement(Period,i,j)=i lblGroup(Arrangement(Period,i,j).Caption=i Role(Arrangement(Period,i,

23、j)=j lblRole(Arrangement(Period,i,j).Caption=j Next j Next i For i=1 To 8 lblFChoice(i).Caption=FChoice(i)lblSChoice(i).Caption=SChoice(i)lblFPayoff(i).Caption=FPayoff(i)lblSPayoff(i).Caption=SPayoff(i)lblTPayoff(i).Caption=TPayoff(i)Next i整理课件551.5.3 将实验结果发送到数据文件 整理课件56将实验结果发送至数据文件 Open D:Trust_Pro

24、gramresult1.txt For Append As#3 For i=1 To 8 Write#3,Period,i,Group(i),Role(i),FChoice(i),SChoice(i),_ FPayoff(i),SPayoff(i),TPayoff(i),SumUse(i),InfoUse(i)Next i Close#3整理课件571.5.4 判定是否进入下一轮整理课件58判定实验是否进入下一轮 If Period 1 Then If Role=甲 Then lblYourChoice.Caption=你的决策是：lblYourChoice.Visible=True cmdA

25、.Visible=True cmdB.Visible=True lblInfo.Visible=True cmdSum.Visible=True cmdInfo.Visible=True cmdA.Enabled=True cmdB.Enabled=True cmdSum.Enabled=True cmdInfo.Enabled=True Else cmdA.Enabled=False cmdB.Enabled=False cmdSum.Enabled=False cmdInfo.Enabled=False lblYourChoice.Visible=False cmdA.Visible=Fa

26、lse cmdB.Visible=False lblInfo.Visible=False cmdSum.Visible=False cmdInfo.Visible=False End If End If Exit Sub End If整理课件1002.6.4 甲（购买者）的决策 整理课件101If MessageType=FChoice Then strContent=Message If strContent=A Then lblFChoice.Visible=True FChoice=A SChoice=-OwnPayoff=35 PartnerPayoff=35 TPayoff=TPay

27、off+OwnPayoff Else lblYourChoice.Caption=甲已选择B，你的决策是：lblYourChoice.Visible=True cmdA.Visible=True cmdB.Visible=True cmdA.Enabled=True cmdB.Enabled=True End If Exit Sub End If整理课件1022.6.5 轮次的结束整理课件103If MessageType=EndPeriod Then strContent=Message If strContent=C Then FChoice=B SChoice=C OwnPayoff=0

28、 PartnerPayoff=70 TPayoff=TPayoff+OwnPayoff End If If strContent=D Then FChoice=B SChoice=D OwnPayoff=50 PartnerPayoff=50 TPayoff=TPayoff+OwnPayoff End If txtHistory.Text=txtHistory.Text&Period&vbTab&_ Role&vbTab&FChoice&vbTab&SChoice&_ vbTab&OwnPayoff&vbTab&PartnerPayoff&vbTab _&vbTab&TPayoff&vbCrL

29、f Exit Sub End If整理课件1043.程序Rep_Monitor和Rep_Subject的运行 整理课件105 将Rep_Moitor和Rep_Subject编译连接成可执行文件。NQmonitor.mqserver属性设定 服务器上运行Rep_Monitor.exe，8台不同的计算机上运行Rep_Subject.exe。从Rep_Subject的对话框中输入服务器的IP地址，在各个Rep_Subject的txtID文本框中分别输入1至8（即8个实验参加者的识别号码），再点击“OK”确定。等实验参加者全部进入实验室并完成了实验说明的阅读后，点击服务器程序Rep_Monitor上的“Enable Subjects”，开始第1轮的实验。