Rev 4161 | Rev 4330 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 4161 | Rev 4328 | ||
---|---|---|---|
Line 17... | Line 17... | ||
17 | :proc |
17 | :proc |
18 | slib_out= |
18 | slib_out= |
19 | 19 | ||
20 | !distribute item $wims_read_parm into slib_data,slib_a,slib_b |
20 | !distribute item $wims_read_parm into slib_data,slib_a,slib_b |
21 | slib_data=!declosing $slib_data |
21 | slib_data=!declosing $slib_data |
22 | slib_cnt=!itemcnt |
22 | slib_cnt=!itemcnt $slib_data |
23 | !if $slib_cnt=1 |
23 | !if $slib_cnt=1 |
24 | slib_data=1,$slib_data |
24 | slib_data=1,$slib_data |
25 | !endif |
25 | !endif |
26 | slib_out=!exec octave gamma_rnd($slib_a,$slib_b,$slib_data) |
26 | slib_out=!exec octave gamma_rnd($slib_a,$slib_b,$slib_data) |
- | 27 | !!slib_out=!exec octave gamrnd($slib_a,$slib_b,$slib_data) |
|
27 | 28 | ||
- | 29 | slib_out=!trim $slib_out |
|
- | 30 | slib_out=!replace internal $\ |
|
- | 31 | $ by ; in $slib_out |
|
28 | slib_out=!words2items $slib_out |
32 | slib_out=!words2items $slib_out |
29 | - | ||
30 | slib_out=!trim $slib_out |
- |