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

Super_xu

不错，不错。。。

吴楚

该函数返回j=index-k*limit，其中k 是一个整数，取适当值保证j 落在区间[1，limit]内。该函数相当于index 模limit 再加1。该函数在循环、多阶段计划编制中特别有用。
0 C* c/ K) }7 |2 I
通俗的解释是：用来转换集合两端的索引，在集合的另一端继续索引。也就是说，在集合循环函数中，当达到集合的最后（或第一个）成员后，可以用@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.

: W) V( R9 y' Y@for(days(J):
7 Y& j- u* r4 `( f& |" i2 c    @sum(days(I) | I #le# 5:
3 u7 x! P6 ?, X) f8 ]9 E9 M      start(@wrap(J+I+2,7))) >= required(J));
# y0 Y( A, z5 t) l) tday(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:
& P! c# u  e* p& d: B. r$ Vsets:
days/mon..sun/: required,start;
+ j2 W: h1 W  O8 ^endsets
data:
7 I7 Q5 h' z& ?" V1 g) P: [- Z!每天所需的最少职员数;
! T; l. L+ p1 L! o& ^7 E% Frequired = 20 16 13 16 19 14 12;
enddata
!最小化每周所需职员数;
min=@sum(days: start);
@for(days(J):
    @sum(days(I) | I #le# 5:
& q4 Q/ G. ^$ B& y4 ^) n      start(@wrap(J+I+2,7))) >= required(J));
end
, T" j  k( u' H7 O( o3 Q7 _& p* \
解释下：
@for(days(J):
0 j. p! K; x* `2 q    @sum(days(I) | I #le# 5:
: {# |! p6 p/ T8 |      start(@wrap(J+I+2,7))) >= required(J));
$ F  `6 A+ G& K0 r7 Z
当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的职员和，以此类推。

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


sets:
days/1 2 3 4 5 6 0/: required,start;
endsets
' e$ J- Q. c9 Y& W( z
) E+ E, y* O7 u7 r

刘振

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

成城

我就是再问啊

cmd2.com电影

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

ehi28

嗯,不错,支持一下.
) \' b4 A5 j0 {2 D) g8 ~

无聊2012

刘振 发表于 2011-8-12 20:01
2 k( }5 R9 _9 fmodel:
9 K: [+ t( G3 ?! J, Rsets:
days/mon..sun/: required,start;

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

" }# N7 m5 i6 @' i; zmodel:
( V/ V5 U+ E! D& y% S) zsets: : q  L. A1 w6 `6 d! Z
2 W% `7 _* J5 K! J2 } days/mon..sun/: required,start;
! S) P" h# T8 U& X4 uendsets - h  W) ]$ D9 O5 I2 ~) H  K
data:
9 F# v( E$ R7 Z; e) y: {!每天所需的最少职员数;
required = 20 16 13 16 19 14 12; ; }: G' I5 C3 z! F( \' p" b
: E# _! N( [; W  g$ \9 ? enddata   ]- t4 R' b. j  e9 q% Z
% q9 L* x! E- _1 \, e( d# P. Z !最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
+ N& t2 I( g, w( \2 O; F( X, S min=@sum(days: start);
@for(days(J):
    @sum(
6 x  q2 o% J0 t3 r             days(I) | I #le# 5:
% f' k7 {' o; a$ L3 z             start(@wrap(J+I+2,7))
             ) >= required(J));
end

ganquanlife

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

我也觉得不用+1啊，

dirk190

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

. h7 V7 @. t( [* X& R6 P换成1到7 结果相同的