--Bob Niederman, http://bob-n.com#!/usr/bin/perl -w # tested A LITTLE my ($file, $low, $hi) = @ARGV; open ($file, "<$file") or die "open of '$file' failed: $!"; chomp(@vals = <$file>); print "@vals\n"; @inrange = sort { $a <=> $b } (@vals); $inmin = $inrange[0]; $inmax = $inrange[-1]; $delta = ( $hi - $low )/($inmax - $inmin); @normal = map { $delta * ( $_ - $inmin) + $low } @vals; print "@normal\n";
In reply to Re: number normalization
by bobn
in thread number normalization
by Anonymous Monk
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |