Rev 4161 | Rev 4329 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4161 | Rev 4328 | ||
---|---|---|---|
Line 2... | Line 2... | ||
2 | !goto proc |
2 | !goto proc |
3 | !endif |
3 | !endif |
4 | 4 | ||
5 | slib_author=Bernadette PERRIN-RIOU |
5 | slib_author=Bernadette PERRIN-RIOU |
6 | 6 | ||
- | 7 | slib_parms=3\ |
|
- | 8 | ,N\ |
|
- | 9 | 1,m\ |
|
- | 10 | 1,sigma |
|
- | 11 | ||
7 | slib_example= |
12 | slib_example= 5,0,1\ |
8 | [ |
13 | [2,3],0,2 |
9 | slib_require=octave |
14 | slib_require=octave |
10 | !exit |
15 | !exit |
11 | 16 | ||
12 | :proc |
17 | :proc |
13 | slib_out= |
18 | slib_out= |
14 | 19 | ||
15 | !distribute |
20 | !distribute item $wims_read_parm into slib_data,slib_a,slib_b |
16 | slib_data=!declosing $slib_data |
21 | slib_data=!declosing $slib_data |
17 | slib_cnt=!itemcnt |
22 | slib_cnt=!itemcnt $slib_data |
18 | !if $slib_cnt=1 |
23 | !if $slib_cnt=1 |
19 | slib_data=1,$slib_data |
24 | slib_data=1,$slib_data |
20 | !endif |
25 | !endif |
21 | slib_out=!exec octave lognormal_rnd($[exp($slib_a)],$[$slib_b^2], $slib_data) |
26 | slib_out=!exec octave lognormal_rnd($[exp($slib_a)],$[$slib_b^2], $slib_data) |
22 |
|
27 | !!slib_out=!exec octave lognrnd($[exp($slib_a)],$[$slib_b^2], $slib_data) |
23 | 28 | ||
24 | slib_out=!trim $slib_out |
29 | slib_out=!trim $slib_out |
- | 30 | slib_out=!replace internal $\ |
|
- | 31 | $ by ; in $slib_out |
|
- | 32 | slib_out=!words2items $slib_out |