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

                                      33

      bIX:=10+Round((maxX-(tayI1+1/2*tayI2-tay0))/hx);
      hy:=by*2/(image2.Height-20);
      Pen.Style:=psSolid;
      Pen.Color:=clBlue;
      Moveto(bIX,my1 div 2);
      LineTo(bIX,(my1 div 2)-Round(a1/hy));
      LineTo(bIX+Round(tayI1/hx), (my1 div 2)-Round(a1/hy));
      LineTo(bIX+Round(tayI1/hx), (my1 div 2)-Round(a2/hy));
      LineTo(bIX+Round((tayI1+tayI2)/hx), (my1 div 2)-Round(a2/hy));
      LineTo(bIX+Round((tayI1+tayI2)/hx), (my1 div 2)-Round(a3/hy));
      LineTo(bIX+Round((tayI1+tayI2+tayI3)/hx), (my1 div 2)-Round(a3/hy));
      LineTo(bIX+Round((tayI1+tayI2+tayI3)/hx), (my1 div 2));
      Pen.Color:=clGreen;
      Pen.Style:=psDash;
      bIX2:=10+Round((maxX-3/2*pi)/hx);
      Moveto(bIX2,my1 div 2);
      LineTo(bIX2,(my1 div 2)-Round(-a/hy));
      LineTo(bIX2+Round(pi/hx), (my1 div 2)-Round(-a/hy));
      LineTo(bIX2+Round(pi/hx), (my1 div 2)-Round(a/hy));
      LineTo(bIX2+Round(2*pi/hx), (my1 div 2)-Round(a/hy));
      LineTo(bIX2+Round(2*pi/hx), (my1 div 2)-Round(-a/hy));
      LineTo(bIX2+Round(3*pi/hx), (my1 div 2)-Round(-a/hy));
      LineTo(bIX2+Round(3*pi/hx), (my1 div 2));
      Pen.Style:=psSolid;
      if (Trunc(maxX/pi) < 7) then
      for i:=1 to Trunc(maxX/pi) do
      begin
         Pen.Color:=clBlack;
         moveTo(mx1 div 2+Round((i)*pi/hx),my1 div 2-3);
         LineTo(mx1 div 2+Round((i)*pi/hx),my1 div 2+3);
         moveTo(mx1 div 2-Round((i)*pi/hx),my1 div 2-3);
         LineTo(mx1 div 2-Round((i)*pi/hx),my1 div 2+3);
         TextOut(mx1 div 2+Round((i)*pi/hx),my1 div 2+15,IntToStr(i)+'pi');
         TextOut(mx1 div 2-Round((i)*pi/hx),my1 div 2+15,'-'+IntToStr(i)+'pi');
      end;
    end;
end;
//---------------------------------------------------------
procedure TForm1.UpDateGraphics(Sender: TObject);
begin
  ClearImage1(Sender);
  ClearImage2(Sender);
  ChangeParam(Sender);
  ChangeLenInt(Sender);
end;