#
#Программа на языке perl (www.perl.com)
#
#Условие задачи. Снайпер, смотрящий через прицел с диаметром объектива
#40мм облучается лазером с расстояния 400м. Отраженный свет принимается
#через обектив диаметром также 40мм.
#Выяснить, насколько принятая энергия импульса, отраженного от
#выпуклой линзы (первая в объективе), будет отличаться от
#энергии импульса, отраженного от сетчатки.
#
#Строение глаза:
# http://obi.img.ras.ru/humbio/Physiology/0014580f.htm
#Итак, светим лазером с расстояния 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";