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