Subversion Repositories wimsdev

Rev

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

Rev 4330 Rev 7692
Line 41... Line 41...
41 
!if $slib_mind >=$slib_max
 41 
!if $slib_mind >=$slib_max
42 
	slib_out=!values 1 for x=1 to $slib_cnt
 42 
	slib_out=!values 1 for x=1 to $slib_cnt
43 
	!exit
 43 
	!exit
44 
!endif
 44 
!endif
45 
 
 45 
 
46 
slib_valeur=!exec pari vector(ceil($slib_maxd)-$slib_min+1,x,1.*binomial($slib_K,x+$slib_min-1)*binomial($slib_N-$slib_K,$slib_n-x-$slib_min+1)*$slib_b)
46 
slib_valeur=!exec pari vector(ceil($slib_maxd)-$slib_min+1,x,1.*binomial($slib_K,x+$slib_min-1)*binomial($slib_N-$slib_K,$slib_n-x-$slib_min+1)*$slib_b)
47 
 
 - 
 
48 
 
 47 
 
49 
!for slib_x in $slib_data
 48 
!for slib_x in $slib_data
50 
	!if $slib_x<$slib_min
 49 
	!if $slib_x<$slib_min
51 
		slib_out=!append item 0 to $slib_out
 50 
		slib_out=!append item 0 to $slib_out
52 
	!endif
 51 
	!endif