if (RadioButton3->Checked==true) x=i*i*h*h;
if (CheckBox1->Checked==true) pom=fnorm; else pom=0;
g=x+pom;
e3=e2;
e2=e1;
e1=e;
e=g-y;
us=e*(c1+d1+2)/c1+ //регулятор
e1*(c2+d2-1-d2*c1-d2*d1-2*d2)/c1-e2*(c2*d2+d2*d2-d2)/c1;
ug=us-ug*c2/c1; //сигнал управління
if (CheckBox2->Checked==true) ud=ug+ud; else ud=e;
u2=u1;
u1=u;
u=ud; //сигнал на ФАПЧ
ui=c1*u1+c2*u2;
uu1=uu;
uu=ui+d2*uu1;
y=uu+y;
Chart2->Series[0]->AddXY(t,y,"");
Chart2->Series[1]->AddXY(t,g,"");
Chart1->Series[0]->AddXY(t,e,"");
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
exit(1);
}