Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 4329 | 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
 
20 reyssat 8
slib_example=[0.2,0.4,0.5],0,1
3265 bpr 9
slib_require=octave
20 reyssat 10
!exit
11
 
12
:proc
13
 
14
!distribute  item $wims_read_parm into slib_data,slib_mean,slib_var,slib_x1,slib_x2
15
slib_out=
16
!default slib_mean=0
17
!default slib_var=1
18
!default slib_x1=$[($slib_mean-5)*($slib_var)]
19
!default slib_x2=$[($slib_mean+5)*($slib_var)]
20
slib_data=!declosing $slib_data
21
 
22
slib_out=!exec octave normal_inv([$slib_data], $slib_mean,$slib_var^2)
4328 bpr 23
!!slib_out=!exec octave norminv([$slib_data], $slib_mean,$slib_var^2)
20 reyssat 24
 
4328 bpr 25
 
20 reyssat 26
slib_out=!words2items $slib_out
27
 
28
slib_out=!trim $slib_out