Subversion Repositories wimsdev

(root)/trunk/wims/public_html/scripts/slib/stat/exponentialcdf – Rev 4330 → 7692



!endif
 
slib_data=!declosing $slib_data
slib_out=
!for slib_x in $slib_data
 !if $slib_x<0
   slib_out=!append item 0 to $slib_out
 !else
   slib_out=!append item  $[1-exp(-$slib_p*$slib_x)] to $slib_out
 !endif
!next slib_x

Rev 4330	Rev 7692
Line 21...	Line 21...
21	!endif	21	!endif
22		22
23	slib_data=!declosing $slib_data	23	slib_data=!declosing $slib_data
24	slib_out=	24	slib_out=
25	!for slib_x in $slib_data	25	!for slib_x in $slib_data
26	!if $slib_x<0	26	!if $slib_x<0
27	slib_out=!append item 0 to $slib_out	27	slib_out=!append item 0 to $slib_out
28	!else	28	!else
29	slib_out=!append item $[1-exp(-$slib_p*$slib_x)] to $slib_out	29	slib_out=!append item $[1-exp(-$slib_p*$slib_x)] to $slib_out
30	!endif	30	!endif
31	!next slib_x	31	!next slib_x