|
本帖最后由 zorsite 于 2016-5-8 16:19 编辑 5 e7 T) @1 u3 u
+ x% [7 r8 U( R: K; G* F$ O估计这将是一篇冷贴,高手不屑看,新手看了脑袋大。2 r3 Z; k/ X/ {' d& c& E" `6 U+ B
QQ群里有人在问某案例如果不用拉式策略该怎么办?
* J4 F% x& \1 U, {这是一个很简单但又很经典的一个案例,布局如下:' `" c+ {( }% ^' v. a/ t% X% ~
2 O3 v" w& [0 v* z这个案例的核心要求是:上面两台处理器只处理临时实体类型1,下面三台处理器只处理临时实体类型2.) }$ R4 X% r2 [9 s# }- d2 t
解决方法1:' h4 f' C4 C; k
如果使用拉式策略,在处理器中设置拉入条件即可:1 {( a. T# M5 S, a) @
7 ~' h" _) ^: q8 n# q
: m* H, Y7 B3 @! d) v, z: P解决方法2:
6 d- q& ~ P, g; b& Z/ y J有人坚持要用推式策略
( n9 M! f& a8 s' j在暂存区的发送至端口中编写以下代码:- if (getitemtype(item)==1) return duniform(1,2);
9 _& Y5 ?" V4 |* Q1 | - else return duniform(3,5);
复制代码简单粗暴,问题解决。注意,记得把处理器中的拉式策略取消。 ! y+ P# G9 S: H8 [
但是有一个问题,有可能随机产生的端口所连接的处理器正在使用中,而另外有处理器处于空闲状态。如何把临时实体发往处于空闲状态的那个处理器呢?& W j$ t& ?+ N, A; I' [; C
解决方法3:
3 o: Q+ U0 J) L4 @3 y9 M; x% ]删掉上面那两行代码,输入以下代码:- int totalop;) ?; M! h. x+ p& ~3 b* r
- int startop;
5 P8 L/ B6 J9 F/ Z - if (getitemtype(item)==1) 5 L. p% D- f; P/ ?; A4 m
- { startop=1;- `0 S& K) F3 G; G M
- totalop=2;: I5 o u; ~) [3 y" c8 x7 P: K
- }# u# I0 ~% [+ X, d3 Z! |& S
- else
1 u& O' g' f) B - {
/ ~% I' d3 V [" M2 g# a, Y - startop=3;$ i! I+ [, P! |8 b9 K3 o( Z
- totalop=3;
7 W5 m2 Y4 I% u r# k7 S - }
8 `" E- Z- }7 Y( Q' V - doublearray openports = makearray(totalop);7 O( j n e) Q/ i: Z2 \2 \
- int nrofportsopen = 0;
3 {5 p% ^& a q9 X - for ( int index = startop; index < startop+totalop; index++) $ B* b3 d! e" X/ v" Z9 i8 K
- {
2 f- q- Q' Y. b0 ]% r. { - if (opavailable(current,index))
# x s" a& w- q0 a3 N* R# W - {2 }# x$ v2 A' F' ?$ c
- nrofportsopen++;: g4 ?2 b7 q; [6 [
- openports[ nrofportsopen ] = index;
* ^7 f6 V0 n* j8 N9 t& j' u4 L - }
, R6 X, d) K- y/ _( D& J+ c5 g7 @ - }+ I% N& Z- F8 A7 F5 j" [0 p
- double returnvalue;0 d0 S5 _* y0 P2 c
- if (nrofportsopen > 0)
6 X; J! J% l6 m* k" n) I3 z - {
" F% C2 [3 ]* B. R - int returnindex = duniform(1, nrofportsopen);
2 X! H3 ~ K: t5 L1 |4 d - returnvalue = openports[returnindex];% H& ?9 a9 s. O! x% {( d
- } else0 d2 x6 Q7 \: {8 R2 }5 S9 I
- returnvalue = duniform(startop,startop+totalop-1);
" G! q M ?1 d; _ - return returnvalue;
复制代码 这段代码是由系统自带的“随机可用端口”稍作修改得到的,在这个案例中其实也不完美,比如说,3台暂存区都处于加工状态,这个时候来了新的临时实体,发往哪个端口?代码中设置的是随机端口。可是这3台处理器加工完毕的时间有先有后,能不能发送至最先加工完的那个处理器上?对不起,这段代码做不到。0 m; j3 [) {# Q; v3 b, ^- |
为了能够直观的观察这段代码的缺陷,可以把发生器的发生时间间隔设置小一些,比如均值设置为6或者3,重置模型后点击步进按钮来观察模型。' f6 L, X# c% o; y6 _' I9 R+ N
解决方法4:
1 N6 N3 P" R# ]# L. l5 ]. A N$ G, T9 O转换一下思路,如果要解决上面的问题,就必须要知道每一台处理器还剩多少时间能加工完毕,然后找到最先加工完的那一台。这样一来,目标就转换成了找到剩余加工时间最短的那一台处理器。
# h6 f# @8 C% j% T0 e剩余加工时间=安装时间+加工时间+进入时间-当前时间
" V3 f2 j# Q6 D: ~% I删掉以上代码,输入以下代码:- int totalop;
7 Z6 P% C$ D" W3 s. s* l - int startop;5 x2 Q& ~; w" B) [9 o' K
- if (getitemtype(item)==1)
- E a: L0 ~0 ^3 G0 C$ e6 M - {
: i) d; J' y$ Y - startop=1;
4 y$ ~7 t" p" e2 U) {+ z - totalop=2;
1 q" p/ o# ~: W9 j7 e - }
8 n- h- y, [, }+ |6 g - else
2 S6 m8 R4 h+ {+ e8 w, F - {
% c" {$ \( C6 ? - startop=3;, O& C$ ?+ |; I o5 @# f0 _/ K6 k
- totalop=3;
. C8 ]* Z) j5 Z' j, w1 m7 {+ \ - }7 [7 Y1 Y* S- } J
- double minitime= 2147483647;
% ]! w4 Y; U# v3 B - int returnvalue=0;
( C: ~3 S$ Q; a# w! t - for (int i = startop; i < totalop+startop ; i++) 3 P! ^! I9 P H7 T9 D. u3 N$ A! I: Z
- {1 ]: c8 R) g# U j1 I, L
- double protime=getitemvar(rank(outobject(current,i),1),2);
5 v4 v% v3 G% w" U - double setuptime=getitemvar(rank(outobject(current,i),1),3);
4 B- v9 M3 Q# { I9 Q - double entrytime=getentrytime(rank(outobject(current,i),1));% o: |4 @9 f1 u/ }% |
- double remainingtime=protime+setuptime+entrytime-time();* f% ~5 {% K% }/ @3 X$ M
- if (remainingtime<minitime)" t* j# A7 N- `& s; ]& q
- {$ d( J& {& h9 j5 v! K
- minitime=remainingtime;
; P2 d/ C+ p! m/ o6 P - returnvalue=i;! B" x% o3 _* Q! r! K6 H
- }) q% [' Z* u6 C2 M5 K. Q% Q) ?6 C
- }% K& @ K3 B Y/ ~; p
- return returnvalue;! w9 u5 ]7 [ [
复制代码 终于把问题解决了,缺点是这段代码不具备随机性。把这段代码加入到上一次代码的else区域试一下?此时可以把发生时间的均值改回10,然后步进模型查看效果。
, {4 c/ r( ?; X" g0 `: D% Y3 v6 K0 O6 T
该出手时就出手,该用拉式就用拉式吧,原谅我写代码不加注释吧!2 T" U4 f }9 s
|
本帖子中包含更多资源
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
|