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

Super_xu

不错，不错。。。

吴楚

该函数返回j=index-k*limit，其中k 是一个整数，取适当值保证j 落在区间[1，limit]内。该函数相当于index 模limit 再加1。该函数在循环、多阶段计划编制中特别有用。
1 f1 n) [5 d- ~4 m1 F
# B# T6 K6 ]; u" m2 N$ b# k( W7 v* Z+ d通俗的解释是：用来转换集合两端的索引，在集合的另一端继续索引。也就是说，在集合循环函数中，当达到集合的最后（或第一个）成员后，可以用@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:
5 d$ O! [( [# o3 ]- a  W6 |      start(@wrap(J+I+2,7))) >= required(J));
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:
- h' W4 X0 X0 w( T5 w4 gsets:
& `: I8 R& [( Ndays/mon..sun/: required,start;
$ M6 O+ F2 b/ K9 n" }endsets
/ t9 q. _8 a8 b+ t1 F9 \data:
4 n' n% V' ]: g% ?0 ^/ l3 ?6 D!每天所需的最少职员数;
required = 20 16 13 16 19 14 12;
# _3 i' ?! c& m1 fenddata
5 i! E- V# z; r) J( b!最小化每周所需职员数;
* d2 `, I5 H' I7 K4 gmin=@sum(days: start);
- [# B* }6 [- L7 K, u- x. {@for(days(J):
    @sum(days(I) | I #le# 5:
! S" A, P$ E8 [/ i8 R4 A( j      start(@wrap(J+I+2,7))) >= required(J));
, M$ i6 ~/ s& t8 c8 ^$ i% F6 Zend
; g$ ?. u4 [% C$ \& }4 I% Y
解释下：
@for(days(J):
    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
7 D& s* L2 N! L, U- g0 T5 e; A" |
当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的职员和，以此类推。
0 x: h- h5 X% Q+ ]
* t( J# T9 i( w& v. d- u网上有一种说法是，英美中星期表示的不同，中国将星期一看成第一天，而国外则是将星期日看成第一天。在lingo中sun就表示第一天，用数字0标识。因此@wrap（index,limit）的用法就是index模limit再加1。将上面的程序中的集修改为


sets:
7 Q& {8 f, ?7 ^3 E- p- A/ Z0 Kdays/1 2 3 4 5 6 0/: required,start;
endsets
9 x0 e5 r! ^' f

刘振

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

成城

我就是再问啊

cmd2.com电影

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

ehi28

嗯,不错,支持一下.

无聊2012

刘振 发表于 2011-8-12 20:01
model:
. P& m3 F  u/ T# |* P. Wsets:
days/mon..sun/: required,start;

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

3 i7 g- W, a" c1 _; Smodel:
sets: : q  L. A1 w6 `6 d! Z
2 m, G3 \' M2 M& `4 {7 g& e" @ days/mon..sun/: required,start;
+ [% w1 b) S# f* |2 i5 fendsets - h  W) ]$ D9 O5 I2 ~) H  K
( b7 Y& d) D! W1 E/ s( u data:
!每天所需的最少职员数;
required = 20 16 13 16 19 14 12; ; }: G' I5 C3 z! F( \' p" b
enddata   ]- t4 R' b. j  e9 q% Z
  f' i+ I1 N* p$ \2 U3 T: r2 l* W !最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
$ G( Z. w+ i, o* N min=@sum(days: start);
@for(days(J):
    @sum(
             days(I) | I #le# 5:
             start(@wrap(J+I+2,7))
2 {: @' D* O! ^" N: Z/ J3 B             ) >= required(J));
, u2 [  N- f9 L' v- W$ b! N. @( H% Rend
5 k/ ?' I1 `4 M$ J; N& y. k* x6 v& A
  |, K$ y6 L- z5 |" b/ T  n

ganquanlife

追梦者 发表于 2009-8-13 10:27
# Z: \# A& W& S4 K9 `' ?. N( P$ c小弟与上面这位仁兄的理解稍有不同，英美中星期表示与我们不同，我们将星期一看成第一天，而他们则是将星 ...

我也觉得不用+1啊，

dirk190

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

换成1到7 结果相同的