Subversion Repositories wimsdev

Rev

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

Rev 7277 Rev 7692
Line 21... Line 21...
21 
:proc
 21 
:proc
22 
!reset slib_out
 22 
!reset slib_out
23 
!distribute  item $wims_read_parm into slib_data,slib_n,slib_p
 23 
!distribute  item $wims_read_parm into slib_data,slib_n,slib_p
24 
!default slib_n= 5
 24 
!default slib_n= 5
25 
!default slib_p=0.5
 25 
!default slib_p=0.5
26 
!if $slib_p>=1 or $slib_p<=0
26 
!if $slib_p>=1 or $slib_p<=0
27 
	slib_out=0
 27 
	slib_out=0
28 
	!exit
 28 
	!exit
29 
!endif
 29 
!endif
30 
slib_out=
 30 
slib_out=
31 
slib_data=!declosing $slib_data
 31 
slib_data=!declosing $slib_data
Line 43... Line 43...
43 
     slib_res=!exec octave binoinv($slib_q, $slib_n, $slib_p)
 43 
     slib_res=!exec octave binoinv($slib_q, $slib_n, $slib_p)
44 
     slib_out=!append item $slib_res to $slib_out
 44 
     slib_out=!append item $slib_res to $slib_out
45 
   !endif
 45 
   !endif
46 
  !next
 46 
  !next
47 
  !goto end
 47 
  !goto end
48 
!endif
48 
!endif
49 
 
 49 
 
50 
slib_out=!exec octave binoinv([$slib_data], $slib_n, $slib_p)
 50 
slib_out=!exec octave binoinv([$slib_data], $slib_n, $slib_p)
51 
 
 51 
 
52 
:end
 52 
:end
53 
 
 53