оняємо органи управління
}
{
// Обчислення похибки методом Рунге-Ромберга
inti;
Mistake-> Enabled = true; (i = 0; i
}
// Висновок результатів обчислення похибки
Screen-> Lines-> Add ("Розрахунок похибки апроксимації і коректування значень");
{> Lines-> Add ("x =" + AnsiString (knots [i]) +
": t Поправка:" + AnsiString (errors [i]) + " t Значення:" + (approxim_correct [i]));
}
{
// Вибір графіка рішення
Form2-> Invalidate ();
g_type = NONE; (Sender); _type = SOL;
}
{
// Вибір графіка апроксимації
Form2-> Invalidate ();
g_type = NONE; (Sender); _type = APR;
}
{
// Вибір графіка похибки
Form2-> Invalidate ();
g_type = NONE; (Sender); _type = MIS;
}
{
// Значення апроксимуючої функції в точці x
return (Parab [0] * pow (x, 2.0) + Parab [1] * x + Parab [2]);
}
{
// значення правій частині диф. рівняння в точці (x, y)
return x + sin (y/pow (7.0,0.5));
}
{
// Подія на відображення форми
Form2-> Width = 420;// Встановлюємо розміри форми для виведення графіків
Form2-> Height = Height; -> Show ();// Відображаємо форму-> Left = 20 + Left + Width; -> Top = Top; (Sender);//Виводимо сітку
}
{
// Якщо положення головного вікна змінилося, тягнемо слідом за ним вікно графіків
Form2-> Left = 20 + Left + Width; -> Top = Top;
}
{
// Креслимо графікi; kx = (double) Form2-> Width/n;// коефіцієнти стиснення по осямky = (double) Form2-> Height/n; -> Canvas-> ; MoveTo (x_c, y_c);// Викреслювання координатних ос
// Викреслюв...