Subversion Repositories wimsdev

Rev

Rev 4330 | Rev 13586 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4330 Rev 7692
Line 4... Line 4...
4 
 
 4 
 
5 
slib_parms=3\
 5 
slib_parms=3\
6 
 1,m\
 6 
 1,m\
7 
  ,n\
 7 
  ,n\
8 
 ,[p1,p2, .. pj]
 8 
 ,[p1,p2, .. pj]
9 
slib_author=Sophie, Lemaire; Bernadette, PERRIN-RIOU
 9 
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
10 
 
 10 
 
11 
slib_example=3,6,[1/3,1/3]
 11 
slib_example=3,6,[1/3,1/3]
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
Line 19... Line 19...
19 
 
 19 
 
20 
slib_q=!declosing $slib_q
 20 
slib_q=!declosing $slib_q
21 
slib_t=!itemcnt $slib_q
 21 
slib_t=!itemcnt $slib_q
22 
 
 22 
 
23 
slib_s=!sum x for x in $slib_q
 23 
slib_s=!sum x for x in $slib_q
24 
!if $slib_s>1
24 
!if $slib_s>1
25 
!exit
 25 
!exit
26 
!endif
 26 
!endif
27 
!if $slib_s>0 and $slib_s<1
 27 
!if $slib_s>0 and $slib_s<1
28 
slib_q=$slib_q, $[1-$slib_s]
 28 
slib_q=$slib_q, $[1-$slib_s]
29 
!advance slib_t
 29 
!advance slib_t