Subversion Repositories wimsdev

Rev

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

Rev 18193 Rev 18195
Line 7... Line 7...
7 
 ,n\
 7 
 ,n\
8 
 ,p
 8 
 ,p
9 
slib_author=Adeline, Grelot
 9 
slib_author=Adeline, Grelot
10 
 
 10 
 
11 
slib_example=5,10,0.5\
 11 
slib_example=5,10,0.5\
12 
5,10,1\
 12 
5,10,1
13 
5,11,1.5
 - 
 
14 
 
 13 
 
15 
slib_require=pari
 14 
slib_require=pari
16 
!exit
 15 
!exit
17 
 
 16 
 
18 
:proc
 17 
:proc
19 
slib_out=
 18 
slib_out=
20 
 
 19 
 
21 
!distribute item $wims_read_parm into slib_m, slib_n, slib_p
 20 
!distribute item $wims_read_parm into slib_m, slib_n, slib_p
22 
!if $slib_p>1 or $slib_p<0
 - 
 
23 
  slib_out=
 - 
 
24 
  !exit
 - 
 
25 
!endif
 - 
 
26 
!if $slib_p=0
 21 
!if $slib_p<=0
27 
  slib_out=!makelist 0 for x=1 to $slib_m
 22 
  slib_out=!makelist 0 for x=1 to $slib_m
28 
  !exit
 23 
  !exit
29 
!endif
 24 
!endif
30 
!if $slib_p=1
 25 
!if $slib_p>=1
31 
  slib_out=!makelist $slib_n for x=1 to $slib_m
 26 
  slib_out=!makelist $slib_n for x=1 to $slib_m
32 
  !exit
 27 
  !exit
33 
!endif
 28 
!endif
34 
slib_u=!random 0,1 repeat $slib_m
 29 
slib_u=!random 0,1 repeat $slib_m
35 
slib_C=!values x for x=0 to $[$slib_n]
 30 
slib_C=!values x for x=0 to $[$slib_n]