steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

math.statistics: simpler (faster) version of rescale.

John Benediktsson 2012-05-04 14:51:38 -07:00
parent 35d4a2bb1c
commit 2bc643cb84
1 changed files with 1 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/math/statistics/statistics.factor
View File

@ -312,5 +312,4 @@ ALIAS: corr sample-corr
[ 1 tail-slice ] keep [ - ] 2map ; [ 1 tail-slice ] keep [ - ] 2map ;
: rescale ( u -- v ) : rescale ( u -- v )
[ ] [ infimum ] [ supremum over - ] tri dup minmax over - [ v-n ] [ v/n ] bi* ;
[ v-n ] [ v/n ] bi* ;