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

                                      32

     LineTo(mx1 div 2,my1);
     Moveto(mx1 div 2,0);
     LineTo((mx1 div 2) - 3, 15);
     Moveto(mx1 div 2,0);
     LineTo((mx1 div 2) + 3, 15);
     Moveto(0,my1 div 2);
     LineTo(mx1,my1 div 2);
     Moveto(mx1 - 15,(my1 div 2) - 3);
     LineTo(mx1,my1 div 2);
     Moveto(mx1 - 15,(my1 div 2) + 3);
     LineTo(mx1,my1 div 2);
     by:=a;
     if (SpinEdit5.Value>=SpinEdit6.Value) and
(SpinEdit5.Value>=SpinEdit7.Value) then
     begin
        a1:=-a;
        a2:=SpinEdit6.Value/SpinEdit5.Value*a;
        a3:=-SpinEdit7.Value/SpinEdit5.Value*a;
     end
     else
     if (SpinEdit6.Value>=SpinEdit5.Value) and
(SpinEdit6.Value>=SpinEdit7.Value) then
     begin
        a2:=a;
        a1:=-SpinEdit5.Value/SpinEdit6.Value*a;
        a3:=-SpinEdit7.Value/SpinEdit6.Value*a;
     end
     else
     begin
        a3:=-a;
        a2:=SpinEdit6.Value/SpinEdit7.Value*a;
        a1:=-SpinEdit5.Value/SpinEdit7.Value*a;
     end;
     tay0:=SpinEdit8.Value*pi/8;
     tayI2:=pi;
     tayI1:=SpinEdit2.Value/SpinEdit3.Value*pi;
     tayI3:=SpinEdit4.Value/SpinEdit3.Value*pi;
     if (tayI1+1/2*tayI2-tay0)>=(tayI3+1/2*tayI2+tay0) then
        maxX:=(tayI1+1/2*tayI2-tay0)
     else
        maxX:=(tayI3+1/2*tayI2+tay0);
     if maxX<3/2*pi then
        maxX:=3/2*pi;
     bx1:=-maxX;
     hx:=abs(maxX*2)/(Image2.Width-20);