Subversion Repositories wimsdev

Rev

Rev 4161 | Rev 4329 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4161 Rev 4328
Line 1... Line 1...
1 
 
 1 
 
2 
!if $wims_read_parm!=slib_header
 2 
!if $wims_read_parm!=slib_header
3 
!goto proc
 3 
!goto proc
4 
!endif
 4 
!endif
5 
 
 5 
 
6 
slib_author=Bernadette PERRIN-RIOU
 6 
slib_parms=3\
- 
 
 7 
,[data]\
- 
 
 8 
1,m\
- 
 
 9 
1,sigma
7 
 
 10 
 
- 
 
 11 
slib_author=Bernadette PERRIN-RIOU
- 
 
 12 
 
8 
slib_example=[0.2,0.4,0.7] ,3,4
 13 
slib_example=[0.2,0.4,0.7],3,4
9 
slib_require=octave
 14 
slib_require=octave
10 
!exit
 15 
!exit
11 
 
 16 
 
12 
:proc
 17 
:proc
13 
slib_out=
 18 
slib_out=
14 
!distribute  item $wims_read_parm into slib_data,slib_mean,slib_var
 19 
!distribute  item $wims_read_parm into slib_data,slib_mean,slib_var
15 
!default slib_mean=0
 20 
!default slib_mean=0
16 
!default slib_var=1
 21 
!default slib_var=1
17 
slib_data=!declosing $slib_data
 22 
slib_data=!declosing $slib_data
18 
 
 23 
 
19 
slib_out=!exec octave lognormal_inv([$slib_data], $[exp($slib_mean)],$[$slib_var^2])
 24 
slib_out=!exec octave lognormal_inv([$slib_data], $[exp($slib_mean)],$[$slib_var^2])
- 
 
 25 
!!slib_out=!exec octave logninv([$slib_data], $[exp($slib_mean)],$[$slib_var^2])
- 
 
 26 
 
20 
slib_out=!words2items $slib_out
 27 
slib_out=!words2items $slib_out
21 
slib_out=!trim $slib_out
 28 
slib_out=!trim $slib_out
22 
 
 29