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 4... | Line 4... | ||
4 | 4 | ||
5 | slib_parms=2\ |
5 | slib_parms=2\ |
6 | ,[data]\ |
6 | ,[data]\ |
7 | 1,p |
7 | 1,p |
8 | 8 | ||
9 |
|
9 | slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou |
10 | 10 | ||
11 | slib_example=[0.1,0.2,0.3],7 |
11 | slib_example=[0.1,0.2,0.3],7 |
12 | !exit |
12 | !exit |
13 | 13 | ||
14 | :proc |
14 | :proc |
15 | 15 | ||
16 | !distribute |
16 | !distribute item $wims_read_parm into slib_data,slib_p |
17 | 17 | ||
18 | !if $slib_p<=0 |
18 | !if $slib_p<=0 |
19 | slib_out=0 |
19 | slib_out=0 |
20 | !exit |
20 | !exit |
21 | !endif |
21 | !endif |
22 | 22 | ||
23 | slib_data=!declosing $slib_data |
23 | slib_data=!declosing $slib_data |
24 | slib_out=!values |
24 | slib_out=!values -log(1-x)/$slib_p for x in $slib_data |
25 | 25 | ||
26 | slib_out=!trim $slib_out |
26 | slib_out=!trim $slib_out |