设为首页收藏本站

最大的系统仿真与系统优化公益交流社区

 找回密码
 注册

QQ登录

只需一步,快速开始

查看: 3848|回复: 6

Arena怎么样用VBA自动输出变量的平均值

  [复制链接]
发表于 2010-8-30 07:54:38 | 显示全部楼层 |阅读模式
在模型中定义了变量,想在程序运行结束时得到变量的均值,如何用vba进行编写?请高人指点一下
发表于 2010-8-30 12:37:24 | 显示全部楼层
{:3_46:}
 楼主| 发表于 2010-9-1 08:08:33 | 显示全部楼层
回复 3# hlg1437


    你好,是这样的,这个变量在模型运行过程中的值是不断累加的,我想要模型运行几次后的均值,按你说的方法可以实现吗?
 楼主| 发表于 2010-9-1 08:09:31 | 显示全部楼层
在ModelLogic_RunEndSimulation()或者ModelLogic_RunEndReplication()里面加入几句求平均的语句就行,前提 ...
hlg1437 发表于 2010-8-30 08:59



    是这样的,这个变量在模型运行的过程中值是不断累加的,我想要模型运行几次后的平均值,用你的说的方法可以实现吗?
 楼主| 发表于 2010-9-1 09:16:51 | 显示全部楼层
在ModelLogic_RunEndSimulation()或者ModelLogic_RunEndReplication()里面加入几句求平均的语句就行,前提 ...
hlg1437 发表于 2010-8-30 08:59



    是这样的,这个变量在模型运行的过程中值是不断累加的,我想要模型运行几次后的平均值,用你的说的方法可以实现吗?
发表于 2010-9-1 20:38:46 | 显示全部楼层
没有告诉你吗   得记录,能记录就能得到值的
或者直接可以用readwrite模块把值写到文件里的
发表于 2010-12-3 22:37:02 | 显示全部楼层
回复 2# hlg1437

大牛,请问如何用VBA代码定义station set和distance呢?我急做一个仓库的仿真,库位太多,不宜手动建立,只有用代码。我用宏录了一点,修改成以下的,但总是报错,也不知道为什么?
Private Sub ModelLogic_RunBeginSimulation()
Dim m As Model
Dim ASRS As Module
Dim myDis As Module

Set m = ThisDocument.Model
Set ASRS = m.Modules.Create("AdvancedTransfer", "Station", 1000, 100)
ASRS.Data("Name") = "ASRS"
ASRS.Data("Station Type") = "Set"
ASRS.Data("StAtt") = "index"
ASRS.Data("MemberStation(1)") = "location 1"
ASRS.Data("MemberStation(2)") = "location 2"
myDis = m.Modules.Create("AdvancedTransfer", "Distance", 0, 0)
myDis.Data("BegStation(1)") = "location 1"
myDis.Data("EndStation(1)") = "location 2"
myDis.Data("Distance(1)") = "2"
End Sub
您需要登录后才可以回帖 登录 | 注册

本版积分规则

QQ|Archiver|手机版|SimulWay 道于仿真   

GMT+8, 2024-11-1 06:45 , Processed in 0.018064 second(s), 15 queries .

Powered by Discuz! X3.4 Licensed

© 2001-2017 Comsenz Inc.

快速回复 返回顶部 返回列表