ntToStr (j);;. Caption:=FloatToStr (RoundTo (P1, - 3))
+ « ~ » + FloatToStr (RoundTo (P2, - 3));. Caption:=FloatToStr (RoundTo (U, - 3)) +" *" + «Sin (wt +» + (RoundTo (Phi_C3L2, - 3)) + «)»;; TMainForm.BitBtn2Click (Sender: TObject);. RowCount:=2;:=1;:=StrToFloat ( Edit1.Text);;; TMainForm.BitBtn3Click (Sender: TObject);; TMainForm.Func (vec: TVector2): Double;: Double;: Double;. Resistors [2]. Resistance:=vec.x1;. Condensators [ 1]. Capacity:=vec.x2;;:=0;:=0.1; t <= 60 do [0,0]:=Z_R1C1C2 * sin (314 * t + Phi_R1C1C2); [0,1]:= -Z_R1C2 * sin (314 * t + Phi_R1C2); [0,2]:=0; [1,0]: =-Z_R1C2 * sin (314 * t + Phi_R1C2); [1,1]:=Z_R1R2R3C2 * sin (314 * t + Phi_R1R2R3C2); [1,2]: =-Z_R3 * sin (314 * t + Phi_R3); [2,0]:=0; [2,1]: =-Z_R3 * sin (314 * t + Phi_R3);; [2,2]:=Z_R3R4C3L2 * sin (314 * t + Phi_R3R4C3L2); [0]:=100 * sin (314 * t); (x, b, m);:=x [ 0];:=x [0] - x [1];: =-x [1];:=x [1] - x [2];: =-x [2];:=Q + Sqr (15 * Sin (314 * t + RoundTo (2 * pi / 3, - 1))-I5 * Z_C3L2 * sin (314 * t + Phi_C3L2));:=t +0.1;;:=Q;; TMainForm.Vector ( x1, x2: Double): TVector2;. x1:=x1;. x2:=x2;; TMainForm.Output (b: TVector2; func: Double);. RowCount:=count;. Cells [0, count - 1] :=IntToStr (count - 1);. Cells [1, count - 1]:=FloatToStr (b.x1);. Cells [2, count - 1]:=FloatToStr (b.x2);. Cells [3, count - 1]:=FloatToStr (func);; TMainForm.BitBtn4Click (Sender: TObject); Scheme do [0]. Resistance:=StrToFloat (sgData.Cells [1,1]); [1]. Resistance:=StrToFloat (sgData.Cells [1,2]); [2]. Resistance:=StrToFloat (sgData.Cells [1,3]); [3]. Resistance:=StrToFloat (sgData.Cells [1,4]); [ 0]. Capacity:=StrToFloat (sgData.Cells [2,1]); [1]. Capacity:=StrToFloat (sgData.Cells [2,2]); [2]. Capacity:=StrToFloat (sgData.Cells [ 2,3]); [0]. Inductance:=StrToFloat (sgData.Cells [3,1]); [1]. Inductance:=StrToFloat (sgData.Cells [3,2]);; end;.
