Dim arrStim(140), Typecount(3),arrtmp(28) As Integer Dim i, k, flag As Integer Dim bools As Boolean For i = 1 To UBound(arrtmp) If i<21 Then k=1 arrtmp(i)=k Else If i<25 Then k=2 arrtmp(i)=k Else k=3 arrtmp(i)=k End If End If Next For i=1 To 5 Do bools=True RandomizeArray arrtmp,1,UBound(arrtmp) If i<>1 And i<>5 Then If arrtmp(1)=2 Or arrtmp(1)=3 Then If arrtmp(1)=flag Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If ElseIf i=1 Then If arrtmp(1)=2 Or arrtmp(1)=3 Or arrtmp(2)=2 Or arrtmp(2)=3 Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If ElseIf i=5 Then If arrtmp(27)=2 Or arrtmp(27)=3 Or arrtmp(28)=2 Or arrtmp(28)=3 Then bools=False ElseIf arrtmp(1)=2 Or arrtmp(1)=3 Then If arrtmp(1)=flag Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If End If Loop Until bools=True For k=1 To 28 arrStim((i-1)*28+k)=arrtmp(k) Next flag=arrtmp(28) Next For i=1 To UBound(arrStim) TrialList.SetNested CStr(i), "list" & arrStim(i) Next TrialList.Reset 要求:有三种实验材料,A材料100个、BC材料各20个。BC不能呈现在首尾的前后两个刺激上。BC同种材料不能重复呈现,BC可以挨着呈现。对A材料不反应,反应位错;对B材料按“f”键进行反应,C材料按“j”键进行反应。实验过程为:注视点800毫秒→刺激界面(无限时间) →反馈界面。设计要求: 1)请用“化整为零+随机打乱判断”法进行设计。 对以上编码进行分析后改成一个新的编码

时间: 2023-12-12 21:04:55 浏览: 77
PDF

一个ASP中的数组

Dim arrStim(140), Typecount(3), arrtmp(28) As Integer Dim i, k, flag As Integer Dim bools As Boolean '定义材料数量 Typecount(1) = 100 'A材料100个 Typecount(2) = 20 'B材料20个 Typecount(3) = 20 'C材料20个 '生成材料列表 For i = 1 To Typecount(1) arrtmp(i) = 1 'A材料 Next For i = Typecount(1) + 1 To Typecount(1) + Typecount(2) + Typecount(3) If i = Typecount(1) + 1 Then '第一个BC材料 Do While True arrtmp(i) = Int(Rnd() * 2) + 2 '随机生成2或3 If arrtmp(i) = 2 Then flag = 2 '标记上一个材料是BC中的哪一个 Exit Do ElseIf arrtmp(i) = 3 Then flag = 3 Exit Do End If Loop Else '第二个及以后的BC材料 Do While True arrtmp(i) = Int(Rnd() * 2) + 2 If arrtmp(i) = 2 Then If flag = 2 Then '如果上一个材料是B,重新生成 Continue Do Else '否则标记为B flag = 2 Exit Do End If ElseIf arrtmp(i) = 3 Then If flag = 3 Then '如果上一个材料是C,重新生成 Continue Do Else '否则标记为C flag = 3 Exit Do End If End If Loop End If Next '随机打乱刺激顺序 RandomizeArray arrtmp, 1, UBound(arrtmp) '将刺激列表按要求排列 For i = 1 To UBound(arrStim) Step 28 '首先判断BC不能呈现在首尾的前后两个刺激上 If i = 1 Then '第一个刺激 If arrtmp(i + 1) = 2 Or arrtmp(i + 1) = 3 Then '如果第二个刺激是BC,将BC放到后面 For k = i + 2 To i + 27 If arrtmp(k) = 2 Or arrtmp(k) = 3 Then arrtmp(i) = arrtmp(k) arrtmp(k) = 1 '将BC换成A Exit For End If Next End If ElseIf i = UBound(arrStim) - 27 Then '最后一个刺激 If arrtmp(i - 1) = 2 Or arrtmp(i - 1) = 3 Then '如果倒数第二个刺激是BC,将BC放到前面 For k = i - 2 To i - 27 Step -1 If arrtmp(k) = 2 Or arrtmp(k) = 3 Then arrtmp(i) = arrtmp(k) arrtmp(k) = 1 Exit For End If Next End If Else '中间刺激 If arrtmp(i - 1) = 2 Or arrtmp(i - 1) = 3 Or arrtmp(i + 1) = 2 Or arrtmp(i + 1) = 3 Then '如果前一个或后一个刺激是BC,将BC放到后面 For k = i + 2 To i + 27 If arrtmp(k) = 2 Or arrtmp(k) = 3 Then arrtmp(i) = arrtmp(k) arrtmp(k) = 1 Exit For End If Next End If End If '然后判断BC同种材料不能重复呈现 For k = i To i + 27 If arrtmp(k) = 2 Then '当前是B If k < i + 27 Then '不是最后一个 If arrtmp(k + 1) = 2 Then '后一个也是B '将后面的第一个C换成A For j = k + 1 To i + 27 If arrtmp(j) = 3 Then arrtmp(j) = 1 Exit For End If Next End If End If ElseIf arrtmp(k) = 3 Then '当前是C If k > i Then '不是第一个 If arrtmp(k - 1) = 3 Then '前一个也是C '将前面的第一个B换成A For j = k - 1 To i Step -1 If arrtmp(j) = 2 Then arrtmp(j) = 1 Exit For End If Next End If End If End If Next '将刺激列表加入TrialList For k = 1 To 28 arrStim(i + k - 1) = arrtmp(i + k - 1) TrialList.SetNested CStr(i + k - 1), "list" & arrStim(i + k - 1) Next Next TrialList.Reset
阅读全文

