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
4161 bpr 11 
 
20 reyssat 12 
slib_example=[0.2,0.4,0.7],4,5
3265 bpr 13 
slib_require=octave
20 reyssat 14 
!exit
15 
 
16 
:proc
17 
slib_out=
18 
 
19 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
20 
 
21 
slib_out= !exec octave gamma_inv($slib_data,$slib_a,$slib_b)
4328 bpr 22 
!!slib_out= !exec octave gaminv($slib_data,$slib_a,$slib_b)
20 reyssat 23 
slib_out= !words2items $slib_out
24 
 
25 
slib_out=!line -1 of $slib_out
26 
slib_out=!trim $slib_out