Курсовая работа: Решение систем дифференциальных уравнений при помощи неявной схемы Адамса 3-го порядка
//---------------------------------------------------------------------------
int nx,np,k,i,n;
double a,b,e,h,d,de,z,x;
double y[2],yp[2],f[2],fm[2],fp[2],fp1[2],fp2[2];
unsigned long int time=GetTickCount();
unsigned long int time1=0;
a=StrToFloat(Edit3->Text);
b=StrToFloat(Edit4->Text);
e=StrToFloat(Edit5->Text);
nx=StrToInt(Edit1->Text);
np=StrToInt(Edit2->Text);
Memo1->Clear();
Memo1->Lines->Add("Входныеданные:");
Memo1->Lines->Add("");
Memo1->Lines->Add("du/dx="+Edit8->Text+";");
Memo1->Lines->Add("dv/dx="+Edit9->Text+";");
Memo1->Lines->Add("Интервал: ["+Edit3->Text+";"+Edit4->Text+"]");
Memo1->Lines->Add("Допустимаяпогрешность: е="+Edit5->Text);
Memo1->Line