Subversion Repositories wimsdev

Rev

Rev 4454 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
20 reyssat 1
!if $wims_read_parm!=slib_header
13586 bpr 2
  !goto proc
20 reyssat 3
!endif
4161 bpr 4
 
20 reyssat 5
slib_parms=3\
6
,[data]\
7
,a\
8
,b
9
 
4330 bpr 10
slib_author=Sophie, Lemaire; Bernadette, Perrin-Riou
20 reyssat 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
4454 bpr 22
slib_c=$[$slib_b^(-1/$slib_a)]
20 reyssat 23
 
4330 bpr 24
!!deprecated syntax
25
!!slib_out=!exec octave weibull_inv([$slib_data], $slib_a,$slib_c)
26
slib_out=!exec octave wblinv([$slib_data], $slib_c, $slib_a)
20 reyssat 27
 
28
slib_out=!words2items $slib_out
29
 
30
slib_out=!trim $slib_out
31