#!/usr/bin/perl -w
$m = 0.139;
$p = 1.0;
$lambda = (90 - 20)*3.1416/180;
for ($p = 0.1; $p < 5.0; $p = $p*1.02) {
    print "$p ";
    open(DATA, "echo $p $lambda $m | rezest_point_comp |");
    $line = <DATA>;
    @data = split(/\s+/, $line);
    for ($i = 0; $i <= $#data; $i++) {
	if ($data[$i]) {
	    print "$data[$i] ";
	}
    }
    close(DATA);
    print "\n";
}
exit;