相关推荐

Dim arrStim(140), Typecount(3),arrtmp(28) As Integer Dim i, k, flag As Integer Dim bools As Boolean For i = 1 To UBound(arrtmp) If i<21 Then k=1 arrtmp(i)=k Else If i<25 Then k=2 arrtmp(i)=k Else k=3 arrtmp(i)=k End If End If Next For i=1 To 5 Do bools=True RandomizeArray arrtmp,1,UBound(arrtmp) If i<>1 And i<>5 Then If arrtmp(1)=2 Or arrtmp(1)=3 Then If arrtmp(1)=flag Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If ElseIf i=1 Then If arrtmp(1)=2 Or arrtmp(1)=3 Or arrtmp(2)=2 Or arrtmp(2)=3 Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If ElseIf i=5 Then If arrtmp(27)=2 Or arrtmp(27)=3 Or arrtmp(28)=2 Or arrtmp(28)=3 Then bools=False ElseIf arrtmp(1)=2 Or arrtmp(1)=3 Then If arrtmp(1)=flag Then bools=False Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If Else For k=1 To 27 If arrtmp(k)=2 Or arrtmp(k)=3 Then If arrtmp(k)=arrtmp(k+1) Then bools=False Exit For End If End If Next End If End If Loop Until bools=True For k=1 To 28 arrStim((i-1)*28+k)=arrtmp(k) Next flag=arrtmp(28) Next For i=1 To UBound(arrStim) TrialList.SetNested CStr(i), "list" & arrStim(i) Next TrialList.Reset 要求:有三种实验材料,A材料100个、BC材料各20个。BC不能呈现在首尾的前后两个刺激上。BC同种材料不能重复呈现,BC可以挨着呈现。对A材料不反应,反应位错;对B材料按“f”键进行反应,C材料按“j”键进行反应。实验过程为:注视点800毫秒→刺激界面(无限时间) →反馈界面。设计要求: 1)请用“化整为零+随机打乱判断”法进行设计。 对以上编码进行修改

最新推荐

recommend-type

基于Java的家庭理财系统设计与开发-金融管理-家庭财产管理-实用性强

内容概要:文章探讨了互联网时代的背景下开发一个实用的家庭理财系统的重要性。文中分析了国内外家庭理财的现状及存在的问题,阐述了开发此系统的目的——对家庭财产进行一体化管理,提供统计、预测功能。系统涵盖了家庭成员管理、用户认证管理、账单管理等六大功能模块,能够满足用户多方面查询及统计需求,并保证数据的安全性与完整性。设计中运用了先进的技术栈如SSM框架(Spring、SpringMVC、Mybatis),并采用MVC设计模式确保软件结构合理高效。 适用人群:对于希望科学地管理和规划个人或家庭财务的普通民众;从事财务管理相关专业的学生;有兴趣于家政学、经济学等领域研究的专业人士。 使用场景及目标:适用于日常家庭财务管理的各个场景,帮助用户更好地了解自己的消费习惯和资金状况;为目标客户提供一套稳定可靠的解决方案,助力家庭财富增长。 其他说明:文章还包括系统设计的具体方法与技术选型的理由,以及项目实施过程中的难点讨论。对于开发者而言,不仅提供了详尽的技术指南,还强调了用户体验的重要性。
recommend-type

弹性盒子Flexbox布局.docx

弹性盒子Flexbox布局.docx
recommend-type

