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

Super_xu

不错，不错。。。

吴楚

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

通俗的解释是：用来转换集合两端的索引，在集合的另一端继续索引。也就是说，在集合循环函数中，当达到集合的最后（或第一个）成员后，可以用@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):
  @: A3 x: Z9 @    @sum(days(I) | I #le# 5:
      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:
, w8 S0 }0 C* R4 E2 [0 [sets:
$ I# S0 S$ H% a, `2 x: b) M& U  r4 w! }days/mon..sun/: required,start;
endsets
data:
4 v' `/ }2 d3 U3 V!每天所需的最少职员数;
: E1 B- N# V7 A; w6 p# |8 y  qrequired = 20 16 13 16 19 14 12;
enddata
* y, g1 Q) @( [9 L; U!最小化每周所需职员数;
) [, Q" ?% g$ e, Pmin=@sum(days: start);
@for(days(J):
8 g6 Z% r' Z3 y! @. D! @5 I: f* ?    @sum(days(I) | I #le# 5:
8 k% k9 B7 L/ P: O" L, t; Z      start(@wrap(J+I+2,7))) >= required(J));
/ O8 v* S' D, ]) pend

解释下：
; B3 n/ H* y8 u' R* C1 I@for(days(J):
5 v1 ]+ m. n0 U    @sum(days(I) | I #le# 5:
1 M8 ~# n: o4 W: r6 t* F      start(@wrap(J+I+2,7))) >= required(J));

8 ?3 ]" D" E; \, L, a6 w: J7 B, E$ h/ k当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。将上面的程序中的集修改为
3 B& t, Q( \" V: T, ]+ [6 k! h* d
- r' H6 [4 `" q8 H
+ T: E' x) }' u( ^8 @sets:
days/1 2 3 4 5 6 0/: required,start;
4 S% G9 A% i+ W7 A* N  Y/ j" Qendsets
! y! ], W+ ^9 e1 F+ I1 _
1 H2 A' z  P! l+ V' _

刘振

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

成城

我就是再问啊

cmd2.com电影

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

ehi28

嗯,不错,支持一下.

无聊2012

刘振 发表于 2011-8-12 20:01
model:
0 W5 Z, Q" W/ ?4 t4 s6 r4 Jsets:
; n. l# Q' m/ g3 r- G0 B0 t- idays/mon..sun/: required,start;

- Z3 j! s' \# n: q对一下做下调整，便于理解
9 M! A5 v7 U4 Z6 d7 j1 X
model:
. C+ J7 ~3 x( S/ Wsets: : q  L. A1 w6 `6 d! Z
days/mon..sun/: required,start;
endsets - h  W) ]$ D9 O5 I2 ~) H  K
" N( W5 x; {& v/ h' H" Q data:
!每天所需的最少职员数;
; d# I# V2 {& j$ yrequired = 20 16 13 16 19 14 12; ; }: G' I5 C3 z! F( \' p" b
enddata   ]- t4 R' b. j  e9 q% Z
  q$ d/ x- n& f: A) d1 J) _ !最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
; a" z  e8 ?1 O min=@sum(days: start);
8 e. I9 ~+ P( h9 A@for(days(J):
3 R# B- y/ m5 m) Y) M$ _    @sum(
             days(I) | I #le# 5:
             start(@wrap(J+I+2,7))
             ) >= required(J));
# Y4 C9 d+ \5 y: S9 \( Zend

$ S2 y: i7 W4 z( \

ganquanlife

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

* a. ~( ^! X5 w2 E0 u我也觉得不用+1啊，

dirk190

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

: v& j8 m3 i% X2 G. H. R, n# k换成1到7 结果相同的