clearkbdbuf

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

Лицевая сторона бумажки


Оборотная сторона бумажки, радует не меньше (особенно первое слово в списке действий, которые ассоциируются у них с сейфом)


Когда я разглядел эмблемму, это меня позабавило еще больше


Медведь с ключем на логотипе как бы прозрачно намекает на название вида деятельности, которым занимаются эти ребята и их прошлое (впрочем, может быть у них просто хорошее чувство юмора) :)))))) Ребятам по ходу вообще пофигу что взламывать: и сейфы и замки и машины и им это весьма нравиться. Просто видимо им надоели проблемы с законом, и они решили заниматься любимым делом легально.
Лишь потом, на лицевой стороне в самом низу нашел надпись крупным планом, что присутствие владельца обязательно :))))

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

- Ну как вам в новом офисе?
- Да нормально, только вот рядом находится офис
какой-то странной конторы - они постоянно смеются.
- А чем контора занимается?
- Интернетом торгует  

Старый прикол из каких-то интернетов
К сожалению, не помню где услышал.

Я работаю в компании, которая предоставляет услуги связи. Наш отдел обслуживает достаточно большую сеть (более 1000 узлов, предстваляющих собой  различное управляемое сетевое железо), поэтому без автоматизации в нашей работе не обойтись. Для облегчения рутины каждый из нас использует разные инструменты, в основном это языки программирования perl или python. Вообще, у нас в отделе есть самое главное правило:
Все, что можно автоматизировать - нужно автоматизировать. 
Согласно этому правилу, если нужно обработать данные, например, таблицу и в ней более 15 строк, то пишется программа, которая это делает, так как задача может возникнуть вновь в более крупном масштабе (так не раз бывало). Зачастую программы (скрипты), которые что либо делают с сетевым железом называются роботами.
Так вот, недавно перед нами стала задача настройки крупных партий коммутаторов для строительства новых сегментов сети. Разумеется, вручную этим заниматься - нам показалось большим извращением, и мой коллега Иван решил написать робота на python, который будет заниматься настройкой этого железа, для последующей передачи монтерам.
Сегодня я ехал с успешно завершенных мероприятий по подключению дополнитиельного магистрального канала и решил поинтересоваться у коллеги, как там дела с роботом и настройкой коммутаторов, диалог получился примерно такой:

- Вано, ну как у тебя дела с роботом?
- Отлично, я его доделал, он щас сидит, конфигурит, а я на обед поехал.
- Ну и славненько, приятного аппетита!

Я сначала не обратил внимание на слово "сидит" и воспринял его как некую абстракцию :)
Но когда зашел в офис, который взорвался диким смехом (ухахатывались все, включая начальника отдела) и обнаружил вот такую картину, сам чуть не помер со смеха (кто не знает, фотки можно увеличивать, особенно последние :))):







Все коммутаторы к тому моменту были уже настроены скриптом и готовы к монтажу.
Обожаю свою работу и людей, с которыми работаю!


 

Недавно столкнулся с необходимостью вычисления фрактальной размерности шероховатого профиля для моей диссертационной работы. Мой научный руководитель настоятельно рекомендовал мне делать это методом, предложенным Хёрстом, так же этот метод  называется R/S -анализ.
При этом, метод реализуется следующим алгоритмом [1]:

1. Исходный числовой ряд Y делится на равные интервалы с количеством элементов равным n каждый;
2. Берется первый интервал с количеством элементов равной N=n, для него вычисляется среднее значение Yn;
3. Для указанного интервала вычисляем накопившееся отклонение YnN равное сумме разностей текущего элемента в ряде и среднего значения;
4. Находим максимум и минимум в функции накопившегося отклонения и разброс R = max(XnN) - min(XnN);
5. Вычисляем среднеквадратичное отклонение S для выбранного интервала;
6. Находим точку в логарифмических координатах ln(N/2) и ln(R/S);
7. Увеличиваем N на n элементов и повторяем действия 2-6 для нового интервала. N увеличиваем до тех пор пока N будет равно общему количеству элементов в исходном ряде Y;
8. К получившимся в логарифмических координатах точкам применяем метод наименьших квадратов и находим показатель херста H раный тангенсу угла наклона апроксимирующей прямой;
9. Фрактальная размерность ряда Y: D=2-H.

Принцип разбиения исходного интервала Y  на подинтервалы на каждой итерации показан на рис. 1


