【脑洞大开】如何快速获取暂存区各类型临时实体数量

zorsite · 发表于 2016-4-19 12:19:49

在某一时点（时点自己决定）想要获取暂存区中临时实体有多少种类型，以及每种类型的临时实体有多少个。
如何编写代码最简洁、占用系统资源最少、逻辑最清晰？
请回复的时候附上主要代码。
附件基于Flexsim7.7.4。

慧娴亚伦 · 发表于 2016-4-19 14:21:49

响应加老师号召，完成模型。
不过我一向不是极简主义者，因此可能提供的模型与“最简洁，所占资源最少”无缘。
我的思路主要集中在，用一个全局表来显示，为了使得能够获取不同类型的变动情况，还特别添加一个dashboard来表示。
主要代码在暂存区的进入触发，重置触发里面只是在重置中修正了一下全局表的大小。

int type = getitemtype(item);
0 J" E m0 ?) U& C! `( X' M
4 C) k) T- t. V" k; E9 {
//如果已存在该类型，则对应单元格加1
. Z5 x( d/ y; W- _1 U
for(int i=1;i<=gettablerows("GlobalTable1");i++)$ i' e. {- K1 j. j/ s4 W
{) N, @9 }" B0 x9 D, a0 `5 _0 \
if(gettablenum("GlobalTable1",1,2) == 0)$ f0 k p+ E6 T- f, A% X
{
$ `$ p) {6 c- M8 f& k- g3 Q2 y6 l
settablenum("GlobalTable1",1,2,type);
+ Z. j3 y- u* o: N5 R
settablenum("GlobalTable1",1,1,1);$ P. N* z' ~& {% s; {, [8 x q7 f U
settableheader("GlobalTable1",1,1,concat("type",numtostring(type)));' D5 ]2 z: o! {& m( w% F
return 0;
. I: x6 K/ C1 G9 l" f; o* p
}! H" t$ Q' N* y) d+ _- r# F
+ X+ r1 B* d0 E3 S
if(type == gettablenum("GlobalTable1",i,2))
' u! y& @# a! n2 C8 G
{5 L+ c; O& q0 Y: h9 W: T
inc(gettablecell("GlobalTable1", i, 1),1);3 w/ Y# S6 W2 b3 e* T
return 0;
+ ?% Q0 x$ w3 n% Y7 Y$ p. g
}
# M9 [* G+ j, h$ Z3 _/ D
}
E$ c! s# `- }5 ?3 d' r
4 [/ Y# ^; j$ |( b8 V. w5 N
9 ~' ]! z/ m* @2 \" V& E0 W9 ]
//如果是一个新的类型则多添加一行
/ l' m9 {# O; H2 B5 J- d
addtablerow(reftable("GlobalTable1"),1,DATATYPE_NUMBER);# L+ H/ W1 v! x7 A" P1 P
settableheader("GlobalTable1",1,1,concat("type",numtostring(type)));% o: w2 l& s( _( J7 u7 o% d
settablenum("GlobalTable1",1,2,type);
7 }2 P/ B( A; ~ W: O; v
settablenum("GlobalTable1",1,1,1);% ]) e% Z% [. |* w% c6 F+ j1 S

复制代码

zorsite · 发表于 2016-4-19 17:13:25

本帖最后由 zorsite 于 2016-4-20 16:18 编辑

谢谢陈老师捧场~~

我的代码写在模型的停止运行中。谢谢FFFrenk的提醒，临时实体的类型并不总是整数，所以以下代码在使用上有局限性。

treenode queue=node("Queue3", model());
9 P1 Q, }2 d5 V
3 L7 g! o, u) N1 }* G; {; ?
settablesize("统计结果",0,0);//清空全局表
) R0 }+ P: e" E6 r5 ]2 v
//先把数据写入数组
/ G I: ^# R- T6 r" j" \! }; M. J" d
int cont=content(queue);//获取暂存区中临时实体总数
/ a0 c: g! ]" v; V$ Z/ Q! l, T+ |
intarray array=makearray(cont);//创建一个数组
2 K9 j0 I }% b( d3 F x: y
for (int i=1;i<=cont;i++)
) f. Y9 [- o G/ d Y4 l
{ ?# p! L7 a0 }9 V" p7 T) d
int type=getitemtype(rank(queue,i));
( m& I( \' z) x2 u5 \5 Y) Q
array[type]+=1;//计算每种临时实体的数量! q" J1 g9 P2 `
}" J7 r/ j# J( y1 f7 N7 q9 C$ M
//再把数据写入全局表
& K3 \* T1 b5 ~$ r4 c* V! e
int row=1;7 l- T! n) Z1 u8 Z8 t
for (int i=1;i<=cont;i++)3 ], ]/ N0 y- d) Z
{ if (array)//如果某种临时实体的数量不为零
; r1 t, N7 Z6 |4 R( A" _
{( z Q/ d% p4 q' c% E+ D ^/ h
settablesize("统计结果",gettablerows("统计结果")+1,2);//新增一行
3 K5 Q- I( u; ?9 Z; c# Y
settablenum("统计结果",row,1,i);//记录其类型) c `8 }/ }, T0 f0 t- n+ A' Q6 O
settablenum("统计结果",row,2,array); //记录其数量* E, s6 ^1 j' C) u
row+=1;
1 R1 o( G x! b( {5 r6 i% A, E
}
. u) a/ J2 T5 U/ l
}
# |8 ]9 p" ]3 v$ Z
settableheader("统计结果",2,1,"类型");
6 r0 w" L& d; y. p5 M4 c/ D
settableheader("统计结果",2,2,"数量");

复制代码

FFFrenk · 发表于 2016-4-19 20:25:06

谢谢陈老师捧场~~( K( R& M0 W8 B8 I8 \
我的代码写在模型的停止运行中。treenode queue=node("Queue3", model());+ J/ C5 y: T3 p! r; y+ c9 L" P

! V/ m6 n7 Z! e, Z& Usettablesize("统计结果",0,0);//清空全局表
- M, n) _- e& w( C# I! o- P4 @//可以没有直接增加全局表的命令……! G1 K9 t; @, g5 X4 t- C8 w2 _
//先把数据写入数组
. a! s+ m* i, H' H7 z1 x3 l, Y ...0 C4 \( {! c7 s/ I6 y- K9 H
zorsite 发表于 2016-4-19 17:13

看了一下加老师代码，有个小问题....
itemtype有可能是多精度型（包括小数、负数）的，并不都是正整数....

FFFrenk · 发表于 2016-4-19 21:42:53

思路是：将 type 转换成 str 作为某个东西的引用，这样就省去了一轮的 Loop ；
具体来说，是用 bundle 中 getbundlefieldnr 可以传递引用参数来实现。
恰好，7.7版本开始， FlexSim 可以使用 bundle 存储表格数据，不仅带来了更加轻便的数据处理，也带来了很多新的特性。（赶快升级呀！）

以下是实例：
创建一个名为"GlobalTable1"的全局表，并改成 Use Bundle。

之后就是在需要统计的时间点或者事件处，运行如下代码：

7 i1 w9 E0 o5 @! p
treenode queue=node("Queue3", model());
2 A3 V, ?2 w& N+ H1 ^0 F
) n/ Z( z4 F: u2 @
treenode targetTable=reftable("GlobalTable1");/ Z) j5 K! ^1 t# q/ C0 q8 E
settablesize(targetTable,1,1);6 n$ l6 l: J% K/ @
forobjecttreeunder(queue)
6 e5 a$ A& u5 ~4 S, J
{
' {; g) N: ?# w% Y" L0 f& B! L
string typeStr=numtostring(getitemtype(a),0,5);0 z S/ h4 A/ `% N: y0 b, A0 a7 a
int col=getbundlefieldnr(targetTable, typeStr)+1;+ |: K/ C$ Y5 r1 a& S! @9 H' K/ M
if (col); ^ _9 E* f2 G
{
# V5 H) l. W7 Q) ~
settablenum(targetTable,1,col,gettablenum(targetTable,1,col)+1);
' L' @- v2 L( Z9 q: }( k
}
. ?* e4 t0 a& ?( g1 b
else; I0 x5 f2 m# f. A# K
{0 D9 ^8 E8 [2 o6 m s9 z8 I! `
addtablecol(targetTable);0 g* O J7 U& ?9 U/ |2 E$ F
int nrCols=gettablecols(targetTable);$ ], p8 @6 u: H; s
settableheader(targetTable,2,nrCols,typeStr);
* {4 s' |6 r' i% R Z& \! e
settablenum(targetTable,1,nrCols,1);
- e4 w3 u) C, A9 ^$ b) O/ Z
}
9 ^( x( i8 e3 u9 p) x M4 w2 \
}# G% Z) e3 d1 p

复制代码

ps：有个小缺陷，全局表第一行第一列的内容无法加入统计。

zorsite · 发表于 2016-4-20 16:10:52

flexsim的数组功能很弱，我一直想要找一种更为灵活的工具来实现这一目的。
FFFrenk给了我新的思路，用bundle data。
相比数组，bundle更灵活，但是不能放在内存中（我不知道如何放入），只能保存在全局表中。
一下是我的代码：

treenode queue=node("Queue3", model());
. {1 I( m6 G+ u, T5 b9 F( [) a
treenode bundle=reftable("bundle");
% Q$ h8 W7 G( Z+ f0 d& U- `5 S: I
//创建两张全局表：bundle和统计结果。bundle全局表要勾选上Use Bundle。/ G; H0 b, `8 ?% W, l9 k1 L$ w
clearbundle(bundle);//清除所有数据( x( w, b9 ^: d5 t0 T* M1 _
addbundlefield(bundle,"type",1);( T5 G8 x/ | [% @9 H: q, L* n" c
addbundlefield(bundle,"qnt",1);//新增字段
/ @6 _' i/ d9 |) @+ p
forobjecttreeunder(queue)
' E0 Y L( ~9 G( L# g: j& E
addbundleentry(bundle,getitemtype(a),1);//把每一个临时实体的类型写入bundle表
* F# f# C: L4 B% ^7 B5 u6 c
query("select type, sum(qnt) as quantity from $1 group by type order by type",bundle);//按类型分组统计数量
4 l( Q3 Z- I0 ~
//如果全局表勾选了Use Bundle，只能使用$来传递表名，不能使用 query("select * form bundle");
* H& j/ w% E' Y9 o' n5 A
//使用as语句指定别名时，别名不能和原来的名字相同：不能使用 sum(quantity) as quantity
9 X: z& I: T5 ?% P% g8 R
dumpquery(reftable("统计结果"));//输出到统计结果表

复制代码

xiaoling1569 · 发表于 2016-4-25 20:03:09

2# 慧娴亚伦

xiaoling1569 · 发表于 2016-4-25 20:03:43

2# 慧娴亚伦
非常感谢。

FFFrenk · 发表于 2016-5-29 17:41:11

看到加老师使用了 SQL这种「作弊」的手段，我也小试牛刀，代码如下：

' y% B, u8 Z' \8 r- O+ r
treenode Queue=node("Queue3", model());//the queue
$ [& C9 }8 `; ^
query("select $2 as Type , count(*) as TypeNum from $1 group by Type",
4 s Y7 H9 |4 j
/*$1*/Queue," c* A, B/ @/ H( I5 `& x3 ]
/*$2*/getitemtype($iter(1)));
" G9 Q+ s0 X# J$ d h% J" P
dumpquery(reftable("ResultTable"), 1);
) h' B E0 c& A" z

复制代码

lulu-luka · 发表于 2016-12-1 09:59:56

1# zorsite
都是大神级别的老师啊~我想实现一个实时的物料拉动，暂存区的实体数量一旦达到某个设定值就会触发发生器批量生产输出，如何用代码实现啊，求助求助

【脑洞大开】如何快速获取暂存区各类型临时实体数量

本帖子中包含更多资源

本帖子中包含更多资源

评分

评分

评分

浏览过的版块