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

UptoLike

Рубрика: 

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;
                                       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;