Rev 4482 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed
| Rev 4482 | Rev 13586 | ||
|---|---|---|---|
| Line 1... | Line 1... | ||
| 1 | !if $wims_read_parm!=slib_header |
1 | !if $wims_read_parm!=slib_header |
| 2 | !goto proc |
2 | !goto proc |
| 3 | !endif |
3 | !endif |
| 4 | 4 | ||
| 5 | slib_parms=2\ |
5 | slib_parms=2\ |
| 6 | ,m\ |
6 | ,m\ |
| 7 | ,n |
7 | ,n |
| Line 19... | Line 19... | ||
| 19 | !distribute item $wims_read_parm into slib_data,slib_a |
19 | !distribute item $wims_read_parm into slib_data,slib_a |
| 20 | slib_data=!declosing $slib_data |
20 | slib_data=!declosing $slib_data |
| 21 | slib_cnt=!itemcnt $slib_data |
21 | slib_cnt=!itemcnt $slib_data |
| 22 | !if $slib_cnt=1 |
22 | !if $slib_cnt=1 |
| 23 | slib_data=1,$slib_data |
23 | slib_data=1,$slib_data |
| 24 | !endif |
24 | !endif |
| 25 | !!deprecated syntax |
25 | !!deprecated syntax |
| 26 | !!slib_out=!exec octave chisquare_rnd($slib_a,$slib_data) |
26 | !!slib_out=!exec octave chisquare_rnd($slib_a,$slib_data) |
| 27 | slib_out=!exec octave chi2rnd($slib_a,$slib_data) |
27 | slib_out=!exec octave chi2rnd($slib_a,$slib_data) |
| 28 | 28 | ||
| 29 | slib_out=!trim $slib_out |
29 | slib_out=!trim $slib_out |
| 30 | slib_out=!replace internal $\ |
30 | slib_out=!replace internal $\ |
| 31 | $ by ; in $slib_out |
31 | $ by ; in $slib_out |
| 32 | slib_out=!words2items $slib_out |
32 | slib_out=!words2items $slib_out |
| 33 | - | ||
| 34 | 33 | ||
| 35 | slib_out=!trim $slib_out |
34 | slib_out=!trim $slib_out |