Реферат Розрахунок та оптимізація електричного кола

lls [1,0]:=«Опір R»;. Cells [2,0]:=«Ємність C» ;;. Cells [3,0]:=«Індуктивність L»; i:=1 to sgData.RowCount - 1 do.Cells [0, i]:=IntToStr (i); i:=0 to 3 do. Cells [1, i +1]:=FloatToStr (Scheme.Resistors [i]. Resistance); i:=0 to 2 do.Cells [2, i +1]:=FloatToStr (Scheme.Condensators [i]. Capacity ); i:=0 to 1 do.Cells [3, i +1]:=FloatToStr(Scheme.Inductances[i].Inductance);.Cells[0,0]:=&laquo;№&raquo;;.Cells[1,0]:=&laquo;Сила струму I »;; TMainForm.Button1Click (Sender: TObject);;:=FloatToStr (P1) +« »+ FloatToStr (P2) +« » + FloatToStr (U) + « » + FloatToStr (phi);; TMainForm.CalculateParameters;; [0,0]:=Z_R1C1C2; [0,1]: =-Z_R1C2; [0,2]:=0; [1,0]: =-Z_R1C2; [1,1]:=Z_R1R2R3C2; [1,2]: =-Z_R3; [2,0]:=0; [2,1]: =-Z_R3; [2,2]:=Z_R3R4C3L2; (x, b, m);:=x [0];:=x [0] - x [1];: =-x [1];:=x [1] - x [2];: =-x [2 ]; [0]:=I1; [1]:=I2; [2]:=I3; [3]:=I4; [4]: ??= I5;:=100 * I1; Scheme do:=I1 * I1 * Condensators [0]. Resistance + * I2 * GetGeneralResistance (Resistors [0]. Resistance, Condensators [1]. Resistance, 0)+*I3*Resistors[1].Resistance+*I4*Resistors[2].Resistance+*I5*GetGeneralResistance(Resistors[3].Resistance, Condensators [2]. Resistance, Inductances [1]. Resistance);:=I5 * Z_C3L2;; TMainForm.Calculate; Scheme do_R1C1C2:=GetGeneralResistance (Resistors [0]. Resistance, Condensators [0]. Resistance + Condensators [1] . Resistance, 0); _R1C2:=GetGeneralResistance (Resistors [0]. Resistance, Condensators [1]. Resistance, 0); _R1R2R3C2:=GetGeneralResistance (Resistors [0]. Resistance + Resistors [1]. Resistance + Resistors [2 ]. Resistance, Condensators [1]. Resistance, 0); _R3:=Resistors [2]. Resistance; _R3R4C3L2:=GetGeneralResistance (Resistors [2]. Resistance + Resistors [3]. Resistance, Condensators [2]. Resistance, Inductances [1]. Resistance); _C3L2:=GetGeneralResistance (0, Condensators [2]. Resistance, Inductances [1]. Resistance); _R1C1C2:=GetPhi (Resistors [0]. Resistance, Condensators [0]. Resistance + Condensators [1]. Resistance, 0); _R1C2:=GetPhi (Resistors [0]. Resistance, Condensators [1]. Resistance, 0); _R1R2R3C2:=GetPhi (Resistors [0]. Resistance + Resistors [1]. Resistance + Resistors [2]. Resistance, Condensators [1]. Resistance, 0); _R3:=GetPhi (Resistors [2]. Resistance, 0, 0); _R3R4C3L2:=GetPhi (Resistors [2]. Resistance + Resistors [3]. Resistance, Condensators [2]. Resistance, Inductances [1]. Resistance); _C3L2:=GetPhi (0, Condensators [2]. Resistance, Inductances [1]. Resistance);;; TMainForm.Optimize;:=Vector (500 , 0.00005);:=b1;:=Vector (1, 0.000001);:=Func (b1); (count); (b1, f1); (h.x1>=epsilon) and (h.x2> =epsilon) do.x1:=b1.x1 + h.x1;:=Func (b2); not (f2 < f1) then.x1:=b1.x1 - h.x1;:=Func (b2); not (f2 =epsilon) and (h.x2>=epsilon) do.x1:=p.x1 + h.x1;:=func (b2); not (f2 f1;;; TMainForm.BitBtn1Click (Sender: TObject);: Byte;; j:=1 to sgParam.RowCount - 1 do.Cells [1, j]:=FloatToStr (RoundTo (I [j - 1], - 6 ));. Cells [0, j]:=I...