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

Super_xu

不错，不错。。。

吴楚

该函数返回j=index-k*limit，其中k 是一个整数，取适当值保证j 落在区间[1，limit]内。该函数相当于index 模limit 再加1。该函数在循环、多阶段计划编制中特别有用。
+ v! t8 _! M* C
通俗的解释是：用来转换集合两端的索引，在集合的另一端继续索引。也就是说，在集合循环函数中，当达到集合的最后（或第一个）成员后，可以用@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.
/ D9 a0 y7 W/ y1 ~& {  _. N8 ?! i
@for(days(J):
    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
+ }* A% Z9 C, A+ Q' Uday(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:
* t4 p$ k+ V1 |6 Isets:
8 ~2 ], R! K) e4 ~0 qdays/mon..sun/: required,start;
endsets
9 q- p$ r  ]0 A9 f. Wdata:
!每天所需的最少职员数;
) U: h3 P. \  \  `required = 20 16 13 16 19 14 12;
8 R  A  ~8 Y9 n4 K( P$ menddata
, \% R1 G; C* b# ]$ V4 ]!最小化每周所需职员数;
  j6 E! V3 r8 P2 a$ M" m: Qmin=@sum(days: start);
@for(days(J):
: k3 l+ {: l) `+ t( i/ J5 L    @sum(days(I) | I #le# 5:
      start(@wrap(J+I+2,7))) >= required(J));
! Q% Y$ b" Y+ [  Z. Uend

解释下：
@for(days(J):
2 r2 `  i& t" i7 c9 _    @sum(days(I) | I #le# 5:
$ f0 t7 F4 o4 }0 K1 m      start(@wrap(J+I+2,7))) >= required(J));
0 K. f& L; S9 B7 {1 U- H) T& Z" y
当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。将上面的程序中的集修改为
  h2 N* }1 N, w
" [' |- H3 W8 b& T6 f$ d
sets:
0 h. o* m1 }" W% X, Z+ Rdays/1 2 3 4 5 6 0/: required,start;
1 N4 e: t, Q2 Jendsets

) _6 ]" q6 q+ i/ J! a

刘振

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

成城

我就是再问啊

cmd2.com电影

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

ehi28

嗯,不错,支持一下.
6 V6 o3 `$ e7 d3 i

无聊2012

刘振 发表于 2011-8-12 20:01
model:
6 k6 d0 Z* S% s0 ksets:
0 B6 m) h6 W* N- U7 G# K2 ydays/mon..sun/: required,start;

/ Y2 t; p" w9 H+ r对一下做下调整，便于理解
; G4 x8 `  k$ `1 }; N
7 m1 S* M- [% L! d- {- E% k8 emodel:
sets: : q  L. A1 w6 `6 d! Z
days/mon..sun/: required,start;
endsets - h  W) ]$ D9 O5 I2 ~) H  K
" _, e3 }  z0 Y data:
!每天所需的最少职员数;
required = 20 16 13 16 19 14 12; ; }: G' I5 C3 z! F( \' p" b
enddata   ]- t4 R' b. j  e9 q% Z
!最小化每周所需职员数; . z4 K' V6 u5 \9 I. X% C0 \& H
6 P: R9 A) c0 X! J. K; N min=@sum(days: start);
@for(days(J):
    @sum(
  S$ |& v- {$ O$ O+ G( J             days(I) | I #le# 5:
3 ]( G% S* {$ x8 Q3 E             start(@wrap(J+I+2,7))
9 Z( I2 U* k: ?             ) >= required(J));
end
" N. M# g$ Y2 @3 e

ganquanlife

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

我也觉得不用+1啊，

dirk190

追梦者 发表于 2009-8-13 10:27
( u4 X) l3 W  s9 @& m3 j* m" R小弟与上面这位仁兄的理解稍有不同，英美中星期表示与我们不同，我们将星期一看成第一天，而他们则是将星 ...

" w. l/ W( ]/ J5 c; M4 O1 `6 J换成1到7 结果相同的