Skaitiniai metodai. Racionaliųjų funkcijų metodas. Padė aproksimacija

2007
1.TEORIJA
1.1.Funkcija atanh(x) (hyperbolinis arktangentas)
Funkcijos atanh(x) grafikas:
Funkcijos apibrėžimo sritis (-1;1).
Funkcijos reikšmių sritis ( -∞;+∞).
Funkcija yra nelyginė: atanh(-x) = -atanh(x), taikant Padė aproksimaciją užtenka nagrinėti ją intervale [0; 1).
Funkcija yra neperiodinė ir simetriška koordinačių pradžios atžvilgiu.
Skleidinys Makloreno eilute:
., |x| Clear();
try {
x = StrToFloat(Edit1->Text);
if ((x = 1)) throw -1;
}
catch (...) {
Memo1->Lines->Add("Ivesti blogi duomenys!");
return;
}
sk = REDUK(x, maxx);
y = x*x;
Ss = 0;
Sv = 0;
z = 1;
for (i = 0; i Add(FloatToStr(S));
}
//---------------------------------------------------------------------------
int TForm1::REDUK (double &x, double maxx) {
int sk;
if (x < 0) {
x = fabs(x);
zenklas = -1;
}
else zenklas = 1;
sk = 0;
while (x >= maxx) {
sk++;
x = -2. + 3./(2. - x);
}
return sk;
}
//---------------------------------------------------------------------------
double TForm1::ANTIREDUK (double y, int sk) {
int i;
for (i = 1; i Execute()) {
Memo1->Lines->SaveToFile(SaveDialog1->FileName);
}
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button2Click(TObject *Sender)
{
double xprad, xgal, hx, eps, z, x, xx;
double narys, A, S, n;
int max, i, j;
Memo1->Clear();
try {
xprad = StrToFloat(Edit1->Text);
xgal = StrToFloat(Edit2->Text);
hx = StrToFloat(Edit3->Text);
max = StrToInt(Edit4->Text);
eps = StrToFloat(Edit6->Text);
if (xprad = 1) throw -1;
if (xprad > xgal) throw -1;
if (hx < 0) throw -1;
if ((max < 0) || (max >= Cmas)) throw -1;
if (eps < 0) throw -1;
}
catch (...) {
Memo1->Lines->Add("Ivesti blogi duomenys!");
return;
}
x = xprad;
while (x eps) && (i < max)) {
i++;
n = (double)i;
z = fabs( (narys*xx*xx*(2*n - 1))/(2*n + 3) );
narys = (narys*xx*(2*n - 1))/(2*n + 1);
A = (A*(2*n - 1))/(2*n + 1);
a[i] = A;
S = S + narys;
//z = fabs(atanh(x) - S); //Alternatyvi paklaida
}
Memo1->Lines->Add("x = " + FloatToStr(x) + "\t n = " + IntToStr(i) + "\t y = " + FloatToStr(S) + "\t ty = " + FloatToStr(atanh(x)) + "\t dy = " + FloatToStr(z));
x = x + hx;
}
Memo1->Lines->Add("");
Memo1->Lines->Add("Laipsnines eilutes koeficientai:");
Memo1->Lines->Add("");
for (j = 0; j Lines->Add("a[" + IntToStr(j) + "] = " + FloatToStr(a[j]) + ";");
}
//---------------------------------------------------------------------------
void...

Daugiau informacijos...

★ Klientai rekomenduoja

Šį rašto darbą rekomenduoja mūsų klientai. Ką tai reiškia?

Mūsų svetainėje pateikiama dešimtys tūkstančių skirtingų rašto darbų, kuriuos įkėlė daugybė moksleivių ir studentų su skirtingais gabumais. Būtent šis rašto darbas yra patikrintas specialistų ir rekomenduojamas kitų klientų, kurie po atsisiuntimo įvertino šį mokslo darbą teigiamai. Todėl galite būti tikri, kad šis pasirinkimas geriausias!