#! /usr/pkg/bin/perl

$k = 1.5;
$F = 1.0;

# l = F/k + l_0

sub Length ($$$) {
    my ($l0, $n, $F) = @_;

#    return ($F/$n/$k) * ( 1 + rand()) + $l0* (1 + rand()/8) + rand();
    return 0.1*($F/$n/$k) * ( 1 + rand()) + $l0* (1 + rand()/8) + 150*rand();

}

for ($i = 50; $i <= 150; $i += 5) {
#    print "$i\t", $k*$i + $k*$i/3*rand() + 10*rand(), "\n";
    printf "%4d", $i;
    for (my $n = 1; $n <= 5; ++$n) {
	printf "\t%7.2f", Length($i, $n, $F);
    }
    print "\n";

}