#!/usr/bin/perl -w
require "rezest.pm";
$B = 1.74;
$epsilon = 0.00015;
$n_rl = 0.0317;
$n_rl_front = 0.0212;
$lambda = 0*3.14159/180.0;
$L = 0.58600 - 0.16895;
$n_m = 23;
$m = 0.139;
open (OUT,">cdc_pi.txt");
open (OUTA, ">cdc_pi_angle.txt");
for ($p = 0.01; $p < 2.0; $p *= 1.02) {
    calc_rez();
    calc_angle();
}
close(OUT);
close(OUTA);
$m = 0.938;
open (OUT,">cdc_p.txt");
open (OUTA, ">cdc_p_angle.txt");
for ($p = 0.01; $p < 2.0; $p *= 1.02) {
    calc_rez();
    calc_angle();
}
close(OUT);
close(OUTA);
exit;
