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