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

                                       30

   begin
     brush.Color:=clWhite;
     Pen.Color:=clWhite;
     Brush.Color:=clWhite;
     Rectangle(0,0,mx,my);
     FillRect(Rect(0,0,mx,my));
     Pen.Color:=clBlack;
     Moveto(mx div 2,0);
     LineTo(mx div 2,my);
     Moveto(mx div 2,0);
     LineTo((mx div 2) - 3, 15);
     Moveto(mx div 2,0);
     LineTo((mx div 2) + 3, 15);
     Moveto(0,my-20);
     LineTo(mx,my-20);
     Moveto(mx - 15 ,my-23);
     LineTo(mx ,my-20);
     Moveto(mx - 15 ,my - 17);
     LineTo(mx ,my-20);
     begy:=2.4;
     hx:=abs(bx*2)/(Image1.Width-20);
     hy:=begy/(image1.Height-20);
     Pen.Color:=clBlue;
     Pen.Style:=psSolid;
     Moveto(10,my-20);
     Moveto(10,my-20-Round(abs(
        (F(tayI1,tay0-tayI2,a1,bx)+F(tayI2,tay0,a2,bx)+F(tayI3,tay0-
tayI2,a3,bx))/hy)));
     for i:=10 to (Image1.Width-20) do
     begin
        x:=i;
        rx:=bx+x*hx;
        ry:=abs(F(tayI1,tay0-tayI2,a1,rx)+F(tayI2,tay0,a2,rx)+F(tayI3,tay0-
tayI2,a3,rx));
        y:=my-20-Round(ry/hy);
        LineTo(x+10,y);
     end;
     Pen.Color:=clGreen;
     Pen.Style:=psDash;
     Moveto(10,my-20-Round(abs(
        (F(pi,-pi,-a,bx)+F(pi,0,a,bx)+F(pi,pi,-a,bx))/hy)));
     for i:=10 to (Image1.Width-20) do
     begin
        x:=i;
        rx:=bx+x*hx;