网络财务系统 SSM毕业设计 附带论文.zip

网络财务系统 SSM毕业设计 附带论文 启动教程:https://www.bilibili.com/video/BV1GK1iYyE2B
recommend-type

联想电脑的bios设置

联想电脑的bios设置、图文都有
recommend-type

1_教务处关于云南师范大学2024年大学生科研训练基金项目立项申报工作的通知 (1).zip

1_教务处关于云南师范大学2024年大学生科研训练基金项目立项申报工作的通知 (1).zip
recommend-type

构建基于Django和Stripe的SaaS应用教程

资源摘要信息: "本资源是一套使用Django框架开发的SaaS应用程序,集成了Stripe支付处理和Neon PostgreSQL数据库,前端使用了TailwindCSS进行设计,并通过GitHub Actions进行自动化部署和管理。" 知识点概述: 1. Django框架: Django是一个高级的Python Web框架,它鼓励快速开发和干净、实用的设计。它是一个开源的项目,由经验丰富的开发者社区维护,遵循“不要重复自己”(DRY)的原则。Django自带了一个ORM(对象关系映射),可以让你使用Python编写数据库查询,而无需编写SQL代码。 2. SaaS应用程序: SaaS(Software as a Service,软件即服务)是一种软件许可和交付模式,在这种模式下,软件由第三方提供商托管,并通过网络提供给用户。用户无需将软件安装在本地电脑上,可以直接通过网络访问并使用这些软件服务。 3. Stripe支付处理: Stripe是一个全面的支付平台,允许企业和个人在线接收支付。它提供了一套全面的API,允许开发者集成支付处理功能。Stripe处理包括信用卡支付、ACH转账、Apple Pay和各种其他本地支付方式。 4. Neon PostgreSQL: Neon是一个云原生的PostgreSQL服务,它提供了数据库即服务(DBaaS)的解决方案。Neon使得部署和管理PostgreSQL数据库变得更加容易和灵活。它支持高可用性配置,并提供了自动故障转移和数据备份。 5. TailwindCSS: TailwindCSS是一个实用工具优先的CSS框架,它旨在帮助开发者快速构建可定制的用户界面。它不是一个传统意义上的设计框架,而是一套工具类,允许开发者组合和自定义界面组件而不限制设计。 6. GitHub Actions: GitHub Actions是GitHub推出的一项功能,用于自动化软件开发工作流程。开发者可以在代码仓库中设置工作流程,GitHub将根据代码仓库中的事件(如推送、拉取请求等)自动执行这些工作流程。这使得持续集成和持续部署(CI/CD)变得简单而高效。 7. PostgreSQL: PostgreSQL是一个对象关系数据库管理系统(ORDBMS),它使用SQL作为查询语言。它是开源软件,可以在多种操作系统上运行。PostgreSQL以支持复杂查询、外键、触发器、视图和事务完整性等特性而著称。 8. Git: Git是一个开源的分布式版本控制系统,用于敏捷高效地处理任何或小或大的项目。Git由Linus Torvalds创建,旨在快速高效地处理从小型到大型项目的所有内容。Git是Django项目管理的基石,用于代码版本控制和协作开发。 通过上述知识点的结合,我们可以构建出一个具备现代Web应用程序所需所有关键特性的SaaS应用程序。Django作为后端框架负责处理业务逻辑和数据库交互,而Neon PostgreSQL提供稳定且易于管理的数据库服务。Stripe集成允许处理多种支付方式,使用户能够安全地进行交易。前端使用TailwindCSS进行快速设计,同时GitHub Actions帮助自动化部署流程,确保每次代码更新都能够顺利且快速地部署到生产环境。整体来看,这套资源涵盖了从前端到后端,再到部署和支付处理的完整链条,是构建现代SaaS应用的一套完整解决方案。
recommend-type

管理建模和仿真的文件

管理Boualem Benatallah引用此版本:布阿利姆·贝纳塔拉。管理建模和仿真。约瑟夫-傅立叶大学-格勒诺布尔第一大学,1996年。法语。NNT:电话:00345357HAL ID:电话:00345357https://theses.hal.science/tel-003453572008年12月9日提交HAL是一个多学科的开放存取档案馆,用于存放和传播科学研究论文,无论它们是否被公开。论文可以来自法国或国外的教学和研究机构,也可以来自公共或私人研究中心。L’archive ouverte pluridisciplinaire
recommend-type

R语言数据处理与GoogleVIS集成:一步步教你绘图

