Subversion Repositories wimsdev

Rev

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 10... Line 10...
10 
slib_author=Bernadette PERRIN-RIOU
 10 
slib_author=Bernadette PERRIN-RIOU
11 
 
 11 
 
12 
slib_comment=
 12 
slib_comment=
13 
slib_example= 20,4,6\
 13 
slib_example= 20,4,6\
14 
[10,5],4,6
 14 
[10,5],4,6
- 
 
 15 
 
15 
slib_require=octave
 16 
slib_require=octave
16 
!exit
 17 
!exit
17 
 
 18 
 
18 
:proc
 19 
:proc
19 
slib_out=
 20 
slib_out=
20 
 
 - 
 
- 
 
 21 
!reset slib_data
21 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
 22 
!distribute item $wims_read_parm into slib_data,slib_a,slib_b
22 
slib_data=!declosing $slib_data
 23 
slib_data=!declosing $slib_data
23 
slib_cnt=!itemcnt slib_data
 24 
slib_cnt=!itemcnt $slib_data
24 
!if $slib_cnt=1
 25 
!if $slib_cnt=1
25 
	slib_data=1,$slib_data
 26 
	slib_data=1,$slib_data
26 
!endif
27 
!endif
27 
slib_out=!exec octave weibull_rnd($slib_a,$slib_b,$slib_data)
 28 
slib_out=!exec octave weibull_rnd($slib_a,$slib_b,[$slib_data])
28 
 
 - 
 
29 
slib_out=!words2items $slib_out
 29 
!!slib_out=!exec octave wblrnd($slib_b,$slib_a,[$slib_data])
30 
 
 30 
 
31 
slib_out=!trim $slib_out
 31 
slib_out=!trim $slib_out
- 
 
 32 
slib_out=!replace internal $\
- 
 
 33 
$ by ; in $slib_out
- 
 
 34 
slib_out=!words2items $slib_out