【讨论】新手求助：关于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.
0 h) g) c; U3 o1 b+ t! a
) @: Z* i4 Q: K" E1 ?@for(days(J):
5 w0 h. q5 W' S# B1 l2 ~    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
; P6 f! V! _# ?+ Pday(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, t$ o/ E+ m: N% n& m8 |8 l7 Bsets:
0 D! y* f" ]/ f0 g& Adays/mon..sun/: required,start;
endsets
4 o# K" X5 d9 Z% ^8 M9 S5 `data:
!每天所需的最少职员数;
4 ~0 Y3 g8 `" }# i% V' P! brequired = 20 16 13 16 19 14 12;
$ h" D% H  f9 k# O+ ~1 R' Menddata
8 c& c: f+ E: h7 }. u( A, ^9 B7 I!最小化每周所需职员数;
min=@sum(days: start);
5 S) y; I" }! j@for(days(J):
    @sum(days(I) | I #le# 5:
- O* H$ ~- s  t9 K0 f- \# N      start(@wrap(J+I+2,7))) >= required(J));
- N! l; F4 P1 Qend
5 T) F0 N9 J6 l) N
解释下：
@for(days(J):
) E; F4 g  p% I6 |1 `    @sum(days(I) | I #le# 5:
) Q- H& J% L; m5 M& s2 Q( [      start(@wrap(J+I+2,7))) >= required(J));

当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。将上面的程序中的集修改为


% a! j5 I9 |7 A/ hsets:
  S5 H3 \! v" u6 jdays/1 2 3 4 5 6 0/: required,start;
endsets
6 O) C+ {) X& `9 L: q, O

刘振

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

成城

我就是再问啊

cmd2.com电影

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

ehi28

嗯,不错,支持一下.

无聊2012

刘振 发表于 2011-8-12 20:01
model:
" \  m3 B7 X. y$ {" gsets:
: s4 _9 a+ m7 Q) ^, H8 Vdays/mon..sun/: required,start;

( k3 h2 \0 {7 _4 e1 e% j对一下做下调整，便于理解

2 Q0 a. ~( W3 |/ zmodel:
sets: : q  L. A1 w6 `6 d! Z
) k  Z5 V  C( I( f% B2 m# I! } days/mon..sun/: required,start;
, \  t9 K+ o5 Q% R3 P$ ^% D! n1 L% Cendsets - h  W) ]$ D9 O5 I2 ~) H  K
7 A' P$ ^# L; s" F 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( H7 ^) U% z) U" X !最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
min=@sum(days: start);
, f+ D+ r/ }: o/ d/ K5 T% j* s@for(days(J):
; e: y, G/ o* r, W2 E    @sum(
+ B: g9 Y3 O" m' t             days(I) | I #le# 5:
             start(@wrap(J+I+2,7))
2 ?% |7 c8 D3 F2 J! V3 @# ]& T% s3 P             ) >= required(J));
end
- y9 ?! L  M, E6 P

ganquanlife

追梦者 发表于 2009-8-13 10:27
1 `9 P$ i+ U" d# q) n小弟与上面这位仁兄的理解稍有不同，英美中星期表示与我们不同，我们将星期一看成第一天，而他们则是将星 ...

我也觉得不用+1啊，

dirk190

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

换成1到7 结果相同的