随手翻：任务执行器分配任务给行进距离最短的任务执行器

任务分配器的pass to选项，返回的是一个端口值。将任务分配给与该中间端口连接的任务执行器。
% K  S5 `: y7 r. Z: f4 X& I7 T# O以下为flexsim17.1自带，寻找行进距离最短的任务分配器：

; f' r. b% E6 X

1. treenode tasksequence = param(1);
   
2. Object current = ownerobject(c);
   " m) P8 K+ _) N& D8 f: d
3. /**找到距离最近的任务执行器*/
   
4. /**如果任务执行器在网络路径上，则计算网络路径的距离，否则计算实体中心点间距。*/
   , @: s5 R; K. M9 Y
5. double curmin = GLOBAL_UNREACHABLE;
   
6. int minindex = 0;
   
7. treenode destination = NULL;
   
8. for (int taskrank = 1; taskrank <= gettotalnroftasks(tasksequence) && destination == NULL; taskrank++)
   ; f7 l" S' ?$ _  ^: X6 C. R
9. {  // 找到第一个行进任务，并获取行进目的地。&& destination == NULL确保一旦找到行进目的地就退出for循环。
   ( d* F( C5 D& w/ U  i2 ~3 B
10.         if (gettasktype(tasksequence,taskrank) == TASKTYPE_TRAVEL)
    
11.                 destination = gettaskinvolved(tasksequence,taskrank,1);
    
12. }
    9 m* m8 W2 A1 }1 b& r- p
13. 
    
14. if (destination==NULL) // 如果没有行进任务，把任务传递给第一个可用任务执行器。
    
15.         return 0;
    / ?/ E! J' z: r
16. 
    : p- ~- l; y, y: O! i
17. //如果有行进目的地，则遍历所有任务执行器，寻找距离最近的那个。
    1 T; u9 M9 m% I% J5 W- i" ~
18. for (int index = 1; index <= current.outObjects.length; index++)
    
19. {
    # n( x. B: V5 T* b/ {1 M7 E
20.         treenode curobj = current.outObjects[index];
    
21.         if (curobj && isclasstype(curobj, CLASSTYPE_TASKEXECUTER))
    , a' P) l& C" n3 `
22.         //中间端口有连接实体，并且该实体为任务执行器
    
23.         {
    
24.                 double curdist = distancetotravel(curobj, destination);
    
25.                 //计算任务执行器和目的地之间的距离
    
26.                 if (curdist != GLOBAL_UNREACHABLE && (curmin == GLOBAL_UNREACHABLE || curmin > curdist))
    
27.                 {//如果计算出来的距离小于curmin,则更新curmin，把当前距离作为最小距离。
    4 I; L+ _/ t" \1 G8 E/ Y5 k& t  D
28.                         curmin = curdist;
    
29.                         minindex = index;
    $ P9 i7 s3 @: r% E5 q
30.                 }
    : W0 ~, v0 L3 q% d. _3 N
31.         }
    
32. }
    / I6 s4 {8 ^  |4 _5 l, N# B9 W
33. 
    2 J, g# ]& k9 \+ ^( x/ I
34. return minindex;
    ' s- p; s) w$ \. [: a
35. //返回minindex，距离最近的那个任务执行器在任务分配器上的中间端口号。

复制代码

1 D- Z' G" S8 F, O随手翻，不保证正确性、可读性。

谢谢大神的分享