sub find_range
    {
        my $max=$_[0];
        my $min=$_[1];
        my $step=$_[2];
        my @step_part;
        my $range;
        $range=($max-$min)/($step_real);
        return($range);
    }