my $span = $f_max - $f_min; $y = (-f($x)-$f_min)*$graph_size/$span;