Return Y_;

}

void __fastcall TForm1:: FormShow(TObject *Sender)

{

RadioGroup1-> ItemIndex=0;

RadioGroup2-> ItemIndex=1;

}

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

void __fastcall TForm1:: Button1Click(TObject *Sender)

{

Jm=StrToFloat(Edit1-> Text);

T=StrToFloat(Edit2-> Text)*1e-6;

Ti=StrToFloat(Edit3-> Text)*1e-6;

R1=StrToFloat(Edit4-> Text);

R2=StrToFloat(Edit5-> Text);

R3=StrToFloat(Edit6-> Text);

R4=StrToFloat(Edit7-> Text);

C=StrToFloat(Edit8-> Text)*1e-6;

q=T/Ti;

W1=2*3.14/T;

Dwr=W1/50;

float Tk=(R3+R4)*R2*C/(R2+R3+R4);

W0=1/Tk;

K1=R3*R2/(R2+R3+R4);

Label19-> Caption=FloatToStr(W0);

Label1-> Caption=FloatToStr(q);

Series1-> Clear();

LineSeries1-> Clear();

if (RadioGroup1-> ItemIndex==6)

{

float dt=T/50;

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

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" Вхідний сигнал");

Series1-> AddXY(t, S_t(t), " ", clRed);

}

// Form1->

}

if (RadioGroup2-> ItemIndex==6)

{

float dt=T/50;

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

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" Вихідний сигнал");

LineSeries1-> AddXY(t, Y_t(t), " ", clRed);

}

// Form1->

}

for (float W=0; W< =2.1*W1*q; W+=Dwr)

{

if (RadioGroup1-> ItemIndex==0)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" АЧС входу");

Series1-> AddXY(W, S(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==0)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" АЧС входу");

LineSeries1-> AddXY(W, S(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==1)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" ФЧС входу");

LineSeries1-> AddXY(W, FF(W), " ", clRed);

}

if (RadioGroup1-> ItemIndex==1)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" ФЧС входу");

Series1-> AddXY(W, FF(W), " ", clRed);

}

if (RadioGroup1-> ItemIndex==2)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" АЧX");

Series1-> AddXY(W, K(W), " ", clRed);

}

if (RadioGroup1-> ItemIndex==3)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" ФЧX");

Series1-> AddXY(W, F(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==2)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" АЧX");

LineSeries1-> AddXY(W, K(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==3)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" ФЧX");

LineSeries1-> AddXY(W, F(W), " ", clRed);

}

if (RadioGroup1-> ItemIndex==4)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" АЧС виходу");

Series1-> AddXY(W, Y(W), " ", clRed);

}

if (RadioGroup1-> ItemIndex==5)

{

Chart1-> Title-> Text-> Clear();

Chart1-> Title-> Text-> Add(" ФЧС виходу");

Series1-> AddXY(W, Fy(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==4)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" АЧС виходу");

LineSeries1-> AddXY(W, Y(W), " ", clRed);

}

if (RadioGroup2-> ItemIndex==5)

{

Chart2-> Title-> Text-> Clear();

Chart2-> Title-> Text-> Add(" ФЧС виходу");

LineSeries1-> AddXY(W, Fy(W), " ", clRed);

}

}

Memo1-> Lines-> Clear();

for (int i=0; i< =2*q; i+=1)

{

Memo1-> Lines-> Add(" w(" +FloatToStr(i)+")=" +FloatToStr(i*W1)+" рад/с Em(" +FloatToStr(i)+")=" +FloatToStr(S(i*W1))+" B f(" +FloatToStr(i)+")=" +FloatToStr(FF(i*W1))+" град");

Memo1-> Lines-> Add(" K(" +FloatToStr(i)+")=" +FloatToStr(K(i*W1))+" АЧХ f(" +FloatToStr(i)+")=" +FloatToStr(F(i*W1))+" град");

Memo1-> Lines-> Add(" Ym(" +FloatToStr(i)+")=" +FloatToStr(Y(i*W1))+" B Fy(" +FloatToStr(i)+")=" +FloatToStr(Fy(i*W1))+" град");

Memo1-> Lines-> Add(" ------------------------------------------------------");

}

Memo1-> Lines-> SaveToFile(" Result.txt");

}

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

void __fastcall TForm1:: RadioGroup1Click(TObject *Sender)

{