Subversion Repositories wimsdev

Rev

Rev 4328 | 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 
 
2 
!if $wims_read_parm!=slib_header
3 
!goto proc
4 
!endif
5 
 
6 
slib_author=Bernadette PERRIN-RIOU
4161 bpr 7 
 
4329 bpr 8 
slib_parms=5\
9 
,[data]\
10 
0,mu\
11 
1,sigma
12 
 
20 reyssat 13 
slib_example=[0.2,0.4,0.5],0,1
3265 bpr 14 
slib_require=octave
20 reyssat 15 
!exit
16 
 
17 
:proc
18 
 
4329 bpr 19 
!distribute  item $wims_read_parm into slib_data,slib_mean,slib_var
20 reyssat 20 
slib_out=
21 
!default slib_mean=0
22 
!default slib_var=1
4329 bpr 23 
 
20 reyssat 24 
slib_data=!declosing $slib_data
25 
 
26 
slib_out=!exec octave normal_inv([$slib_data], $slib_mean,$slib_var^2)
4329 bpr 27 
!!slib_out=!exec octave norminv([$slib_data], $slib_mean,$slib_var)
20 reyssat 28 
 
4328 bpr 29 
 
20 reyssat 30 
slib_out=!words2items $slib_out
31 
 
32 
slib_out=!trim $slib_out