Плагиата.нет

     Далее идет PHP-код

Есть такой замечательный форумский движок Simple Machine Forum. И есть не менее замечательный мод для него - мод наградок. Мне все в нем нравится. Но столкнулся с одной проблемой. В настройках прав доступа есть галочка - разрешить пользователям управлять наградами (Manage Awards), но она не работает. Точнее работает, но не совсем так как надо. Права может получить пользователь, если у него есть право администрирования форума и базы данных. А этого нам не нужно. Итак решение. Нужно найти файл в установленном форуме Sources/Admin.php и внести туда несколько изменений. Первое: найти и удалить следующий код, отвечающий за меню в административном разделе.

'awards' => array(
'label' => $txt['awards'],
'file' => 'ManageAwards.php',
'function' => 'Awards',
'icon' => 'awards.gif',
'permission' => array('manage_awards'),
'subsections' => array(
'main' => array($txt['awards_main']),
'modify' => array($txt['awards_modify']),
'assign' => array($txt['awards_assign']),
'categories' => array($txt['awards_categories']),
'settings' => array($txt['awards_settings']),
),
),

Второе: найти следующую часть кода (она находится немного выше удаленного куска)

'layout' => array(
'title' => $txt['layout_controls'],

и вставить ВЫШЕ

'awards' => array(
'title' => $txt['awards'],
'permission' => array('manage_awards'),
'areas' => array(
'awards' => array(
'label' => $txt['awards'],
'file' => 'ManageAwards.php',
'function' => 'Awards',
'icon' => 'awards.gif',
'permission' => array('manage_awards'),
'subsections' => array(
'main' => array($txt['awards_main']),
'modify' => array($txt['awards_modify']),
'assign' => array($txt['awards_assign']),
'categories' => array($txt['awards_categories']),
'settings' => array($txt['awards_settings']),
),
),
),
),

Всё заработает! Удачи.
------------------------------------------------------------

Если Вы питаете слабость по такой вещи, как брендовая одежда загляните на сайт glamourdress.ru. Здесь есть из чего выбрать, есть чем себя побаловать. Удобный интерфейс, приятный дизайн, качественный товар.

Наберите в любом поисковике запрос букеты из тюльпанов доставка цветов и вы получите множество ссылок на всякие разные он-лайн магазины и доставки цветов. Но все же лучший из них - это sendflowers.ru.

Я вот всё думал: ужасные фальсификации, карусели, вбросы бюллетеней, множество роликов на ютубе... Сколько на этом можно добавить процентов голосов? Ну 2 процента, ну 3... Тут в интернете появилась новая забава. Данные по результатам голосования доступны в открытом доступе по каждому избирательному участку на сайте избирательной комиссии. Вот, например, участок номер 107 по воронежской области

Давайте применим статистический анализ к результатам выборов, выложенных в открытый доступ нашей избирательной комиссии. Вам интересно посмотреть насколько "скорректировали" итоги голосования в Воронеже? Показываю...

По вертикали - количество избирательных участков, по горизонтали - явка. Всего 91227 избирательных участков по всей России.

В соответствии с законом нормального распределения случайной величины, на которую оказывают влияние множество случайных факторов, график должен иметь симметричную форму колокола. Что же видим мы? Завышенное количество избирательных участков с высокой явкой и участки с явкой в 100%.

Картина по Воронежской области. График не такой гладкий, так как меньше статистических данных, всего 1684, но тенденцию можно рассмотреть.

А теперь давайте посмотрим, как же голосуют эти "неизвестные" науке избиратели.

Явка избирателей, проголосовавших за "обычные" партии.

Справедливая Россия, Воронежская область

ЛДПР, Воронежская область

КПРФ, Воронежская область

А вот явка избирателей "необычной" партии.

Единая Россия, , Воронежская область

С помощью статистических методов можно оценить реальный результат ЕР. Вот построил график распределения голосов за Единую Россию в зависимости от явки по Воронежской области. Точками показаны избирательные участки, где были соответствующие результаты явки и процента за ЕР.

Самая темная область - это и есть реальный результат. Все остальное - вбросы и коррекция в пользу ЕР с положительной корреляцией от явки.

КПРФ, Воронеж и область

ЛДПР, Воронеж и область

Единая Россия - положительная корреляция от явки, результат около 30%
КПРФ, Справедливая Россия - отрицательная корреляция. КПРФ даже выше 30%
ЛДПР - нулевая корреляция

Что это означает. Что голоса Единой России прибавляли за счет КПРФ и Справедливой России. В Воронежской области победили коммунисты. По всей России победила Единая Россия с небольшим отрывом от КПРФ.

Общий график для 4 партий ЕдРо, КПРФ, ЛДПР, СР

Реальный результат каждой партии можно оценить на пороге явки 40-50 процентов

Исходный код для построения таких графиков на Delphi. Можете сами попробовать и убедиться. Данные для построения графиков можно взять здесь http://eugenyboger.livejournal.com/4514.html

  var i, j: Integer;
      TTT: TStrings;
      F: TextFile;
      str: string;
      yavka, edropercent: double;
      yavkaarray,
      yavkakprf,
      yavkaapple,
      yavkaldpr,
      yavkasr, yavkaedro: array[0..100] of integer;
begin
  Series1.Clear;
  Series2.Clear;
  Series3.Clear;
  Series4.Clear;
  Series5.Clear;
  Series6.Clear;
  TTT := TStringList.Create;
  for i := 0 to 100 do yavkaarray[i] := 0;

  for i := 0 to 100 do yavkakprf[i] := 0;
  for i := 0 to 100 do yavkaapple[i] := 0;
  for i := 0 to 100 do yavkaldpr[i] := 0;
  for i := 0 to 100 do yavkasr[i] := 0;
  for i := 0 to 100 do yavkaedro[i] := 0;
   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:\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
    Readln(f, str);
    TTT.CommaText := str;
    yavka := (StrToFloat(TTT[9 + 4]) +
 StrToFloat(TTT[8 + 4]))/StrToFloat(TTT[4]) * 100;
    yavkaarray[round(yavka)] := yavkaarray[round(yavka)] + 1;

    edropercent := StrToFloat(TTT[23 + 4])/(StrToFloat(TTT[9 + 4]) +
 StrToFloat(TTT[8 + 4])) * 100;
    Series8.AddXY(yavka, edropercent);

    edropercent := StrToFloat(TTT[21 + 4])/(StrToFloat(TTT[9 + 4]) +
 StrToFloat(TTT[8 + 4])) * 100;
    Series9.AddXY(yavka, edropercent);

    edropercent := StrToFloat(TTT[19 + 4])/(StrToFloat(TTT[9 + 4]) +
 StrToFloat(TTT[8 + 4])) * 100;
    Series10.AddXY(yavka, edropercent);

    edropercent := StrToFloat(TTT[18 + 4])/(StrToFloat(TTT[9 + 4]) +
 StrToFloat(TTT[8 + 4])) * 100;
    Series11.AddXY(yavka, edropercent);

    //едро
    yavka := StrToFloat(TTT[23 + 4])/StrToFloat(TTT[4]) * 100;
    yavkaedro[round(yavka)] := yavkaedro[round(yavka)] + 1;

    //ср
    yavka := StrToFloat(TTT[18 + 4])/StrToFloat(TTT[4]) * 100;
    yavkasr[round(yavka)] := yavkasr[round(yavka)] + 1;

    //ldpr
    yavka := StrToFloat(TTT[19 + 4])/StrToFloat(TTT[4]) * 100;
    yavkaldpr[round(yavka)] := yavkaldpr[round(yavka)] + 1;

    //kprf
    yavka := StrToFloat(TTT[21 + 4])/StrToFloat(TTT[4]) * 100;
    yavkakprf[round(yavka)] := yavkakprf[round(yavka)] + 1;

    //apple
    yavka := StrToFloat(TTT[22 + 4])/StrToFloat(TTT[4]) * 100;
    yavkaapple[round(yavka)] := yavkaapple[round(yavka)] + 1;

    inc(i);
   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 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 yavkakprf[i] > 0 then Series2.AddXY(i, yavkakprf[i]);
   for i:=0 to 100 do
 if yavkaapple[i] > 0 then Series5.AddXY(i, yavkaapple[i]);
   Closefile(f); {Closes file F}
  TTT.Free;

----------------------------------------
Автоматизация строительных технологий позволяет более эффективно расходовать материалы. Посмотрите, например на такое устройство, как бетоносмесительная установка на сайте beteh.ru. Полный контроль над производством и мобильность - это далеко не все преимущества.

Основы безопасности жизнедеятельности (ОБЖ) на производстве советую изучить на сайте ecokub.ru. Сайт посвящен в основном экологии, есть статьи, анализ, доклады квалифицированных экспертов в этой области.

Решим данную задачу с использованием рекурсии. Рекурсия - это одна из фундаментальных концепций в математике и программировании, Рекурсия - это одна из форм мышления, это мощное средство, позволяющее строить элегантные и выразительные алгоритмы.

Объект называется рекурсивным, если он содержит сам себя или определен с помощью самого себя.

Если процедура р содержит явное обращение к самой себе, то она называется явно рекурсивной. Если процедура р содержит обращение к некоторой процедуре q, которая в свою очередь содержит прямое или косвенное обращение к р, то р - называется косвенно рекурсивной.

Но рекурсивная программа не может вызывать себя бесконечно, иначе она никогда не остановится, таким образом в программе (функции) должна присутствовать еще один важный элемент - так называемое терминальное условие, то есть условие при котором программа прекращает рекурсивный процесс.

Приведем пример решения задачки по переименованию файлов и папок на Delphi. В данной процедуре происходит поиск и переименование всех папок и файлов в заданном каталоге. Обращаю внимание, что процедура рекурсивная - DoIt вызывается внутри себя.

procedure DoIt(const Dir: string);
var
 SR: TSearchRec;
begin
 SetCurrentDir(Dir);
 if FindFirst(Dir + '*.*', faAnyFile, SR) = 0 then
 begin
   repeat
     if (SR.Name <> '.') and (SR.Name <> '..') then
     begin
       RenameFile(SR.Name, AnsiLowerCase(SR.Name));
       if (SR.Attr and faDirectory) <> 0 then
         DoIt(Dir + SR.Name + '\');
     end;
   until FindNext(SR) <> 0;
 FindClose(SR);
 end;
end;

-------------------------------------------

Для жителей Волгограда, собирающихся совершать операции с недвижимостью будет интересна ссылка - Покупка и продажа квартир Волгограда. Доска объявлений dorus.ru зарекомендовала себя, как надежный источник информации.

Интернет предлагает решение нам различных проблем: объявления, услуги, контакты, информация. Если кто-то страдает такой проблемой, как повышенная потливость подмышек, можете заглянуть на сайт natalicosmetolog.ru. Возможно, что ваша проблема будет решена.

Решил написать небольшой опус от новичка в навигаторах.
Постараюсь расписать обыкновенным языком - не зная всех примочек програмного языка.
Итак, существует программа, которая подменяет основное меню. Называется она Sysinfo.exe написанная немецким програмистом. К нему прилагается файл ini. SysinfoSettings.ini, в котором прописывается путь к ПЕРВОМУ открывающему окну. Это может быть Main.ini, Sistem.ini и т.д. т.е. все идет по цепочке. (допустим он ссылается на Main.ini) В этом файле (main.ini), открывая его блокнотом видим - для неопытных, абракодабру в виде чего-то там = чего-то там. (Допустим на навигационную систему igo.) Нас интересует ПУТЬ до этой навигационной программы. Путь это там где лежит наша программа !!!.exe пример: она лежит на флешкарте SDMMC, в папке Navigation, далее в папке IGO8, далее сам загрузочный файл IGO8.exe. Значится путь будет такой :
Command = \SDMMC\Navigation\IGO8\IGO8.exe
В разных навигаторах по разному - я пишу смысл, далее разбираться самим. Соответственно в файлах ini - написана программа. Ее то вам и предстоит понять, побороть и радоваться своему произведению.
Очень хорошо прописано - для интересующихся в прилагаемом файлике все команды. И помните - каждые сборки люди собирают и тестят на СВОИХ навигаторах. Поэтому для удобства они могут файлы ini переименовывать как им удобно.
Вопросы конечно будут - обращайтесь. Но главное понять суть. Тогда все будет проще.

Описание составил dron3000 (4pda.ru) на основе:
материалов разработчика Daniel Schumann,
справочных данных namut (gps-club.ru)
отдельное спасибо:
nikonorovv, он же vovanich (gps-club.ru) за помощь;
karlusha (4pda.ru) за полезную информацию и эксперименты

---------------------------------------------------

Расскажу немного про новый автомобайл.

Выбираю из подержанных автомобилей. Широкий выбор, удачные цены. Заходите на сайт www.automobile.ru

Затевая квартирный переезд рассчитываете на огромные затраты? Посетите сайт tyazhelovozov.ru, возможно, там вы сможете найти оптимальное решение для своих проблем.

Иногда требуется аренда автомобиля с водителем. Например для проведения праздничных мероприятий. Сейчас удобнее воспользоваться интернетом и найти требуемую услугу на сайте dilis.ru.