Subversion Repositories wimsdev

Rev

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

Rev 4161 Rev 4328
Line 17... Line 17...
17
:proc
17
:proc
18
slib_out=
18
slib_out=
19
 
19
 
20
!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
21
slib_data=!declosing $slib_data
21
slib_data=!declosing $slib_data
22
slib_cnt=!itemcnt slib_data
22
slib_cnt=!itemcnt $slib_data
23
!if $slib_cnt=1
23
!if $slib_cnt=1
24
	slib_data=1,$slib_data
24
	slib_data=1,$slib_data
25
!endif	
25
!endif	
26
slib_out=!exec octave gamma_rnd($slib_a,$slib_b,$slib_data)
26
slib_out=!exec octave gamma_rnd($slib_a,$slib_b,$slib_data)
-
 
27
!!slib_out=!exec octave gamrnd($slib_a,$slib_b,$slib_data)
27
 
28
 
-
 
29
slib_out=!trim $slib_out
-
 
30
slib_out=!replace internal $\
-
 
31
$ by ; in $slib_out
28
slib_out=!words2items $slib_out
32
slib_out=!words2items $slib_out
29
 
-
 
30
slib_out=!trim $slib_out
-