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