Help for this page

Select Code to Download


  1. or download this
    #! perl -slw
use strict;
...
my $lscale3 = genLogScaler( 0, +1000, 0.1, 8000 );
printf "%7.1f -> %.1f\n", $_, $lscale3->( $_ ) for 0.1, 1, 10, 100, 80
+0, 1000, 4000, 6000, 8000;
  2. or download this
    C:\test>genScalar.pl
Linear:
...
 6000.0 -> 968.0
 8000.0 -> 1000.0