上升的气球c语言程序设计教程课后答案,E-prime编写仿真气球冒险任务(BART)

本文提供了一个使用E-prime编写仿真气球冒险任务(BART)的教程。教程介绍了如何设置实验流程,包括气球吹大、收益计算和气球爆炸风险,以及如何在E-prime中创建关键的程序逻辑。提供了关键步骤和代码示例,帮助读者理解并实现BART实验程序。
摘要由CSDN通过智能技术生成

ff7c5605f433?utm_campaign=maleskine

ff7c5605f433?utm_campaign=maleskine

前一段时间有很多朋友咨询仿真气球爆破范式该如何做,今天终于有时间能够整理成教程发出来,希望能够对大家有所帮助。

本教程是基于官方的示例文件,网友的实例分享和Ryan自己的整理撰写,应该能够满足大家制作BART程序的需要了。

BART范式相信大家应该不是特别陌生,但还是简单介绍一下吧。在该任务中,屏幕上会呈现一个仿真气球,被试需要按键逐渐吹大这个气球,每一次吹气球都会有一定的收益,同时也有气球爆破的风险,气球越大,可能获得的收益越大,但气球被吹爆的风险也越高,如果气球被吹爆,该气球的收益就为零或负值。被试可以选择随时停止吹气球来接受目前的收益。该任务需要被试连续地决策是选择继续冒险还是停止冒险以获得当前的收益。  接下来我们就看看在E-prime中一个基础的BART范式需要如何进行设置。

帖子里仅列出关键步骤和语句,完整示例文件请戳文末“阅读原文”下载~

首先需要在主时间轴上放好开始和结束,实验的主要部分list,以及一个初始化变量的InLine:

  • 1
    点赞
  • 4
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
BART(Balloon Analog Risk Task)是一种心理学验,旨在测试参与者的冒险倾向和风险偏好。参与者需要通过点击气球来获得虚拟的奖励点数,但是每次点击都有一定的概率让气球爆炸,导致失去所有的奖励点数。以下是一个简单的 E-Prime 版本的 BART 实验的代码: ``` ' E-Prime BART Experiment ' Global Variables Dim BalloonCount, PumpCount, TotalPoints ' Set Up Experiment Sub ExperimentSetUp() BalloonCount = 0 PumpCount = 0 TotalPoints = 0 End Sub ' Run Trial Sub TrialProc() ' Clear Screen ClearScreen ' Display Balloon DisplayBalloon(BalloonCount) ' Get Response Dim Response Response = GetResponse ' Update Balloon and Points If Response = "Pump" Then PumpCount = PumpCount + 1 If PumpCount = 4 Then ' Balloon Explodes BalloonCount = 0 PumpCount = 0 TotalPoints = 0 Else ' Balloon Expands BalloonCount = BalloonCount + 1 End If Else ' Cash Out TotalPoints = TotalPoints + BalloonCount BalloonCount = 0 PumpCount = 0 End If ' Wait 500ms Wait 500 End Sub ' Display Balloon Sub DisplayBalloon(BalloonCount) ' Draw Balloon DrawOval 100, 100, 50 + BalloonCount * 10, 50 + BalloonCount * 10, "Red", True ' Draw String DrawString "Pump Balloon or Cash Out", 200, 200, 20, "Black" End Sub ' Get Response Function GetResponse() ' Wait for Response Dim Response While Response <> "Pump" And Response <> "Cash Out" Response = WaitForInput("Pump", "Cash Out") Wend ' Return Response Return Response End Function ' Main Experiment Loop Sub Main() ' Set Up Experiment ExperimentSetUp ' Loop Trials For i = 1 To 20 TrialProc Next ' End Experiment EndExperiment End Sub ' End Experiment Sub EndExperiment() ' Clear Screen ClearScreen ' Display Total Points DrawString "Total Points: " & TotalPoints, 200, 200, 20, "Black" ' Wait for Key Press WaitForKeypress ' Quit Experiment QuitExperiment End Sub ``` 该代码模拟了一个气球冒险任务BART)实验,参与者需要在每个试验中点击气球以获得奖励点数。每次点击都会使气球膨胀一点,但是每个气球都有一定的概率会爆炸,导致失去所有的奖励点数。参与者可以随时选择“Cash Out”以结束当前试验并将点数转换为奖励,或者继续“Pump”气球以获取更多的点数。试验结束后,参与者将获得所有试验的总点数。
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值