Button1Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: RadioGroup2Click(TObject *Sender)

{

Button1Click(Sender);

}

//---------------------------------------------------------------------------

void __fastcall TForm1:: Button2Click(TObject *Sender)

{

Form2-> Show();

}

//---------------------------------------------------------------------------

Прога 2 для зв 3:

//---------------------------------------------------------------------------

#include < vcl.h>

#pragma hdrstop

#include " Unit2.h"

#include " Unit1.h"

//---------------------------------------------------------------------------

#pragma package(smart_init)

#pragma resource " *.dfm"

TForm2 *Form2;

//---------------------------------------------------------------------------

__fastcall TForm2:: TForm2(TComponent* Owner)

: TForm(Owner)

{

}

//---------------------------------------------------------------------------

void __fastcall TForm2:: Button1Click(TObject *Sender)

{

//float dt=T/50;

//for (float t=0; t< =3*T; t+=dt)

// {

// Series1-> AddXY(t, Y_t(t), " ", clRed);

// }

// Form1->

}

//---------------------------------------------------------------------------

Результати:

w(0)=0 рад/с Em(0)=0, 499999940395355 B f(0)=0 град

K(0)=15 АЧХ f(0)=0 град

Ym(0)=7, 49999904632568 B Fy(0)=0 град

------------------------------------------------------

w(1)=6279, 99951171875 рад/с Em(1)=0, 995896816253662 B f(1)=0 град

K(1)=13, 2080364227295 АЧХ f(1)=-28, 3072948455811 град

Ym(1)=13, 1538410186768 B Fy(1)=-28, 3072948455811 град

------------------------------------------------------

w(2)=12559, 9990234375 рад/с Em(2)=0, 983648061752319 B f(2)=0 град

K(2)=10, 2085571289063 АЧХ f(2)=-47, 1356582641602 град

Ym(2)=10, 0416278839111 B Fy(2)=-47, 1356582641602 град

------------------------------------------------------

w(3)=18839, 9985351563 рад/с Em(3)=0, 963434338569641 B f(3)=0 град

K(3)=7, 89718389511108 АЧХ f(3)=-58, 2616806030273 град

Ym(3)=7, 60841846466064 B Fy(3)=-58, 2616806030273 град

------------------------------------------------------

w(4)=25119, 998046875 рад/с Em(4)=0, 935553312301636 B f(4)=0 град

K(4)=6, 31836748123169 АЧХ f(4)=-65, 12109375 град

Ym(4)=5, 91116952896118 B Fy(4)=-65, 12109375 град

------------------------------------------------------

w(5)=31399, 9975585938 рад/с Em(5)=0, 900414168834686 B f(5)=0 град

K(5)=5, 22429752349854 АЧХ f(5)=-69, 6527633666992 град

Ym(5)=4, 70403146743774 B Fy(5)=-69, 6527633666992 град

------------------------------------------------------

w(6)=37679, 9970703125 рад/с Em(6)=0, 858530819416046 B f(6)=0 град

K(6)=4, 43657827377319 АЧХ f(6)=-72, 8330917358398 град

Ym(6)=3, 80893921852112 B Fy(6)=-72, 8330917358398 град

------------------------------------------------------

w(7)=43959, 9965820313 рад/с Em(7)=0, 810512542724609 B f(7)=0 град

K(7)=3, 84769463539124 АЧХ f(7)=-75, 1748580932617 град

Ym(7)=3, 11860466003418 B Fy(7)=-75, 1748580932617 град

------------------------------------------------------

w(8)=50239, 99609375 рад/с Em(8)=0, 757053673267365 B f(8)=0 град

K(8)=3, 39299726486206 АЧХ f(8)=-76, 965576171875 град

Ym(8)=2, 56868100166321 B Fy(8)=-76, 965576171875 град

------------------------------------------------------

w(9)=56519, 9956054688 рад/с Em(9)=0, 698921382427216 B f(9)=0 град

K(9)=3, 03232288360596 АЧХ f(9)=-78, 3767395019531 град

Ym(9)=2, 11935520172119 B Fy(9)=-78, 3767395019531 град

------------------------------------------------------

w(10)=62799, 9951171875 рад/с Em(10)=0, 636942446231842 B f(10)=0 град

K(10)=2, 73974800109863 АЧХ f(10)=-79, 5161666870117 град

Ym(10)=1, 74506175518036 B Fy(10)=-79, 5161666870117 град

------------------------------------------------------

w(11)=69079, 9946289063 рад/с Em(11)=0, 571988999843597 B f(11)=0 град

K(11)=2, 49792194366455 АЧХ f(11)=-80, 4547729492188 град

