Subversion Repositories wimsdev

Rev

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

Rev 4328 Rev 4330
Line 4... Line 4...
4 
 
 4 
 
5 
slib_parms=3\
 5 
slib_parms=3\
6 
 1,m\
 6 
 1,m\
7 
  ,n\
 7 
  ,n\
8 
 ,[p1,p2, .. pj]
 8 
 ,[p1,p2, .. pj]
9 
slib_author=Sophie Lemaire et Bernadette PERRIN-RIOU
 9 
slib_author=Sophie, Lemaire; Bernadette, PERRIN-RIOU
10 
 
 10 
 
11 
slib_example=3,6,[1/3,1/3]
 11 
slib_example=3,6,[1/3,1/3]
12 
!exit
 12 
!exit
13 
 
 13 
 
14 
:proc
 14 
:proc
Line 38... Line 38...
38 
!for slib_i=1 to  $[$slib_t-1]
 38 
!for slib_i=1 to  $[$slib_t-1]
39 
slib_j=!item $slib_i of $slib_q
 39 
slib_j=!item $slib_i of $slib_q
40 
!readproc slib/stat/binomial  1,$slib_N, $[$slib_j/$slib_s]
 40 
!readproc slib/stat/binomial  1,$slib_N, $[$slib_j/$slib_s]
41 
 
 41 
 
42 
slib_V=!append item $slib_out to $slib_V
 42 
slib_V=!append item $slib_out to $slib_V
43 
!distribute item $[$slib_s-$slib_j], $[$slib_N-$slib_out]  into slib_s,slib_N
 43 
!distribute item $[$slib_s-$slib_j], $[$slib_N-$slib_out] into slib_s,slib_N
44 
 
 44 
 
45 
!next slib_i
 45 
!next slib_i
46 
slib_V=!append item $slib_N to $slib_V
 46 
slib_V=!append item $slib_N to $slib_V
47 
 
 47 
 
48 
slib_mult=!append line $slib_V to $slib_mult
 48 
slib_mult=!append line $slib_V to $slib_mult