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