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]