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 2... Line 2...
2 
!goto proc
 2 
!goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_author=Bernadette PERRIN-RIOU
 5 
slib_author=Bernadette PERRIN-RIOU
6 
 
 6 
 
- 
 
 7 
slib_parms=3\
- 
 
 8 
,N\
- 
 
 9 
1,m\
- 
 
 10 
1,sigma
- 
 
 11 
 
7 
slib_example= 20,0,1\
 12 
slib_example= 5,0,1\
8 
[6,5],0,2
 13 
[2,3],0,2
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 
 
 19 
 
15 
!distribute  item $wims_read_parm into slib_data,slib_a,slib_b
 20 
!distribute item $wims_read_parm into slib_data,slib_a,slib_b
16 
slib_data=!declosing $slib_data
 21 
slib_data=!declosing $slib_data
17 
slib_cnt=!itemcnt slib_data
 22 
slib_cnt=!itemcnt $slib_data
18 
!if $slib_cnt=1
 23 
!if $slib_cnt=1
19 
	slib_data=1,$slib_data
 24 
	slib_data=1,$slib_data
20 
!endif
25 
!endif
21 
slib_out=!exec octave lognormal_rnd($[exp($slib_a)],$[$slib_b^2], $slib_data)
 26 
slib_out=!exec octave lognormal_rnd($[exp($slib_a)],$[$slib_b^2], $slib_data)
22 
slib_out=!words2items $slib_out
 27 
!!slib_out=!exec octave lognrnd($[exp($slib_a)],$[$slib_b^2], $slib_data)
23 
 
 28 
 
24 
slib_out=!trim $slib_out
 29 
slib_out=!trim $slib_out
- 
 
 30 
slib_out=!replace internal $\
- 
 
 31 
$ by ; in $slib_out
- 
 
 32 
slib_out=!words2items $slib_out