Исследование диаграмм направленности и коэффициента направленного действия апертурных антенн СВЧ диапазона. Струков И.Ф - 34 стр.

                                                 34
          begin Line(Round(Xm*(1+i)/2), Round(Ym*0.9*(1-Fh(pi*i))), Round(Xm*(1+i+di)/2),
                Round(Ym*0.9*(1-Fh(pi*(i+di)))));
             i:=i+di
          end;
         ReadLn;
         CloseGraph
end.


                                           П Р И Л О Ж Е Н И Е II
      П р о г р а м м а р а сче та на Э В М ди а г р а м м на пр а вле нно сти а нте нн с си нфа зны м
р а вно а м пли тудны м по р а скр ы ву по ле м в Е и Н пло ско стях со впа да е т с
пр о г р а м м о й пр и ло же ни я I за и склю че ни е м функци и Fh (стр о ки 10-12):

function Fh (x:real):real;
   begin Fh:=sqr(cos(x/2))*abs(sin(pi*D1*sin(x))/(pi*D1*sin(x)))
   end;


                                         П Р И Л О Ж Е Н И Е III
     П р о г р а м м а р а сче та на Э В М             с и спо льзо ва ни е м язы ка "П а ска ль"
но р м и р о ва нны х ди а г р а м м на пр а вле нно сти в Е и Н пло ско стях пи р а м и да льно г о
р упо р а пр и пр о и зво льны х зна че ни ях ква др а ти чны х фа зо вы х на б е г о в по ля на
кр а ях , с и спо льзо ва ни е м фо р м ул (28) и (32). Д ля функци й C (v ) и S (v )
и спо льзо ва ны пр и б ли же нны е фо р м улы (29) пр и v > 0 , а та кже учте на не че тно сть
эти х функци й: C (− v ) = −C (v ) , S ( − v ) = − S (v ) .
program LR1_R_2;
   uses Graph, Crt;
  const pi=3.1415926;
    var GraphDriver, GraphMode, ErrorCode, Xm, Ym: integer;
           i, D1, D2, R1, R2, di, lambda, y, Max, v1, v2, v3, v4, v5, v6, y1: real;
           Q: text;
   {------------З а да ние ф у нкц ий h(v) и g(v)-----------------}
function h(x:real):real;
begin h:=(1+0.926*x)/(2+1.792*x+3.104*x*x)
end;
function g(x:real):real;
begin g:=1/(2+4.141*x+3.492*x*x+6.67*x*x*x)
end;
    {---З а да ние ф у нкц ий C(v) и S(v) пр иближ енны ми ф ор му ла ми---}
function C(x:real):real;
begin if x>=0 then C:=0.5+h(x)*sin(pi*x*x/2)-g(x)*cos(pi*x*x/2)
          else C:=-(0.5+h(-x)*sin(pi*x*x/2)-g(-х)*cos(pi*x*x/2))
end;
function S(x:real):real;
begin if x>=0 then S:=0.5-h(x)*cos(pi*x*x/2)-g(x)*sin(pi*x*x/2)
          else S:=-(0.5-h(-x)*cos(pi*x*x/2)-g(-x)*sin(pi*x*x/2))
end;
   {----------П р оц еду р а иниц иа лиза ц иигр а ф ики-------------}
procedure init;
begin GraphDriver:=Detect;
         InitGraph (GraphDriver, GraphMode, 'E:\BGI');
         ErrorCode:=GraphResult;
         if ErrorCode<>grOk then begin
                                                writeln ('Error: ',    GraphErrorMsg(ErrorCode));
                                                readln;
                                        end;
end;
   {-----------П р оц еду р а постр оения коор дина тной сетки------------}
procedure XYplot;