Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 4330 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1 
!if $wims_read_parm!=slib_header
2 
!goto proc
3 
!endif
4161 bpr 4 
 
20 reyssat 5 
slib_parms=3\
6 
,[data]\
7 
,a\
8 
,b
9 
 
10 
slib_author=Bernadette PERRIN-RIOU
11 
slib_example=[0.2,0.4,0.7],6,8
4328 bpr 12 
 
3265 bpr 13 
slib_require=octave
20 reyssat 14 
!exit
15 
 
16 
:proc
17 
slib_out=
18 
 
4328 bpr 19 
!distribute item $wims_read_parm into slib_data,slib_a, slib_b
20 reyssat 20 
 
21 
slib_data=!declosing $slib_data
22 
slib_c=$[$slib_b^(-$slib_a)]
23 
 
24 
slib_out=!exec octave weibull_inv([$slib_data], $slib_a,$slib_c)
4328 bpr 25 
!!slib_out=!exec octave wblinv([$slib_data], $slib_c, $slib_a)
20 reyssat 26 
 
27 
slib_out=!words2items $slib_out
28 
 
29 
slib_out=!trim $slib_out
30