#!/usr/bin/perl -w
require "rezest.pm";
$B = 2.2;
$epsilon = 0.0002;
$n_rl = 0.027746;
$m = 0.139;
$lambda = 82.0*3.14159/180.0;
$L = 3.57-1.90;
$n_m = 6*4;
$p = 1.0;
open (OUT,">rezest.txt");
for ($p = 0.1; $p < 5.0; $p *= 1.02) {
    calc_rez();
}
close(OUT);
exit;
