Я скачал все-все данные по голосованию по каждому избирательному участку и провел небольшой анализ.
Итак. Вот график, который мне очень нравится - явка избирателей, которые голосовали за Зюганова. Очень гладкая и симметричная кривая Гаусса прямо как из учебника по Теории Вероятности.
Вот аналогичный график проголосовавших за Путина по всей России.
И по Воронежу... Ничего общего с "теорией". Уродливая кривая Гаусса говорит о "ручном вмешательстве".
Теперь можно попытаться оценить "честный" результат. Для этого разобьем все УИКи (избирательные комисии) по проценту проголосовавших за каждого кандидата и по явке с дискретностью 10% и отметим их разными цветами на графике.
При нормальной ситуации (без вмешательства в явку) на графиках должно получаться равномерное пятно без выбросов за какого-то определенного кандидата. Здесь же есть явный выброс за Путина. У всех остальных, особенно у Зюганова и Прохорова количество голосов падает с увеличением явки. Относительно честный результат можно отследить там, где пятно наиболее выражено. У Путина это что-то около 50%. То есть это примерно тот результат, о котором говорила Лига Избирателей, созданная Парфеновым и Акуниным. Они собирали данные протоколов от наблюдателей по смс. По их выборке Путин набирал 53%.
Интересно, что в этот раз благодаря высокой активности наблюдателей, Москва отстояла свой выбор. Вот только Московские УИКи. Практически идеальная картина.
Ну и официальный результат по Москве соответсвтующий: Путин 46.95%, Прохоров 20.45%, Зюганов 19.18%.
(http://www.vybory.izbirkom.ru/region/region/izbirkom?action=show&root=1000020&tvd=100100031793849&vrn=100100031793505®ion=0&global=true&sub_region=0&prver=0&pronetvd=null&vibid=100100031793849&type=227]http://www.vybory.izbirkom.ru/region/region/izbirkom?action=show&root=1000020&tvd=100100031793849&vrn=100100031793505®ion=0&global=true&sub_region=0&prver=0&pronetvd=null&vibid=100100031793849&type=227)
В Питере картина хуже. Но лучше, чем было на думских выборах.
И вот наша Воронежская область. Как и в остальных регионах выборы сфальсифицированы.
Видно, что Путин пользуется большой поддержкой, примерно 50% проголосовавших. Возможно, он смог бы совершенно честно победить в первом туре. Возможно, что он победил бы во втором. Но вбросы, карусели и т. д. однозначно были примерно на уровне 14-16%. Это огромное число фальсификаций по все стране. Я считаю это очень вредным явлением. Мы просто теряем время, еще 6 лет, за которые не сможем победить коррупцию и избавиться от нефтяной зависимости, как не смогли этого сделать за прошедшие 12. Но все-таки с развитием интернета, образования, политической системы рано или поздно мы все-таки выйдем на регулярную сменяемость власти, люди станут глубже разбираться во всем этом. Учитывая наш сегодняшний опыт, я думаю, из Конституции все-таки исчезнет это слово "подряд". А из выборного законодательства исчезнут всякие лазейки типа возможности голосовать по заявлению из-за занятости на работе с непрерывным циклом.
Вот программа на Delphi, с помощью которой были построены эти графики
...............
i:=0;
//AssignFile(f, 'c:\voronezh.csv'); {Assigns the Filename}
//AssignFile(f, 'c:\chechen.csv'); {Assigns the Filename}
//AssignFile(f, 'c:\kirov.csv'); {Assigns the Filename}
AssignFile(f, 'c:\output-uiks.csv');
//AssignFile(f, 'c:\results.csv'); {Assigns the Filename}
//AssignFile(f, 'c:\ostrogozhsk.csv'); {Assigns the Filename}
Reset(f); {Opens the file for reading}
while not eof(f) do
begin
log.Add(intToStr(i));
Readln(f, str);
TTT.CommaText := str;
log.Add(TTT[Stacionar]);
log.Add(TTT[Perenos]);
log.Add(TTT[TotalInd]);
a:= StrToFloat(TTT[Stacionar]);
b:= StrToFloat(TTT[Perenos]);
c:= StrToFloat(TTT[TotalInd]);
// if (c=0) then log.add(inttostr(i) + '- всего избир 0') else
// if (utf8toansi(TTT[0])<>'Воронежская область')or(c=0) then
log.add(inttostr(i) + '- всего избир 0') else
// if (utf8toansi(TTT[0])<>'Город Санкт-Петербург')or(c=0) then
log.add(inttostr(i) + '- всего избир 0') else
// if (utf8toansi(TTT[1])<>'Острогожская')or(c=0) then
log.add(inttostr(i) + '- всего избир 0') else
// if (utf8toansi(TTT[0])<>'Московская область')or(c=0) then
log.add(inttostr(i) + '- всего избир 0') else
if (utf8toansi(TTT[0])<>'Город Москва')or(c=0) then
log.add(inttostr(i) + '- всего избир 0') else
begin
// d := (a + b)/c;
//
//
// yavka := (d * 100);
// yavkaarray[round(yavka)] := yavkaarray[round(yavka)] + 1;
// edropercent := StrToFloat(TTT[23 + 4])/(StrToFloat(TTT[9 + 4])
+ StrToFloat(TTT[8 + 4])) * 100;
// edropercent := StrToFloat(TTT[23 + 4])/(StrToFloat(TTT[9 + 4])
+ StrToFloat(TTT[8 + 4])) * 100;
// Series8.AddXY(yavka, edropercent);
//
// Pupercent := StrToFloat(TTT[Pu])/(StrToFloat(TTT[Perenos])
+ StrToFloat(TTT[Stacionar])) * 100;
// Series8.AddXY(yavka, pupercent);
//
// edropercent := StrToFloat(TTT[Zu])/(StrToFloat(TTT[Perenos])
+ StrToFloat(TTT[Stacionar])) * 100;
// Series9.AddXY(yavka, edropercent);
////
// edropercent := StrToFloat(TTT[Zhir])/(StrToFloat(TTT[Perenos])
+ StrToFloat(TTT[Stacionar])) * 100;
// Series10.AddXY(yavka, edropercent);
// //
// edropercent := StrToFloat(TTT[Mir])/(StrToFloat(TTT[Perenos])
+ StrToFloat(TTT[Stacionar])) * 100;
// Series11.AddXY(yavka, edropercent);
// //
// edropercent := StrToFloat(TTT[Proh])/(StrToFloat(TTT[Perenos])
+ StrToFloat(TTT[Stacionar])) * 100;
// Series12.AddXY(yavka, edropercent);
//
// едро
// yavka := StrToFloat(TTT[Pu])/StrToFloat(TTT[TotalInd]) * 100;
// yavkaedro[round(yavka)] := yavkaedro[round(yavka)] + 1;
// //ср
// yavka := StrToFloat(TTT[Mir])/StrToFloat(TTT[TotalInd]) * 100;
// yavkasr[round(yavka)] := yavkasr[round(yavka)] + 1;
//
// //ldpr
// yavka := StrToFloat(TTT[Zhir])/StrToFloat(TTT[TotalInd]) * 100;
// yavkaldpr[round(yavka)] := yavkaldpr[round(yavka)] + 1;
//
// //kprf
yavka := StrToFloat(TTT[Zu])/StrToFloat(TTT[TotalInd]) * 100;
yavkakprf[round(yavka)] := yavkakprf[round(yavka)] + 1;
// //apple
// yavka := StrToFloat(TTT[Proh])/StrToFloat(TTT[TotalInd]) * 100;
// yavkaapple[round(yavka)] := yavkaapple[round(yavka)] + 1;
inc(i);
end;
end;
caption:='всего участков: ' + IntToStr(i);
//
//
for i:=0 to 100 do if yavkaarray[i] > 0 then Series1.AddXY(i, yavkaarray[i]);
for i:=0 to 100 do if yavkakprf[i] > 0 then Series2.AddXY(i, yavkakprf[i]);
for i:=0 to 100 do if yavkaedro[i] > 0 then Series3.AddXY(i, yavkaedro[i]);
for i:=0 to 100 do if yavkasr[i] > 0 then Series4.AddXY(i, yavkasr[i]);
for i:=0 to 100 do if yavkaldpr[i] > 0 then Series6.AddXY(i, yavkaldpr[i]);
for i:=0 to 100 do if yavkaapple[i] > 0 then Series5.AddXY(i, yavkaapple[i]);
log.SaveToFile('c:\log1111.txt');
Closefile(f); {Closes file F}
TTT.Free;
log.Free;
----------------------------------------------
Для тех, кто ищет в поисковиках "интернет магазин детской одежды киев" даю ссылку детская одежда интернет магазин. Заказывать одежду через интернет удобно и выгодно, особенно для детей. Пересылка стоит не очень дорого, и цена за вещи получается намного выгоднее магазинных.
Был на семинаре Каро, ужасно интересно у них там все организовано. Организатором оказалась компания lives tag, которая занимается проведением семинаров. Вот их сайт http://livestage.ru, обращайтесь. Заказав проведение семинаров у профессионалов, вы получите не только приток клиентов, но и улучшите свой имидж.
Нашелся интересный сайт по туризму, когда я искал плато Наска на карте Гугла. Особенно понравилась статья про Океанию http://webmandry.com/okeaniya/