Для реализации данного алгоритма я использовал язык программирования perl, для вычислений я написал небольшой скрипт:

#! c:\perl\bin\perl.exe

use strict;
print "-----------------------------------------------------------\n";

open(IN_F, $ARGV[0]);
my $Size = my @Seq = <IN_F>; #Исходная последовательность чисел полученная из файла и ее размер
close(IN_F);

chomp($_) foreach (@Seq); #Убираем символы перевода строки

my $step = @Seq / $ARGV[1];
$step =~ s/\..+//; #Убираем дробную часть если нацело не делится
my $global_count = 1; #Номер текущей итерации
my %result_dots; # Хэш с точками для применения метода наименьших квадратов

while ($global_count <= $ARGV[1]) {
 my $N = $global_count * $step;  #Вычисляем количество точек на текущей итерации
 my $i;
 #Вычисляем среднее среди точек, попавших в интервал
 my $Yn = 0;
 for ($i = 0;$i<$N;$i++) {
  $Yn += $Seq[$i];
 }
 $Yn /= $N;
 #Расчитываем накопившееся отклонение YnN, его максимум и минимум для вычисления размаха R, стандартное отклонение S
 my $YnN = 0;
 my $S = 0;
 my $YnNmax = $Seq[0] - $Yn;
 my $YnNmin = $Seq[0] - $Yn;
 for ($i = 0;$i<$N;$i++) {
  $YnN += $Seq[$i] - $Yn;
  $S += ($Seq[$i] - $Yn) ** 2;
  $YnNmax = $YnN if $YnNmax < $YnN;
  $YnNmin = $YnN if $YnN < $YnNmin;
 }
 $S = ($S / $N) ** 0.5;
 #Вычисляем размах и записываем в хэш координаты точек в логарифмических координатах
 my $R = $YnNmax - $YnNmin;
 $result_dots{log($N/2)} = log($R / $S);
 $global_count++;
}

# Применяем метод наименьших квадратов для нахождения показателя Хёрста
my $sum_xy = my $sum_x = my $sum_y = my $sum_x_2 = 0;

foreach my $x (keys %result_dots) {
 $sum_x += $x; #Сумма ln($N/2)
 $sum_xy += $x * $result_dots{$x}; #Сумма ln($N/2) * ln(R/S) 
 $sum_y += $result_dots{$x}; #Сумма ln(R/S)
 $sum_x_2 += $x ** 2; #Сумма ln($N/2)^2
}

my $H = ($sum_xy - (($sum_x * $sum_y) / $ARGV[1])) / ($sum_x_2 - (($sum_x ** 2) / $ARGV[1])); #Показатель Хёрста
my $D = 2 - $H; #Фрактальная размерность
print "Herst variable: $H\nFractal dimension: $D\n";
print "-----------------------------------------------------------\n";

