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 |
|
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 |
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 |
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] |