Лабораторный практикум по разделу "Сигналы и спектры в системах подвижной радиосвязи" специальной дисциплины "Мобильные телекоммуникационные системы". Нечаев Ю.Б - 29 стр.

                                              29

{$R *.DFM}
var
 bx:double;
 mx,my,mx1,my1:integer;
 bx1:double;
 a:double=0.3;
 a1,a2,a3:double;
 tayI1,tayI2,tayI3,tay0:double;

function F(tayI,tay0,A,x:double):double;
begin
  F:=cos(x*tay0)*A*tayI*(sin(x*TayI/2)/(x*tayI/2));
end;
//----------------------------------------------------------
procedure TForm1.ClearImage1(Sender: TObject);
begin
   with Image1.Canvas do
   begin
      Pen.Color:=clWhite;
      Brush.Color:=clWhite;
      Rectangle(0,0,mx,my);
      FillRect(Rect(0,0,mx,my));
   end;
end;
//------------------------------------------------------------
procedure TForm1.ClearImage2(Sender: TObject);
begin
   with Image2.Canvas do
   begin
      Pen.Color:=clWhite;
      Brush.Color:=clWhite;
      Rectangle(0,0,mx,my);
      FillRect(Rect(0,0,mx,my));
   end;
end;
//------------------------------------------------------------
procedure TForm1.ChangeLenInt(Sender: TObject);
var
  x,y,i:integer;
  begy,rx,ry,hx,hy:double;
begin
   bx:=-(SpinEdit1.Value div 2);
   my:=image1.Height;
   mx:=Image1.Width;
   with Image1.Canvas do