# control loop for contraction

#### Do you have a question? Post it now! No Registration Necessary.  Now with pictures!

I would like to use a control loop to achieve the maximum width on the
following contraction:

I'm trying to calculate an x s.t. 10 = (2**x )*1600.  bank4.pl has x at 6.5,
which is too low:

# bank4.pl
use strict;
use warnings;

# a cup is a twelfth of a quart
my \$number1 = 42;
my \$no2 = 2.71;

print STDOUT "no 1 is \$number1\n";
print STDOUT "no 2 is \$no2\n";

#US cup = 236.588238 cc
#1 centimeters = 0.393700787 inches

my \$cups_to_cc = 236.588238;

my \$cent_to_inch = 0.393700787;
# line 16 Semicolon seems to be missing at sugar3.pl line 16.
print STDOUT "no 3 is \$cups_to_cc\n";
print STDOUT "no 4 is \$cent_to_inch\n";

my \$no5 = 3;
my \$no6 = 4**\$no5;

print STDOUT "no 5 is \$no5\n";
print STDOUT "no 6 is \$no6\n";

my \$no7 = \$cups_to_cc * (\$cent_to_inch**\$no5);
print STDOUT "no 7 is \$no7\n";

my \$no7 = 7.5;
my \$no8 = 2**\$no7;
my \$no9 = 10*\$no8;

print STDOUT "no 5 7is \$no7\n";
print STDOUT "no 68 is \$no8\n";
print STDOUT "no 9 is \$no9\n";

# perl bank4.pl 2>text55.txt >text56.txt
# end script beigin putput
no 1 is 42
no 2 is 2.71
no 3 is 236.588238
no 4 is 0.393700787
no 5 is 3
no 6 is 64
no 7 is 14.4375000473569
no 5 7is 6.5
no 68 is 90.5096679918781
no 9 is 905.096679918781

bank5.pl comes in too high with x at 7.5 and a result of 1800.
#bank5.pl
use strict;
use warnings;

# a cup is a twelfth of a quart
my \$number1 = 42;
my \$no2 = 2.71;

print STDOUT "no 1 is \$number1\n";
print STDOUT "no 2 is \$no2\n";

#US cup = 236.588238 cc
#1 centimeters = 0.393700787 inches

my \$cups_to_cc = 236.588238;

my \$cent_to_inch = 0.393700787;
# line 16 Semicolon seems to be missing at sugar3.pl line 16.
print STDOUT "no 3 is \$cups_to_cc\n";
print STDOUT "no 4 is \$cent_to_inch\n";

my \$no5 = 3;
my \$no6 = 4**\$no5;

print STDOUT "no 5 is \$no5\n";
print STDOUT "no 6 is \$no6\n";

my \$no7 = \$cups_to_cc * (\$cent_to_inch**\$no5);
print STDOUT "no 7 is \$no7\n";

my \$no7 = 6.5;
my \$no8 = 2**\$no7;
my \$no9 = 10*\$no8;

print STDOUT "no 5 7is \$no7\n";
print STDOUT "no 68 is \$no8\n";
print STDOUT "no 9 is \$no9\n";

# perl bank5.pl 2>text55.txt >text56.txt
#end source begin output
no 1 is 42
no 2 is 2.71
no 3 is 236.588238
no 4 is 0.393700787
no 5 is 3
no 6 is 64
no 7 is 14.4375000473569
no 5 7is 7.5
no 68 is 181.019335983756
no 9 is 1810.19335983756
# end out begin comment

So x is gonna be between 7.3 and 7.35.

How do I do the contraction to the full width of the datatype?
--
"Der Katze tritt die Treppe hoch;  Der Kater tritt sie krumm.%
% De Teufel geit um; er bringt de menschen allet dumm."
schau, schau