1) { $fprot++; } // подсчет числа фальшивых протоколов
}
$Yavka= $Xprotivvsego+$Xzavsego; // число проголосовавших избирателей общей (ЯВКА)
$Yavkaproc=(100*$Yavka/(10000*$N)); // общий процент явки на все избирательные участки
echo "Явка: голосов = ",$Yavka, ", процентов = ",$Yavkaproc, "
";
echo "Всего ЗА: голосов = ",$Xzavsego,", процентов от явки = ",100*$Xzavsego/$Yavka, "
";
echo "Всего ПРОТИВ: голосов = ",$Xprotivvsego, ", процентов от явки = ",100*$Xprotivvsego/$Yavka, "
";
echo "Фальшивых протоколов = ", $fprot, "
";
// Подсчет текущего среднего (сглаживания) графика распределения голосов "ЗА" в зависимости от явки
$isgl=0; // интервал сглаживания
for($i=0;$i<1000-4;$i++) {
$rsgl[$isgl++]=($r[$i]+$r[$i+1]+$r[$i+2]+$r[$i+3]+$r[$i+4]+$r[$i+5])/6;
}
// Конец подсчета
//график количества участков с равным процентом "ЗА" в зависимости от явки
for($x=0;$x<$Width;$x++) {imageline($img,$x,$Height,$x,$Height-$r[$x]*4,$color);}
imagestring($img, 5, 960, 460, "100%", $textcolor);
imagestring($img, 4, 460, 320, "Kol-vo uchastkov s ravnym protsentom ZA v zavisimosti ot yavki", $textcolor);
//график распределения по интервалу N голосов "ЗА"
for($x=0;$x<$Width;$x++) {imageline($img,$x,$Height-400,$x,$Height-$r1[$x]-400,$color);}
imagestring($img, 4, 680, 30, "Raspredeleniya golosov ZA po intervalu N", $textcolor);
// график распределения по интервалу N голосов "ПРОТИВ"
for($x=0;$x<$Width;$x++) {imageline($img,$x,$Height-300,$x,$Height-$r2[$x]-300,$color);}
imagestring($img, 4, 630, 130, "Raspredeleniya golosov PROTIV po intervalu N", $textcolor);
// график раcпределения ЯВКИ по интервалу N с шагом 0,1*N
imagestring($img, 4, 680, 230, "Racpredelenie YAVKI po intervalu N", $textcolor);
for($x=0;$x<$Width;$x++) {imageline($img,$x,$Height-200,$x,$Height-$r3[$x]-200,$color);}
//сглаженный график
for($x=0;$x<$Width-1;$x++) {imageline($img,$x,$Height-$rsgl[$x]*4,$x,$Height-$rsgl[$x+1]*4,$color1);}
$file="11.png";
Imagegif($img,$file );
echo("
");
ImageDestroy($img);
exit;
function imagegrid($img,$w,$h,$s,$color) { // разлиновать в клеточку
for($iw=1;$iw<$w/$s;$iw++){imageline($img,$iw*$s,0,$iw*$s,$h,$color);}
for($ih=1;$ih<$h/$s;$ih++){imageline($img,0,$ih*$s,$w,$ih*$s,$color);}
}
?>