) * Zc1 * Zc2 - (Sqr (Zc1)) * (Sqr (Zc2)) + (Sqr (Zc1)) * (Sqr (Zc2)) * (Sqr (cos (OL0))));:=(2 * Zc1 * Zc3 * sin (OL0) * cos (OL0) ) * (- (sqr (Zc3)) + (sqr (Zc2)));:=ReV / Niz;:=ImV / Niz;:=ArcTan (Im / Re);. AddXY (L0, ahx);. AddXY (L0, fhx);
series4.AddXY (L0, ahx);:=Zc1 * Pr1;:=(60 * ln (b2/a2)) / (sqrt (e));:=Sqrt (Zc11 * Zc21 );
/ / АЧХ2:=(Zc21 * Sqr (Zc31)) / ((Sqr (cos (OL0))) * (Sqr (Zc31)) + (sqr (Zc21)) - (sqr ( Zc21)) * (sqr (cos (Ol0))));:=((Zc31 * sin (OL0) * cos (OL0)) * ((sqr (Zc31)) - (sqr (Zc21)))) / ( (Sqr (cos (OL0))) * (Sqr (Zc31)) + (sqr (Zc21)) - (sqr (Zc21)) * (sqr (cos (Ol0))));:=(Sqrt (Sqr (x-Zc11) + Sqr (y))) / (Sqrt (Sqr (x + Zc11) + Sqr (y)));. AddXY (L0, ahx2);
/ / АЧХ3:=Zc1 * Pr2;:=(60 * ln (b2/a2)) / (sqrt (e));:=Sqrt (Zc112 * Zc212);:=(Zc212 * Sqr (Zc312)) / ((Sqr (cos (OL0))) * (Sqr (Zc312)) + (sqr (Zc212)) - (sqr (Zc212)) * (sqr (cos (Ol0)))); :=((Zc312 * sin (OL0) * cos (OL0)) * ((sqr (Zc312)) - (sqr (Zc212)))) / ((Sqr (cos (OL0))) * (Sqr (Zc312) ) + (sqr (Zc212)) - (sqr (Zc212)) * (sqr (cos (Ol0))));:=(Sqrt (Sqr (x-Zc112) + Sqr (y))) / (Sqrt (Sqr (x + Zc112) + Sqr (y)));. AddXY (L0, ahx3);
; end; TForm1.Button2Click (Sender: TObject);. Close;;
.
Малюнок Б1 - Вікно введення вихідних даних для розрахунку і виведення отриманих характеристик
