Subversion Repositories wimsdev

Rev

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

Rev 4482 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=2\
5
slib_parms=2\
6
,m\
6
,m\
7
,n
7
,n
Line 19... Line 19...
19
!distribute item $wims_read_parm into slib_data,slib_a
19
!distribute item $wims_read_parm into slib_data,slib_a
20
slib_data=!declosing $slib_data
20
slib_data=!declosing $slib_data
21
slib_cnt=!itemcnt $slib_data
21
slib_cnt=!itemcnt $slib_data
22
!if $slib_cnt=1
22
!if $slib_cnt=1
23
	slib_data=1,$slib_data
23
	slib_data=1,$slib_data
24
!endif	
24
!endif
25
!!deprecated syntax
25
!!deprecated syntax
26
!!slib_out=!exec octave chisquare_rnd($slib_a,$slib_data)
26
!!slib_out=!exec octave chisquare_rnd($slib_a,$slib_data)
27
slib_out=!exec octave chi2rnd($slib_a,$slib_data)
27
slib_out=!exec octave chi2rnd($slib_a,$slib_data)
28
 
28
 
29
slib_out=!trim $slib_out
29
slib_out=!trim $slib_out
30
slib_out=!replace internal $\
30
slib_out=!replace internal $\
31
$ by ; in $slib_out
31
$ by ; in $slib_out
32
slib_out=!words2items $slib_out
32
slib_out=!words2items $slib_out
33
 
-
 
34
 
33
 
35
slib_out=!trim $slib_out
34
slib_out=!trim $slib_out