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

UptoLike

ВУЗ: 

ВГУ | Воронеж

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

Рубрика: 

OutTextXY (Xm+15, 5, 'I(ro)');
OutTextXY (Xm+8, Round(Ym*0.45), '0.5');
OutTextXY (Xm+8, Round(Ym*0.26), '0.7');
OutTextXY (Xm*2-65, Round(0.9*Ym)-10, 'ro, у.е.');
for i:=-5 to 5 do begin
line(round(Xm+i/5*Xm), round(Ym*0.9)+5, round(Xm+i/5*Xm),
round(Ym*0.9));
OutTextXY (round(Xm+i/5*Xm*0.985)-3, Round(0.92*Ym)+5,
chr(48+abs(i))+'0');
end;
end;
BEGIN Writeln('ДН волноводной или рупорной антенны при малых
квадратичных фазовых искажениях ');
WriteLn('Bвeдитe длину волны и радиус отверстия в одних
единицах :');
Write('lambda='); ReadLn(lambda);
Write('ro0='); ReadLn(ro0);
ro0:=ro0/lambda; {Переход к безразмерной величине}
z:=sqr(2*ro0);
init;
Xm:=GetMaxX div 2; Ym:=GetMaxY;
XYplot;
max:=0; SetColor(14); write('Через полиномы (желтый) ... ');
for i:=-Xm to Xm do begin
m[i]:=U1(i/Xm*50/lambda); {Изменение ro от -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; writeln('OK');
max:=0; SetColor(13); write('Через интеграл (розовый) ... ');
for i:=-Xm to Xm do begin
m[i]:=U(i/Xm*50/lambda); {Изменение ro от -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; writeln('OK');
OutTextXY (10, Ym-15, 'Press any key'); ReadLn;
CloseGraph;
END. 
OutTextXY (Xm+15, 5, 'I(ro)');
OutTextXY (Xm+8, Round(Ym*0.45), '0.5');
OutTextXY (Xm+8, Round(Ym*0.26), '0.7');
OutTextXY (Xm*2-65, Round(0.9*Ym)-10, 'ro, у.е.');
for i:=-5 to 5 do begin
  line(round(Xm+i/5*Xm), round(Ym*0.9)+5, round(Xm+i/5*Xm),
      round(Ym*0.9));
 OutTextXY (round(Xm+i/5*Xm*0.985)-3, Round(0.92*Ym)+5,
      chr(48+abs(i))+'0');
end;
end;
BEGIN Writeln('Д Н волноводной и ли рупорной антенны при м алых
      квадрати чных фазовых и скажени ях');
WriteLn('Bвeди тe дли ну волны и ради ус отверсти яв одни х
      еди ни цах:');
Write('lambda='); ReadLn(lambda);
Write('ro0='); ReadLn(ro0);
ro0:=ro0/lambda;           {П ерех од к безразмерной вели ч и не}
z:=sqr(2*ro0);
init;
Xm:=GetMaxX div 2; Ym:=GetMaxY;
XYplot;
max:=0; SetColor(14); write('Черезполи ном ы (желтый) ... ');
for i:=-Xm to Xm do begin
 m[i]:=U1(i/Xm*50/lambda);          {И зменени е ro от-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; writeln('OK');
max:=0; SetColor(13); write('Черези нтеграл (розовый) ... ');
for i:=-Xm to Xm do begin
 m[i]:=U(i/Xm*50/lambda);         {И зменени еro от-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; writeln('OK');
OutTextXY (10, Ym-15, 'Press any key'); ReadLn;
CloseGraph;
END.

Страницы