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