Ym(11)=1, 42878389358521 B Fy(11)=-80, 4547729492188 град

------------------------------------------------------

w(12)=75359, 994140625 рад/с Em(12)=0, 504963576793671 B f(12)=0 град

K(12)=2, 29484963417053 АЧХ f(12)=-81, 2409439086914 град

Ym(12)=1, 15881550312042 B Fy(12)=-81, 2409439086914 град

------------------------------------------------------

w(13)=81639, 9936523438 рад/с Em(13)=0, 436783999204636 B f(13)=0 град

K(13)=2, 12199950218201 АЧХ f(13)=-81, 9087982177734 град

Ym(13)=0, 926855504512787 B Fy(13)=-81, 9087982177734 град

------------------------------------------------------

w(14)=87919, 9931640625 рад/с Em(14)=0, 368367552757263 B f(14)=0 град

K(14)=1, 97314989566803 АЧХ f(14)=-82, 4830322265625 град

Ym(14)=0, 726844370365143 B Fy(14)=-82, 4830322265625 град

------------------------------------------------------

w(15)=94199, 9926757813 рад/с Em(15)=0, 300616174936295 B f(15)=0 град

K(15)=1, 84366369247437 АЧХ f(15)=-82, 98193359375 град

Ym(15)=0, 554235100746155 B Fy(15)=-82, 98193359375 град

------------------------------------------------------

w(16)=100479, 9921875 рад/с Em(16)=0, 234401181340218 B f(16)=0 град

K(16)=1, 73001778125763 АЧХ f(16)=-83, 4193725585938 град

Ym(16)=0, 40551820397377 B Fy(16)=-83, 4193725585938 град

------------------------------------------------------

w(17)=106759, 991699219 рад/с Em(17)=0, 170549467206001 B f(17)=0 град

K(17)=1, 62949013710022 АЧХ f(17)=-83, 8059844970703 град

Ym(17)=0, 277908653020859 B Fy(17)=-83, 8059844970703 град

------------------------------------------------------

w(18)=113039, 991210938 рад/с Em(18)=0, 10983020812273 B f(18)=0 град

K(18)=1, 53994476795197 АЧХ f(18)=-84, 1501235961914 град

Ym(18)=0, 169132456183434 B Fy(18)=-84, 1501235961914 град

------------------------------------------------------

w(19)=119319, 990722656 рад/с Em(19)=0, 0529429949820042 B f(19)=0 град

K(19)=1, 4596836566925 АЧХ f(19)=-84, 4583969116211 град

Ym(19)=0, 0772800222039223 B Fy(19)=-84, 4583969116211 град

------------------------------------------------------

w(20)=125599, 990234375 рад/с Em(20)=0, 000507309683598578 B f(20)=0 град

K(20)=1, 38734006881714 АЧХ f(20)=-84, 7361221313477 град

Ym(20)=0, 000703811063431203 B Fy(20)=-84, 7361221313477 град

------------------------------------------------------

w(21)=131879, 989746094 рад/с Em(21)=0, 0469463877379894 B f(21)=180 град

K(21)=1, 32180202007294 АЧХ f(21)=-84, 9876174926758 град

Ym(21)=0, 0620538294315338 B Fy(21)=95, 0123825073242 град

------------------------------------------------------

w(22)=138159, 989257813 рад/с Em(22)=0, 0889837965369225 B f(22)=180 град

K(22)=1, 26215553283691 АЧХ f(22)=-85, 2164154052734 град

Ym(22)=0, 112311393022537 B Fy(22)=94, 7835845947266 град

------------------------------------------------------

w(23)=144439, 988769531 рад/с Em(23)=0, 125272080302238 B f(23)=180 град

K(23)=1, 20764291286469 АЧХ f(23)=-85, 4254531860352 град

Ym(23)=0, 15128393471241 B Fy(23)=94, 5745468139648 град

------------------------------------------------------

w(24)=150719, 98828125 рад/с Em(24)=0, 155583262443542 B f(24)=180 град

K(24)=1, 15763056278229 АЧХ f(24)=-85, 6171798706055 град

Ym(24)=0, 180107951164246 B Fy(24)=94, 3828201293945 град

------------------------------------------------------

w(25)=156999, 987792969 рад/с Em(25)=0, 179795518517494 B f(25)=180 град

K(25)=1, 11158490180969 АЧХ f(25)=-85, 7936553955078 град

Ym(25)=0, 199858009815216 B Fy(25)=94, 2063446044922 град

------------------------------------------------------

w(26)=163279, 987304688 рад/с Em(26)=0, 197892710566521 B f(26)=180 град

