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

Write('delta='); ReadLn(delta);
Write('n='); ReadLn(nn);
ro0:=ro0/lambda; {П ерех од к безразмерной вели ч и не}
z:=sqr(2*ro0);
init;
Xm:=GetMaxX div 2; Ym:=GetMaxY;
XYplot;
max:=0; SetColor(14); write('delta=',delta:3:2,' (желтый) ... ');
for i:=-Xm to Xm do begin
 m[i]:=U(i/Xm*pi/2);             {И зменени еteta от-pi/2 до pi/2}
 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');
delta:=1; write('delta=',delta:3:2,' (розовый) ... ');
max:=0; SetColor(13);
for i:=-Xm to Xm do begin
 m[i]:=U(i/Xm*pi/2);             { И зменени еteta от-pi/2 до pi/2 }
 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.