Subversion Repositories wimsdev

Rev

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

Rev 4161 Rev 4330
Line 6... Line 6...
6
,[data]\
6
,[data]\
7
,N\
7
,N\
8
,K\
8
,K\
9
,n
9
,n
10
slib_example=[2,4,7],12,4,3
10
slib_example=[2,4,7],12,4,3
11
slib_author=Bernadette PERRIN-RIOU
11
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
12
 
12
 
13
slib_require=pari
13
slib_require=pari
14
!exit
14
!exit
15
 
15
 
16
:proc
16
:proc
17
 
17
 
18
!distribute  item $wims_read_parm into slib_data,slib_N,slib_K,slib_n
18
!distribute item $wims_read_parm into slib_data,slib_N,slib_K,slib_n
19
 
19
 
20
slib_b= $[binomial($slib_N,$slib_n)^(-1)]
20
slib_b= $[binomial($slib_N,$slib_n)^(-1)]
21
 
21
 
22
slib_min= $[max(0,$slib_n+$slib_K-$slib_N)]
22
slib_min= $[max(0,$slib_n+$slib_K-$slib_N)]
23
slib_max= $[min($slib_n,$slib_N)]
23
slib_max= $[min($slib_n,$slib_N)]