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