Subversion Repositories wimsdev

Rev

Rev 4986 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 4986 Rev 13586
Line 1... Line 1...
1 
!if $wims_read_parm!=slib_header
 1 
!if $wims_read_parm!=slib_header
2 
!goto proc
 2 
  !goto proc
3 
!endif
 3 
!endif
4 
 
 4 
 
5 
slib_parms=3\
 5 
slib_parms=3\
6 
,m\
 6 
,m\
7 
,n\
 7 
,n\
Line 19... Line 19...
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 nbinrnd($slib_a,$slib_b,$slib_data) + $slib_a
 26 
slib_out=!exec octave nbinrnd($slib_a,$slib_b,$slib_data) + $slib_a
27 
 
 27 
 
28 
slib_out=!trim $slib_out
 28 
slib_out=!trim $slib_out
29 
slib_out=!replace internal $\
 29 
slib_out=!replace internal $\