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

                                     31

         ry:=abs(F(pi,-pi,-a,rx)+F(pi,0,a,rx)+F(pi,pi,-a,rx));
         y:=my-20-Round(ry/hy);
         LineTo(x+10,y);
      end;
      if abs(bx)<10 then
      begin
         for i:=Round(bx) to Round(-bx) do
         begin
            Pen.Color:=clBlack;
            MoveTo(Round(abs(bx)/hx)+Round(i/hx)+10,my-17);
            LineTo(Round(abs(bx)/hx)+Round(i/hx)+10,my-23);
            TextOut(Round(abs(bx)/hx)+Round(i/hx),my-15,IntToStr(i));
         end;
      end;
      for i:=1 to Round(begy) do
      begin
         moveTo(mx div 2-3,my-20-Round(i/hy));
         LineTo(mx div 2+3,my-20-Round(i/hy));
         TextOut(mx div 2-12,my-20-Round(i/hy),IntToStr(i));
      end;
      Pen.Color:=clBlack;
      Pen.Style:=psSolid;
      Moveto(mx div 2,0);
      LineTo(mx div 2,my);
      Moveto(0,my-20);
      LineTo(mx,my-20);
   end;
end;
//---------------------------------------------------------
procedure TForm1.ChangeParam(Sender: TObject);
var
  by,hx,hy:double;
  maxX:double;
  bIX,bIX2,i,ii:Integer;
  charPI: WiDeString;
begin
   charPI:=#960#0;
   my1:=image2.Height;
   mx1:=Image2.Width;
   with Image2.Canvas do
   begin
      Brush.Color:=clWhite;
      Pen.Color:=clBlack;
      Pen.Style:=psSolid;
      Moveto(mx1 div 2,0);