ОтМаксим ГераськинОтветить на сообщение
КAllОтветить по почте
Дата31.03.2001 19:54:47Найти в дереве
РубрикиСовременность; Армия; Стрелковое оружие;Версия для печати

Об антиснаперском устройстве

#
#Программа на языке perl (www.perl.com)
#
#Условие задачи. Снайпер, смотрящий через прицел с диаметром объектива
#40мм облучается лазером с расстояния 400м. Отраженный свет принимается
#через обектив диаметром также 40мм.
#Выяснить, насколько принятая энергия импульса, отраженного от
#выпуклой линзы (первая в объективе), будет отличаться от
#энергии импульса, отраженного от сетчатки.
#
#Строение глаза:
#

use strict;

#
#Все размеры в метрах
#

print "=========================================\n";

my $D=0.04;
print "Диаметр первой линзы объектива D=$D\n";

my $R=0.4;
print "Радиус отражающей поверхности линзы R=$R\n";

my $Kr=0.05;
print "Коэф. отражения отраж. поверхности линзы Kr=$Kr\n";

my $Te=0.0001;
#Тангенс расхождения отражения от сетчатки, после фокусировки объективом

my $L=400;
print "Расстояние до снайпера L=$L\n";

my $Rd=0.002;
print "Радиус объектива приемника Rd=$Rd\n";

my $Re=0.001;
print "Радиус дифрагмы глаза Re=$Re\n";

my $Fe=0.02;
print "Фокусное расстояние глаза Fe=$Fe\n";

my $Kret=0.1;
print "Коэф. отражения от сетчатки Kret=$Kret\n";


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

#Итак, светим лазером с расстояния L
#Отражающая поверхность линзы имеет фокусное расстояние, равное R/2,
#и сфоримрует мнимое изображение на расстоянии R/2 позади себя
#Следовательно, от поверхности отразится расходящийся
#пучок с тангенсом угла D/2/(R/2)=D/R
#на расстоянии $L радиус пучка будет равен D/R*L

print "Радиус пучка от линзы на расстоянии L=$L равен ".($D/$R*$L)."\n";

#соответственно в приемник радиуса Rd будет попадет не более, чем
#Rd*Rd/((D/R*L)(D/R*L)) отраженного от линзы излучения
#(берем отношение квадратов площадей сечения пучка и приемника).
#От поверхности отразится Kr излучения. Таким образом в приемник попадает
#не более, чем $E1=Kr*Rd*Rd/((D/R*L)(D/R*L)) энергии пучка

my $E1=$Kr*$Rd*$Rd/(($D/$R*$L)*($D/$R*$L));
print "От линзы в приемник попадет E1=".$E1." энергии пучка\n";

#Теперь рассмотрим, сколько дойдет от сетчатки
#Пусть сетчака отражает свет с коэффициентом Kret и рассеивает свет равномерно.
#Тогда до зрачка дойдет часть отраженного пучка, равная отношению
#площадей зрачка и сферы рассеивания с радиусом Fe
#Итого из глаза выйдет энергия
#E21=Kret*pi*Re*Re/(2*pi*Fe*Fe)=Kret*Re*Re/(2*Fe*Fe)
#(Энергию импульса лазера принимаем за единицу)

my $E21=(2*$Kret*$Re*$Re/(2*$Fe*$Fe));
print "Из глаза выйдет E21=".$E21." энергии пучка\n";

#На расстоянии L радиус пучка, сформированного глазом, будет равен L*Te

print "Радиус пучка из глаза на расстоянии $L равен ".($L*$Te)."\n";

#соответственно в приемник радиуса Rd будет попадет не более, чем
#Rd*Rd/((L*Te)(L*Te)) вышедшего из глаза излучения, или
#E2=E21*Rd*Rd/((L*Te)(L*Te)) первоначального
#(берем отношение квадратов площадей сечения пучка и приемника).

my $E2=$E21*$Rd*$Rd/(($L*$Te)*($L*$Te));
print "Из глаза в приемник попадет E2=".$E2."\n";

print "Соотношение энергий сигналов, принятых от сетчатки глаза и линзы: ".$E2/$E1."\n";