![R语言数据处理与GoogleVIS集成:一步步教你绘图](https://media.geeksforgeeks.org/wp-content/uploads/20200415005945/var2.png) # 1. R语言数据处理基础 在数据分析领域,R语言凭借其强大的统计分析能力和灵活的数据处理功能成为了数据科学家的首选工具。本章将探讨R语言的基本数据处理流程,为后续章节中利用R语言与GoogleVIS集成进行复杂的数据可视化打下坚实的基础。 ## 1.1 R语言概述 R语言是一种开源的编程语言,主要用于统计计算和图形表示。它以数据挖掘和分析为核心,拥有庞大的社区支持和丰富的第
recommend-type

如何使用Matlab实现PSO优化SVM进行多输出回归预测?请提供基本流程和关键步骤。

在研究机器学习和数据预测领域时,掌握如何利用Matlab实现PSO优化SVM算法进行多输出回归预测,是一个非常实用的技能。为了帮助你更好地掌握这一过程,我们推荐资源《PSO-SVM多输出回归预测与Matlab代码实现》。通过学习此资源,你可以了解到如何使用粒子群算法(PSO)来优化支持向量机(SVM)的参数,以便进行多输入多输出的回归预测。 参考资源链接:[PSO-SVM多输出回归预测与Matlab代码实现](https://wenku.csdn.net/doc/3i8iv7nbuw?spm=1055.2569.3001.10343) 首先,你需要安装Matlab环境,并熟悉其基本操作。接
recommend-type

Symfony2框架打造的RESTful问答系统icare-server

资源摘要信息:"icare-server是一个基于Symfony2框架开发的RESTful问答系统。Symfony2是一个使用PHP语言编写的开源框架,遵循MVC(模型-视图-控制器)设计模式。本项目完成于2014年11月18日,标志着其开发周期的结束以及初步的稳定性和可用性。" Symfony2框架是一个成熟的PHP开发平台,它遵循最佳实践,提供了一套完整的工具和组件,用于构建可靠的、可维护的、可扩展的Web应用程序。Symfony2因其灵活性和可扩展性,成为了开发大型应用程序的首选框架之一。 RESTful API( Representational State Transfer的缩写,即表现层状态转换)是一种软件架构风格,用于构建网络应用程序。这种风格的API适用于资源的表示,符合HTTP协议的方法(GET, POST, PUT, DELETE等),并且能够被多种客户端所使用,包括Web浏览器、移动设备以及桌面应用程序。 在本项目中,icare-server作为一个问答系统,它可能具备以下功能: 1. 用户认证和授权:系统可能支持通过OAuth、JWT(JSON Web Tokens)或其他安全机制来进行用户登录和权限验证。 2. 问题的提交与管理:用户可以提交问题,其他用户或者系统管理员可以对问题进行管理,比如标记、编辑、删除等。 3. 回答的提交与管理:用户可以对问题进行回答,回答可以被其他用户投票、评论或者标记为最佳答案。 4. 分类和搜索:问题和答案可能按类别进行组织,并提供搜索功能,以便用户可以快速找到他们感兴趣的问题。 5. RESTful API接口:系统提供RESTful API,便于开发者可以通过标准的HTTP请求与问答系统进行交互,实现数据的读取、创建、更新和删除操作。 Symfony2框架对于RESTful API的开发提供了许多内置支持,例如: - 路由(Routing):Symfony2的路由系统允许开发者定义URL模式,并将它们映射到控制器操作上。 - 请求/响应对象:处理HTTP请求和响应流,为开发RESTful服务提供标准的方法。 - 验证组件:可以用来验证传入请求的数据,并确保数据的完整性和正确性。 - 单元测试:Symfony2鼓励使用PHPUnit进行单元测试,确保RESTful服务的稳定性和可靠性。 对于使用PHP语言的开发者来说,icare-server项目的完成和开源意味着他们可以利用Symfony2框架的优势,快速构建一个功能完备的问答系统。通过学习icare-server项目的代码和文档,开发者可以更好地掌握如何构建RESTful API,并进一步提升自身在Web开发领域的专业技能。同时,该项目作为一个开源项目,其代码结构、设计模式和实现细节等都可以作为学习和实践的最佳范例。 由于icare-server项目完成于2014年,使用的技术栈可能不是最新的,因此在考虑实际应用时,开发者可能需要根据当前的技术趋势和安全要求进行相应的升级和优化。例如,PHP的版本更新可能带来新的语言特性和改进的安全措施,而Symfony2框架本身也在不断地发布新版本和更新补丁,因此维护一个长期稳定的问答系统需要开发者对技术保持持续的关注和学习。