【讨论】新手求助：关于lingo的wrap函数

Super_xu

不错，不错。。。

吴楚

该函数返回j=index-k*limit，其中k 是一个整数，取适当值保证j 落在区间[1，limit]内。该函数相当于index 模limit 再加1。该函数在循环、多阶段计划编制中特别有用。

0 B( l* J6 Y! G- X通俗的解释是：用来转换集合两端的索引，在集合的另一端继续索引。也就是说，在集合循环函数中，当达到集合的最后（或第一个）成员后，可以用@WRAP函数把索引转到集合的第一个（或最后一个）成员。在数学上@WRAP(I,N)的返回值当I位于区间[1,N]内时返回I，否则返回J=I-N*K,K为整数，且J位于区间[I,N]内。如@WRAP(3,10)返回值为3， @WRAP(35,10)返回值为5， @WRAP(40,8)返回值为8, @WRAP(9,7)返回值为2.

@for(days(J):
    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
6 |8 B3 ]. L2 e6 i) m/ ?day(I)=1,2,3,4,5不变（因为每个人都要连续工作5天，这里的脚码表示取值的顺序，并不是返回值）。当day(J)为1时，由于7为循环周期，故@warp(J+I+2)返回的值是4，5，6，7，1的职员和；当day(J)为2时，@warp(J+I+2)返回的值是5，6，7，1，2的职员和，以此类推。

刘振

model:
sets:
days/mon..sun/: required,start;
! c/ ^3 F0 T: e0 Gendsets
data:
, Y* b9 [2 y* y4 T+ O' |- E/ u+ }!每天所需的最少职员数;
required = 20 16 13 16 19 14 12;
" e& ]6 J2 U! E/ [* Fenddata
!最小化每周所需职员数;
/ ^9 z) F3 ~( g0 G! p( C4 I6 ~min=@sum(days: start);
" s+ e1 s: n, N- ^0 w: P@for(days(J):
. ^$ p& V9 k7 `& {5 o$ r8 y  [' A' J    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
& f8 F. ?/ z# j/ K" Oend
) a6 _0 ?: B  P0 N0 @% `
解释下：
* _: b  C/ D2 o/ R@for(days(J):
2 N9 W9 v6 r5 P- D    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));

( v& G; r- T8 W* [" _. ]- S$ Q当day(J)为1时，day(I)=1,2,3,4,5.由于7为循环周期，故@warp(J+I+2)返回的值是4，5，6，7，1的职员和.当day(J)为2时，@warp(J+I+2)返回的值是5，6，7，1，2的职员和，以此类推。

网上有一种说法是，英美中星期表示的不同，中国将星期一看成第一天，而国外则是将星期日看成第一天。在lingo中sun就表示第一天，用数字0标识。因此@wrap（index,limit）的用法就是index模limit再加1。将上面的程序中的集修改为

7 `  |' t8 ~8 h/ ~! s  w
8 B3 D: |6 \+ N( ]6 d. B/ Psets:
days/1 2 3 4 5 6 0/: required,start;
. L. g4 ~) s9 z3 Nendsets
5 v; O# ~2 w) t' E) k

刘振

这个我也不懂，那位仁兄出来具体介绍一下

成城

我就是再问啊

cmd2.com电影

挺好的，顶顶,新手还没有分呢,多回个贴

ehi28

嗯,不错,支持一下.
! h: s2 l3 {, W! }

无聊2012

刘振 发表于 2011-8-12 20:01
9 P9 ?8 P3 H3 N, E* imodel:
sets:
days/mon..sun/: required,start;

对一下做下调整，便于理解

4 Z' H- H6 ^+ z- O: s( Xmodel:
* ]+ R9 J& y( `$ dsets: : q  L. A1 w6 `6 d! Z
# m6 Z+ N  p( B) I days/mon..sun/: required,start;
& }4 ]0 w2 Q" u! Uendsets - h  W) ]$ D9 O5 I2 ~) H  K
$ J: P$ Z7 \5 E6 T# R* n data:
!每天所需的最少职员数;
% X  v+ Z6 ]" Jrequired = 20 16 13 16 19 14 12; ; }: G' I5 C3 z! F( \' p" b
' S' w3 K+ V9 B* q: {+ O& j2 q enddata   ]- t4 R' b. j  e9 q% Z
7 Z/ g$ R' M7 x. U !最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
* b2 g6 \- S8 p4 B, P, r3 \  D/ } min=@sum(days: start);
" B0 ]/ N9 X8 }@for(days(J):
    @sum(
- k4 y. w% A2 K# y6 y6 b             days(I) | I #le# 5:
             start(@wrap(J+I+2,7))
0 r, y- i& K7 H1 N* V             ) >= required(J));
end
: R1 J. S' W' P% z' K% e* D0 a
' x$ n5 j7 F0 W& |* ]; c. t

ganquanlife

追梦者 发表于 2009-8-13 10:27
小弟与上面这位仁兄的理解稍有不同，英美中星期表示与我们不同，我们将星期一看成第一天，而他们则是将星 ...

9 D5 [- a% L. T6 m4 o我也觉得不用+1啊，

dirk190

追梦者 发表于 2009-8-13 10:27
小弟与上面这位仁兄的理解稍有不同，英美中星期表示与我们不同，我们将星期一看成第一天，而他们则是将星 ...

换成1到7 结果相同的