Дифракция электромагнитного поля миллиметрового диапазона на плоских объектах. Струков И.Ф. - 37 стр.

UptoLike

ВУЗ: 

ВГУ | Воронеж

Составители: 

Рубрика: 

WriteLn('Bвeдитe длину волны и размер отверстия в одних
единицах :');
Write('lambda='); ReadLn(lambda);
Write('a='); ReadLn(a);
WriteLn('Bвeдитe угол наклона падающей плоской волны в
радианах :');
Write('alfa='); ReadLn(alfa);
a:=a/lambda; {Перевод в безразмерные величины }
z:=sqr(a);
init;
Xm:=GetMaxX div 2; Ym:=GetMaxY;
XYplot;
max:=0; SetColor(14);
for i:=-Xm to Xm do begin
m[i]:=U(i/Xm*50/lambda); { Изменение x от -50 до 50 }
if m[i]>max then max:=m[i]; { Поиск максимума для нормировки }
end;
for i:=-Xm to Xm-1 do begin
Line(i+Xm, Round(Ym*(0.9-m[i]/max*0.9)),i+Xm+1,Round(Ym*(0.9-
m[i+1]/max*0.9)));
end;
OutTextXY (10, Ym-15, 'Press any key'); ReadLn;
CloseGraph;
END.
Для примера на рис. 3.13 представлено одномерное распределение
интенсивности поля дифракции в дальней зоне (z=a
2
/λ) от прямоугольного
отверстия размером axb=10 λx10 λ, λ=4 мм. Поле определено по (3.43)
Рис. 3.13
10
10
20
20
x
0
I(x)
WriteLn('Bвeди тe дли ну волны и разм ер отверсти яв одни х
      еди ни цах:');
Write('lambda='); ReadLn(lambda);
Write('a='); ReadLn(a);
WriteLn('Bвeди тe угол наклонападаю щ ей плоской волны в
      ради анах:');
Write('alfa='); ReadLn(alfa);
a:=a/lambda;        {П еревод вбезразмерны евели ч и ны }
z:=sqr(a);
init;
Xm:=GetMaxX div 2; Ym:=GetMaxY;
XYplot;
max:=0; SetColor(14);
for i:=-Xm to Xm do begin
 m[i]:=U(i/Xm*50/lambda); { И зменени еx от-50 до 50 }
 if m[i]>max then max:=m[i]; { П ои ск макси мумадлянорми ровки }
end;
for i:=-Xm to Xm-1 do begin
 Line(i+Xm, Round(Ym*(0.9-m[i]/max*0.9)),i+Xm+1,Round(Ym*(0.9-
      m[i+1]/max*0.9)));
end;
OutTextXY (10, Ym-15, 'Press any key'); ReadLn;
CloseGraph;
END.
     Д ля при мера на ри с. 3.13 представлено одномерное распределени е
и нтенси вности поля ди ф ракци и в дальней зоне (z=a2/λ) отпрямоугольного
отверсти яразмером axb=10 λx10 λ, λ=4 м м . П олеопределено по (3.43)

                                       I(x)




        20           10               0          10            20
                                                                x
                                  Ри с. 3.13

Страницы