K(26)=1, 06905317306519 АЧХ f(26)=-85, 9566268920898 град

Ym(26)=0, 2115578353405 B Fy(26)=94, 0433731079102 град

------------------------------------------------------

w(27)=169559, 986816406 рад/с Em(27)=0, 20996181666851 B f(27)=180 град

K(27)=1, 02964878082275 АЧХ f(27)=-86, 1075897216797 град

Ym(27)=0, 216186925768852 B Fy(27)=93, 8924102783203 град

------------------------------------------------------

w(28)=175839, 986328125 рад/с Em(28)=0, 216188579797745 B f(28)=180 град

K(28)=0, 993039727210999 АЧХ f(28)=-86, 2478179931641 град

Ym(28)=0, 214683845639229 B Fy(28)=93, 7521820068359 град

------------------------------------------------------

w(29)=182119, 985839844 рад/с Em(29)=0, 216851383447647 B f(29)=180 град

K(29)=0, 958939373493195 АЧХ f(29)=-86, 3784103393555 град

Ym(29)=0, 207947343587875 B Fy(29)=93, 6215896606445 град

------------------------------------------------------

w(30)=188399, 985351563 рад/с Em(30)=0, 212313622236252 B f(30)=180 град

K(30)=0, 92709892988205 АЧХ f(30)=-86, 5003356933594 град

Ym(30)=0, 196835741400719 B Fy(30)=93, 4996643066406 град

------------------------------------------------------

w(31)=194679, 984863281 рад/с Em(31)=0, 203014507889748 B f(31)=180 град

K(31)=0, 897301316261292 АЧХ f(31)=-86, 6144256591797 град

Ym(31)=0, 182165190577507 B Fy(31)=93, 3855743408203 град

------------------------------------------------------

w(32)=200959, 984375 рад/с Em(32)=0, 189458802342415 B f(32)=180 град

K(32)=0, 869356393814087 АЧХ f(32)=-86, 7214050292969 град

Ym(32)=0, 164707228541374 B Fy(32)=93, 2785949707031 град

------------------------------------------------------

w(33)=207239, 983886719 рад/с Em(33)=0, 17220550775528 B f(33)=180 град

K(33)=0, 843096733093262 АЧХ f(33)=-86, 8219223022461 град

Ym(33)=0, 145185902714729 B Fy(33)=93, 1780776977539 град

------------------------------------------------------

w(34)=213519, 983398438 рад/с Em(34)=0, 151855707168579 B f(34)=180 град

K(34)=0, 818374752998352 АЧХ f(34)=-86, 9165496826172 град

Ym(34)=0, 124274864792824 B Fy(34)=93, 0834503173828 град

------------------------------------------------------

w(35)=219799, 982910156 рад/с Em(35)=0, 129040077328682 B f(35)=180 град

K(35)=0, 795059263706207 АЧХ f(35)=-87, 0057830810547 град

Ym(35)=0, 102594509720802 B Fy(35)=92, 9942169189453 град

------------------------------------------------------

w(36)=226079, 982421875 рад/с Em(36)=0, 104405969381332 B f(36)=180 град

K(36)=0, 773033738136292 АЧХ f(36)=-87, 0900726318359 град

Ym(36)=0, 0807093381881714 B Fy(36)=92, 9099273681641 град

------------------------------------------------------

w(37)=232359, 981933594 рад/с Em(37)=0, 078604631125927 B f(37)=180 град

K(37)=0, 752194225788116 АЧХ f(37)=-87, 1698150634766 град

Ym(37)=0, 0591259486973286 B Fy(37)=92, 8301849365234 град

------------------------------------------------------

w(38)=238639, 981445313 рад/с Em(38)=0, 0522785857319832 B f(38)=180 град

K(38)=0, 732447445392609 АЧХ f(38)=-87, 2453689575195 град

Ym(38)=0, 0382913164794445 B Fy(38)=92, 7546310424805 град

------------------------------------------------------

w(39)=244919, 980957031 рад/с Em(39)=0, 0260496027767658 B f(39)=180 град

K(39)=0, 713709831237793 АЧХ f(39)=-87, 3170623779297 град

Ym(39)=0, 0185918584465981 B Fy(39)=92, 6829376220703 град

------------------------------------------------------

w(40)=251199, 98046875 рад/с Em(40)=0, 000507309043314308 B f(40)=180 град

K(40)=0, 695905983448029 АЧХ f(40)=-87, 3851776123047 град

Ym(40)=0, 000353039387846366 B Fy(40)=92, 6148223876953 град

------------------------------------------------------