Subversion Repositories wimsdev

Rev

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
 
4330 bpr 6
slib_author=Sophie, Lemaire; 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
 
4330 bpr 26
!!deprecated syntax
27
!!slib_out=!exec octave normal_inv([$slib_data], $slib_mean,$slib_var^2)
28
slib_out=!exec octave norminv([$slib_data], $slib_mean,$slib_var)
20 reyssat 29
 
4328 bpr 30
 
20 reyssat 31
slib_out=!words2items $slib_out
32
 
33
slib_out=!trim $slib_out