<?

$tr="a2_2";
$a[$tr]=5;

printf("%s\n",$a['a2_2']);


$I=13.5*1024*1024;
$ATM=33.5*1024*1024;


$a3_2=437045;
$a3_4=489023;
$a2_5=303809;
$a5_2=181250;
$a5_3=541355;
$a3_5=310476;
$a2_4=344045;
$a4_2=267047;
$a4_3=4363;
$a2_3=476391;

//Ruch do Internetu
$as_2=$a3_2+$a4_2+$a5_2;
$b3_2=round($a3_2*$I/$as_2);
$b4_2=round($a4_2*$I/$as_2);
$b5_2=round($a5_2*$I/$as_2);

//Ruch z Internetu
$a2_s=$a2_3+$a2_4+$a2_5;
$b2_3=round($a2_3*$I/$a2_s);
$b2_4=round($a2_4*$I/$a2_s);
$b2_5=round($a2_5*$I/$a2_s);

//Ruch z Moreny do Chelmu
$as_c=$a3_4+$a3_5;
$bs_c=$ATM-$b3_2;
if ($bs_c+$b2_4+$b2_5>$ATM) $bs_c=$ATM-$b2_4-$b2_5;
$b3_4=round($a3_4*$bs_c/$as_c);
$b3_5=round($a3_5*$bs_c/$as_c);

//Ruch z Chelmu do Moreny
$as_m=$a4_3+$a5_3;
$bs_m=$ATM-$b4_2-$b5_2;
if ($bs_m+$b2_3>$ATM) $bs_m=$ATM-$b2_3;
$b4_3=round($a4_3*$bs_m/$as_m);
$b5_3=round($a5_3*$bs_m/$as_m);

//Ruch hub1-hub3
$b4_5=0;
$b5_4=0;
	
$wynik="b2_3=$b2_3\nb2_4=$b2_4\nb2_5=$b2_5\nb3_2=$b3_2\nb3_4=$b3_4\nb3_5=$b3_5\nb4_2=$b4_2\nb4_3=$b4_3\nb4_5=$b4_5\nb5_2=$b5_2\nb5_3=$b5_3\nb5_4=$b5_4\n";
	
echo "$wynik";

?>