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

东门之杨

在模型中定义了变量，想在程序运行结束时得到变量的均值，如何用vba进行编写？请高人指点一下

个个

{:3_46:}

东门之杨

回复 3# hlg1437


    你好，是这样的，这个变量在模型运行过程中的值是不断累加的，我想要模型运行几次后的均值，按你说的方法可以实现吗？

东门之杨

在ModelLogic_RunEndSimulation()或者ModelLogic_RunEndReplication()里面加入几句求平均的语句就行，前提 ...
hlg1437 发表于 2010-8-30 08:59

    是这样的，这个变量在模型运行的过程中值是不断累加的，我想要模型运行几次后的平均值，用你的说的方法可以实现吗？

东门之杨

在ModelLogic_RunEndSimulation()或者ModelLogic_RunEndReplication()里面加入几句求平均的语句就行，前提 ...
hlg1437 发表于 2010-8-30 08:59

    是这样的，这个变量在模型运行的过程中值是不断累加的，我想要模型运行几次后的平均值，用你的说的方法可以实现吗？

狼刃

没有告诉你吗   得记录，能记录就能得到值的
或者直接可以用readwrite模块把值写到文件里的

AlexSYSU

回复 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