Скрипт считает фрактальную размерность по описанному выше алгоритму. Формат запуска скрипта (на машине должен быть установлен интерпретатор perl, который включен в большинтсво дистрибутивов unix-подобных ОС, для ОС Windows (а так же для других ОС) его можно взять отсюда: http://www.activestate.com/activeperl/downloads):

perl herst1.pl fille_with_sequence number_of_fractions

где: fille_with_sequence - файл с последовательностью, которую необходимо исследовать; number_of_fractions - количество интервалов, на которые начально разбивается последовательность.

Для тестирования использовался числовой ряд, предствляющий собой координаты реального шероховатого профиля, которые можно взять вот тут: http://ifolder.ru/18926474.

После запуска данного скрипта с разным числом фрагментов, я удивился результатам:

F:\incoming>perl herst1.pl 2.txt 4
-----------------------------------------------------------
Herst variable: 0.833506945013763
Fractal dimension: 1.16649305498624
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 5
-----------------------------------------------------------
Herst variable: 0.993326030979438
Fractal dimension: 1.00667396902056
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 6
-----------------------------------------------------------
Herst variable: 0.89836188947755
Fractal dimension: 1.10163811052245
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 7
-----------------------------------------------------------
Herst variable: 0.87171864138398
Fractal dimension: 1.12828135861602
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 8
-----------------------------------------------------------
Herst variable: 0.864252212878602
Fractal dimension: 1.1357477871214
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 9
-----------------------------------------------------------
Herst variable: 0.88520609113872
Fractal dimension: 1.11479390886128
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 10
-----------------------------------------------------------
Herst variable: 0.899533602663427
Fractal dimension: 1.10046639733657
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 15
-----------------------------------------------------------
Herst variable: 0.892860988837549
Fractal dimension: 1.10713901116245
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 20
-----------------------------------------------------------
Herst variable: 0.899121957671727
Fractal dimension: 1.10087804232827
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 30
-----------------------------------------------------------
Herst variable: 0.952385651233815
Fractal dimension: 1.04761434876619
-----------------------------------------------------------
F:\incoming>perl herst1.pl 2.txt 40
-----------------------------------------------------------
Herst variable: 0.963209627707645
Fractal dimension: 1.03679037229236
-----------------------------------------------------------

 

Результаты отличаются при разном количестве фрагментов, на которые мы разбиваем исходную последовательность, при этом при увеличении количества фрагментов  (уменьшении шага циркуля), фрактальная размерность стремиться к 1.   Меня это несколько насторожило, поэтому я решил проверить скрипт на случайной последовательности (http://ifolder.ru/18926779), сгенерированной вот таким образом:

#! c:\perl\bin\perl.exe

open (OUT, ">white_noise.txt");
for ($i=0; $i < 2000;$i++){
 print OUT (rand(100)+600)."\n";
}
close(OUT);

Получил следующие результаты:

F:\incoming>perl herst1.pl white_noise.txt 5
-----------------------------------------------------------
Herst variable: 0.141551412446391
Fractal dimension: 1.85844858755361
-----------------------------------------------------------
F:\incoming>perl herst1.pl white_noise.txt 10
-----------------------------------------------------------
Herst variable: 0.230260523082708
Fractal dimension: 1.76973947691729
-----------------------------------------------------------
F:\incoming>perl herst1.pl white_noise.txt 15
-----------------------------------------------------------
Herst variable: 0.264838134632437
Fractal dimension: 1.73516186536756
-----------------------------------------------------------
F:\incoming>perl herst1.pl white_noise.txt 20
-----------------------------------------------------------
Herst variable: 0.255019824661695
Fractal dimension: 1.7449801753383
-----------------------------------------------------------
F:\incoming>perl herst1.pl white_noise.txt 30
-----------------------------------------------------------
Herst variable: 0.277833124297945
Fractal dimension: 1.72216687570206
-----------------------------------------------------------
F:\incoming>perl herst1.pl white_noise.txt 40
-----------------------------------------------------------
Herst variable: 0.322635312477564
Fractal dimension: 1.67736468752244
-----------------------------------------------------------

Указанная последовательность подчиняется нормальному закону распределения вероятностей, поэтому ее фрактальная размерность должна быть равна 1.5 [3]. Следовательно, где-то была допущена ошибка, я предположил, что ошибка в скрипте, однако, я все проверил, и не нашел :) Этот факт побудил меня искать еще алгоритмы R/S-анализа и наткнулся на еще один алгоритм [2], отличие этих двух алгоритмах в способе разбиения исходной последовательности Y:

1. Выбираем начальное число фрагментов n, на которые мы делим исходную последовательность Y, в каждом фрагменте  N=Y/n элементов;
2. На каждом фрагменте, считаем среднее значение Yn, накопившееся отклонение YnN=СУММА(Yi-Yn), находим размах R, средне-квадратичное отклонение S и ln(R/S);
3. Находим среднее значение среди полученных ln(R/S) на n интервалах исходной последовательности Y, получаем точку в координатах ln(N/2) и ln(R/S);
4. Уменьшаем количество интервалов на 1 и повторяем шаги 2-4 до тех пор, пока n не станет равным 0;
5. Применяем метод наименьших квадратов для полученных точек в координатах ln(N/2) и ln(R/S), находим показатель Хёрста;
6. Фрактальная размерность D=2-H.
 
Принцип разбиения исходного интервала Y  на подинтервалы на каждой итерации согласно этому алгоритму показан на рис. 2



Данный алгоритм реализованн в следующем скрипте:

#! c:\perl\bin\perl.exe

use strict;
print "-----------------------------------------------------------\n";

open(IN_F, $ARGV[0]);
my $Size = my @Seq = <IN_F>; #Исходная последовательность чисел полученная из файла и ее размер
close(IN_F);

chomp($_) foreach (@Seq); #Убираем символы перевода строки

my $global_count = $ARGV[1]; #Глобальный счетчик количества фрагментов
my %result_dots; #Конечные точки для применения метода наименьших квадратов

#Цикл определяющий количество фрагментов при текущем разбиении
while($global_count) {
 my $N = $Size / $global_count; #Количество елементов последовательности при текущем количестве фрагментов
 my $i = 0; #Указатель на текущий элемент последовательности
 $N =~ s/\..+//; #Убираем дробную часть если нацело не делится
 my $frag_count = 1; #Счетчик фрагментов
 my $start_i; #Указатель на начальный элемент во фрагменте
 my $sum_r_s = 0; #Сумма отношения размаха к стандартному отклонению по фрагментам при текущем разбиении
 #Цикл, отвечающий за перебор фрагментов при текущем разбиении
 while ($frag_count <=$global_count) {
  $start_i = $i;
  my $Yn = 0; #Среднее значение в текущем фрагменте, далее идет цикл, который его вычисляет
  while ($i <= ($frag_count * $N)) {
   $Yn += $Seq[$i];
   $i++;
  }
  $Yn /= $N;  
  $i = $start_i; #Возвращаемся в начало текущего фрагмента, так как $i уже находится вначале следующего
  my $S = 0; #Стандартное отклонение
  my $YnN = 0; #Накопившееся отклонение
  my $YnNmax = my $YnNmin = $Seq[$i] - $Yn; #Максимальное накопившееся отклонение и минимальное накопившееся отклонение
  #Цикл, вычисляющий накопившееся и стандартное отклонение а так же максимумы и минимумы функции накопившегося отклонения
  while ($i <= ($frag_count * $N)) {
   $YnN += ($Seq[$i] - $Yn);
   $YnNmax = $YnN if $YnN > $YnNmax;
   $YnNmin = $YnN if $YnNmin > $YnN;
   $S += (($Seq[$i] - $Yn) ** 2);
   $i++;
  }
  $S = ($S/$N) ** 0.5;
  my $R = $YnNmax - $YnNmin; #Размах
  $sum_r_s += $R / $S;
  $frag_count++;
 }
 $result_dots{log($N / 2)} = log($sum_r_s / $global_count);
 $global_count--;
} 

#Вычисление всевозможных сумм для применения метода наименьших квадратов
my $sum_xy = my $sum_x = my $sum_y = my $sum_x_2 = 0;

foreach my $x (keys %result_dots) {
 $sum_x += $x; #Сумма ln($N/2)
 $sum_xy += $x * $result_dots{$x}; #Сумма ln($N/2) * ln(R/S) 
 $sum_y += $result_dots{$x}; #Сумма ln(R/S)
 $sum_x_2 += $x ** 2; #Сумма ln($N/2)^2
}

my $H = ($sum_xy - (($sum_x * $sum_y) / $ARGV[1])) / ($sum_x_2 - (($sum_x ** 2) / $ARGV[1])); #Показатель Хёрста
my $D = 2 - $H; #Фрактальная размерность

print "Herst variable: $H\nFractal dimension: $D\n";

print "-----------------------------------------------------------\n";

Сразу решил проверить этот алгоритм на белом шуме:

F:\incoming>perl herst.pl white_noise.txt 4
-----------------------------------------------------------
Herst variable: 0.330701925368785
Fractal dimension: 1.66929807463122
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 5
-----------------------------------------------------------
Herst variable: 0.378741185529792
Fractal dimension: 1.62125881447021
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 10
-----------------------------------------------------------
Herst variable: 0.476807768443956
Fractal dimension: 1.52319223155604
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 15
-----------------------------------------------------------
Herst variable: 0.461546656886965
Fractal dimension: 1.53845334311303
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 20
-----------------------------------------------------------
Herst variable: 0.458924577308935
Fractal dimension: 1.54107542269107
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 30
-----------------------------------------------------------
Herst variable: 0.46715301643598
Fractal dimension: 1.53284698356402
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 40
-----------------------------------------------------------
Herst variable: 0.473708518874643
Fractal dimension: 1.52629148112536
-----------------------------------------------------------

Как видно из результатов вызова этого скрипта, фрактальная размерность этого ряда ~1.5 после исходного количества фрагментов n=10, при этом при уменьшении исходного "шага циркуля"  медленно уменьшается и судя по всему стремиться так же к 1:

F:\incoming>perl herst.pl white_noise.txt 60
-----------------------------------------------------------
Herst variable: 0.554970745497253
Fractal dimension: 1.44502925450275
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 80
-----------------------------------------------------------
Herst variable: 0.589150696715627
Fractal dimension: 1.41084930328437
-----------------------------------------------------------
F:\incoming>perl herst.pl white_noise.txt 200
-----------------------------------------------------------
Herst variable: 0.612853381415625
Fractal dimension: 1.38714661858438
-----------------------------------------------------------

Попробовал этот скрип на реальной последовательности чисел,  которая приведена выше:

F:\incoming>perl herst.pl 2.txt 4
-----------------------------------------------------------
Herst variable: 0.682051041736696
Fractal dimension: 1.3179489582633
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 5
-----------------------------------------------------------
Herst variable: 0.706337369553171
Fractal dimension: 1.29366263044683
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 6
-----------------------------------------------------------
Herst variable: 0.729893239594928
Fractal dimension: 1.27010676040507
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 7
-----------------------------------------------------------
Herst variable: 0.698699673169508
Fractal dimension: 1.30130032683049
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 8
-----------------------------------------------------------
Herst variable: 0.729439813124138
Fractal dimension: 1.27056018687586
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 9
-----------------------------------------------------------
Herst variable: 0.732248707439614
Fractal dimension: 1.26775129256039
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 10
-----------------------------------------------------------
Herst variable: 0.738015606598743
Fractal dimension: 1.26198439340126
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 15
-----------------------------------------------------------
Herst variable: 0.817453063899435
Fractal dimension: 1.18254693610056
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 20
-----------------------------------------------------------
Herst variable: 0.848278929897908
Fractal dimension: 1.15172107010209
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 30
-----------------------------------------------------------
Herst variable: 0.898039088911434
Fractal dimension: 1.10196091108857
-----------------------------------------------------------
F:\incoming>perl herst.pl 2.txt 40
-----------------------------------------------------------
Herst variable: 0.930307146828472
Fractal dimension: 1.06969285317153
-----------------------------------------------------------

Видно, что для данной последовательности фрактальная размерность, вычисленная с помощью данного скрипта так же стремится к 1. 
Вот тут у меня возникло несколько вопросов, на которые я так и не смог найти ответа:

1. Корректны ли указанные алгоритмы?
2. Если алгоритмы корректны, тогда почему при увеличении числа фрагментов в обоих алгоритмах, фрактальная размерность стремится к 1?
3. Если алгоритмы не корректны, то тогда как правильно считать фрактальную размерность для релаьных числовых рядов?


СПИСОК ИСПОЛЬЗОВАННОЙ ЛИТЕРАТУРЫ

1. Федер, Е. Фракталы / Е.Федер // Пер. с англ. - М.:Мир, 1991.- 254 с.
2. http://www.math.spbu.ru/user/gran/soi5/Gatchkov5.pdf  
3. http://www.itinvest.ru/editorfiles/File/upload/1172fractals.doc
 

Вчера решили с друзьями съездить на озеро (пос. Глаженка, Брянская обл.), практически добрались до места, вдруг видим примерно вот такую картину:

30.07.2010 в пятницу, решил поехать на скалад по рабочим делам. Сел в машину, завел, только собрался ехать, как вдруг, ко мне подбегает коллега и говорит: "Смотри, у тебя в колесе что-то шевелится!", я сначала не поверил, но на всякий случай решил проверить. Смотрю, а между тормозным диском и диском находится летучая мышь :)))) Как она там оказалась, я так и не понял. Но подозреваю, на даче (в этот день, я как раз ночевал там) с утра она видимо решила вздремнуть на подвеске (хотя тоже не очень правдоподобно, но за отсутствием других вариантов пойдет), а когда я приехал на работу на жаре ее раскумарило, и она начала пытаться выбраться и попала в колесо.
Не пугайтесь, зверек остался жив здоров, правда, при извлечении она меня неласково укусила за палец :))))
Я сначала думал, ее взять домой в качестве зверька, который избавит мое жилище от вредных насекомых. Но прочитал, что, во-первых, ей нужно много простора, а во-вторых, одна особь съедает около 600 (http://hipermir.ru/topic/zveri/letuchaja-mysh/) насекомых в час, по-этому прокормить ее в домашних условиях нереально. Кроме того, прочитал много статей, что летучие мыши являются переносчиками бешенства (по словам ветеринаров: существуют целые колонии зараженные бешенством). В связи с этим, решил дома ее не оставлять, повез к ветеринарам, что бы они ее проверили на бешенство. Они весьма удивились, наличию у меня летучей мыши, но ничем помочь не смогли, так как, чтобы выявить бешенство необходимо 10 дней (как раз в последние 10 дней жизни бешеный зверек является заразным, до этого срока концентрация вируса в слюне недостаточна для заражения), но за 10 дней она сдохнет от голода, так как прокормить ее в домашних условиях нереально, как я уже писал выше. Поэтому пришлось ложиться в больницу для профилактики, в связи с укусом летучей мыши.
Что такое профилактика бешенства, я не знал, поэтому сначала направился в травмпункт (что бы сделали прививку), прихватив мышку в коробке с собой. :) Когда я подошел в регистратуру и попросил профилактику бешенства, девушка у меня спросила: "Кто Вас покусал?". Когда я ответил, что это была летучая мышь, она удивилась даже сильнее чем ветеринары и не поверила, пока я не предъявил зверька, ее реакция и фраза, которую она выдала меня позабавила: "Ути-пути, какая хорошенька, какая прелесть, я себе хочу ее домой, она так похожа на мою свекровь!" :)))) Потом она предложила, мне подождать 10 дней и если мышка не сдохнет, подарить ей :)))) Отказался, побоялся, что замучает.
Из травмпункта меня направили на госпитализацию. Я съездил на дачу, отпустил зверька на свободу и поехал в больницу.
Сначала попытался договориться, что бы меня не клали в больницу, а я просто бы приходил на привки, но мне отказали по причине, что будут колоть имуноглобулин, а его нужно колоть только там, где есть реанимация :))))
Когда меня привели в отделение, медсетра сочувственно покачала головой и выдала весьма забавную фразу: "Какие только гады наш народ не кусали: и змеи и собаки и кошки и медведи и правительство и депутаты, но что бы летучая мышь ...". Оказалось, что я у них первый пациент в отделении, которого укусила летучая мышь и шел под номером 1000. После регистрации, я прошел процедуру принятия в коллектив: сначала мне сделали два пробных укола под кожу руки с промежутком 30 минут. Потом укол в дельту и бедро, а потом три укола в левую ягодицу, я спросил: "а почему, все в одну ягодицу?", медсестра ответила: "а потому, что правая тебе еще пригодится", как она была права - уколы оказались очень болючими и левая ягодица болела на протяжении всего срока лежки в больнице. Всего я лежал там 4-ре дня (с вечера пятницы по утро вторника), каждый день мне делали два жопораздирающих укола: утром и вечером и иногда в плечо, под кожу руки и дельту. Видимо еще меня прививали от столбняка и туляремии. Само бешенство, оказывается, теперь прививается 8-ю уколами в дельту, хотя мне всегда казалось, что делают 40 уколов в живот.
Позабавили меня еще несколько фактов: до меня лежали два змеелова, у одного был укус в палец (как уменя), у другого в ногу, а через день, после того, как меня положили привели еще паренька, который по пьянке полез гладить медведя (у дяди в загородном доме) через дырку в заборе, куда пролезают только 2 пальца :)))))))))))))), за которые мишка его благополучно хватанул :).  Через день подвезли мужика, которого в кость укусила домашняя кошка, из-за чего рука очень нескромно распухла. У нас образовалось общество "ужаленных" :))))) Остальной контенгент в отделении был представлен в основном ныряльщиками с поломанными шеями. В больнице было весьма забавно, только плохо спать из-за круглосуточно включенных телевизоров  в палатах (сам я лежал в коридоре, поэтому принимал суммарное воздействие от нескольких зомбоящиков).
Теперь мне нужно колоть прививки в дельту до октября 2010 года и не пить до декабря :)
Вот так закончилось мое знакомство со зверком, которого всю жизнь мечтал подержать в руках, теперь друзья меня называют бэтманом :))))

Ниже прикладываю фото зверька, который меня одарил своим укусом. Некоторые фото размазаны, но никто не претендует на профессионализм.

Вот такие зубки:




Вид сбоку:



Другие виды:







Вид спереди (на мой взгляд, хорошо получился):



И, пожалуй, моя любимая фота (милая мордашка):