math.statistics: simpler (faster) version of rescale.
parent
87686a9a31
commit
7ab521f0ba
|
@ -312,5 +312,4 @@ ALIAS: corr sample-corr
|
|||
[ 1 tail-slice ] keep [ - ] 2map ;
|
||||
|
||||
: rescale ( u -- v )
|
||||
[ ] [ infimum ] [ supremum over - ] tri
|
||||
[ v-n ] [ v/n ] bi* ;
|
||||
dup minmax over - [ v-n ] [ v/n ] bi* ;
|
||||
|
|
Loading…
Reference in New Issue