|
本帖最后由 zorsite 于 2016-5-8 16:19 编辑 / l8 K1 _5 O- g. I1 D( u: _
u( U! v. E l4 L, q
估计这将是一篇冷贴,高手不屑看,新手看了脑袋大。! @- `# C! ?; m& M7 i
QQ群里有人在问某案例如果不用拉式策略该怎么办?: L" B; J5 z2 \/ t& e8 ]+ j& d% i
这是一个很简单但又很经典的一个案例,布局如下:
2 I& U' Q& {% Z: |3 e2 I! K r
% v4 j4 q/ K6 _这个案例的核心要求是:上面两台处理器只处理临时实体类型1,下面三台处理器只处理临时实体类型2.
! N4 K8 M3 S; y) `5 E6 n! Y解决方法1:
% S0 W( r! p' k# {0 F如果使用拉式策略,在处理器中设置拉入条件即可:: S9 G" P" Q1 b" e }
# D2 B' F$ F1 i) L# r! C$ z, Z6 |3 i
解决方法2:' _$ \# E: E4 d9 z
有人坚持要用推式策略 % `: A+ `! g/ D/ D- o* O5 ?
在暂存区的发送至端口中编写以下代码:- if (getitemtype(item)==1) return duniform(1,2);# ] J+ a# D$ X1 W( R7 _% ^5 x
- else return duniform(3,5);
复制代码简单粗暴,问题解决。注意,记得把处理器中的拉式策略取消。 ; V$ r; a* G( ^$ \
但是有一个问题,有可能随机产生的端口所连接的处理器正在使用中,而另外有处理器处于空闲状态。如何把临时实体发往处于空闲状态的那个处理器呢?
# r b; q# G& Y f, a1 u, @解决方法3:
( t- {* L0 b/ ?. L3 s删掉上面那两行代码,输入以下代码:- int totalop;+ h! P3 K8 U7 s& N5 t0 @
- int startop;% U) S6 o! [4 T1 @# V( T
- if (getitemtype(item)==1)
- k$ z7 d( z$ `7 @; m: u( x. t - { startop=1;) E% Q+ b `3 E0 ]
- totalop=2;
/ A3 ]# p6 ]: D7 ] - }
9 O& w! J; s6 J! Y/ c0 \# s - else
. b( O/ {1 J8 ]' D1 H - {
& I& l5 N2 I8 b. W" o' R - startop=3;: I _$ h7 Y* c4 [
- totalop=3;
, F! m& N3 j0 c4 I3 A6 w - }
9 K4 \1 x# v' h - doublearray openports = makearray(totalop);
) p$ |- E( p' d6 W! e4 ? - int nrofportsopen = 0;* g9 w% l; }) @& D8 D& ?' _: d
- for ( int index = startop; index < startop+totalop; index++) , D- @+ s% P+ V; k/ \
- {
" H% D8 b1 O% }3 Q - if (opavailable(current,index)) ! A5 A C5 b* _# r, N' `
- {
3 \" Y* J& J3 D& [ - nrofportsopen++;
) Q* H% u% P6 f2 t0 E3 N - openports[ nrofportsopen ] = index;7 F Z" s3 r4 k) s5 a
- }. Q. R( t. k" e7 _+ s* W3 W
- }
9 p8 X- f! c3 x. p$ J - double returnvalue;
% {5 x4 d8 ^+ ?* T2 {' K6 \ - if (nrofportsopen > 0) " X" ^3 p. L& j; W# m! G* V" u/ R
- {6 ]% Q$ \" o5 m! ?
- int returnindex = duniform(1, nrofportsopen);
3 o8 L1 y# N5 J5 Z - returnvalue = openports[returnindex];
( z4 ]4 G$ Q' W" w6 e7 @% I - } else
7 `& C( [/ B) u - returnvalue = duniform(startop,startop+totalop-1);) _' s. t" H' I5 X, u
- return returnvalue;
复制代码 这段代码是由系统自带的“随机可用端口”稍作修改得到的,在这个案例中其实也不完美,比如说,3台暂存区都处于加工状态,这个时候来了新的临时实体,发往哪个端口?代码中设置的是随机端口。可是这3台处理器加工完毕的时间有先有后,能不能发送至最先加工完的那个处理器上?对不起,这段代码做不到。$ N# m2 Q& t. a* ~- k- M
为了能够直观的观察这段代码的缺陷,可以把发生器的发生时间间隔设置小一些,比如均值设置为6或者3,重置模型后点击步进按钮来观察模型。9 d f# w* M. j+ s
解决方法4:2 W4 n2 f& Z4 J
转换一下思路,如果要解决上面的问题,就必须要知道每一台处理器还剩多少时间能加工完毕,然后找到最先加工完的那一台。这样一来,目标就转换成了找到剩余加工时间最短的那一台处理器。/ a5 u3 V0 |$ Z; C5 c* J& e* u
剩余加工时间=安装时间+加工时间+进入时间-当前时间5 w& Z' |6 p3 E" |: [ t% {+ |9 P( u
删掉以上代码,输入以下代码:- int totalop;
& P4 H) ]/ v3 k1 V - int startop;4 z1 T6 F2 X5 Y9 X
- if (getitemtype(item)==1)
; S& d, T" d* f- A _ - { - i6 t! J9 `4 e
- startop=1;' z% d3 e [3 R$ i
- totalop=2;! S' a0 P, s5 o3 i+ F
- }( b2 c3 }0 f7 L7 l7 e7 w. n6 Y1 T
- else & p: k2 w- Y' J1 T) o: T" D
- {
! B5 ~& b) r5 C" R5 v+ W. O4 T* d( v- L - startop=3;
3 c; p' F. v; I - totalop=3;
3 Z( Q, P; D2 o5 b - }% U( V/ J$ x$ A5 ?# w
- double minitime= 2147483647;9 l5 J7 [6 o5 o* t
- int returnvalue=0;. v% x4 h% p7 O }7 M$ a
- for (int i = startop; i < totalop+startop ; i++)
7 I6 U% g* H& \. O - {
2 X& R9 S! U( ?3 _ - double protime=getitemvar(rank(outobject(current,i),1),2);/ X' D! R o V( N0 {
- double setuptime=getitemvar(rank(outobject(current,i),1),3);
# N6 F8 l5 |/ \ - double entrytime=getentrytime(rank(outobject(current,i),1));
% `6 L/ q" w9 Y - double remainingtime=protime+setuptime+entrytime-time();; f7 o! v* Z4 w5 q: ~/ H2 x# S9 t
- if (remainingtime<minitime)- W- @$ m8 k4 Z. u# E0 h
- {0 w _- W- G/ z
- minitime=remainingtime; |6 x1 i7 `9 W
- returnvalue=i;
2 m5 i5 r+ B, N; ^ - }" i& C- R2 r |/ D: ^
- }
" V7 t9 Q3 h9 l3 K$ W - return returnvalue;
4 K g4 K7 @# t, i$ b
复制代码 终于把问题解决了,缺点是这段代码不具备随机性。把这段代码加入到上一次代码的else区域试一下?此时可以把发生时间的均值改回10,然后步进模型查看效果。, r- Q \' M( ?2 D8 l% l
D# v9 m2 ~1 G; }6 N5 o% A3 A该出手时就出手,该用拉式就用拉式吧,原谅我写代码不加注释吧!- p7 q+ W4 E9 s9 V" ?* D4 n
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|