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