"Помилка! Можливо, функція розрівна. nПроінтегріровать на даним інтервалі Неможливо. Швідше за все, g (% lg) =", x_cur); (myfile, "Помилка! Можливо , функція розрівна. nПроінтегріровать на даним інтервалі Неможливо. Швідше Всього, g (% lg) = ", x_cur); (y_cur <0)
{("-oo. n"); (myfile, "-oo. n");
}
{("+ oo. n"); (myfile, "+ oo. n");
} (); (myfile); (1);
} ("y (% lg) =% lg, err =% lg, h =% lg n", x_cur, y_cur, err, h); (y_cur f_max) f_max = y_cur; (myfile, "y (% lg) =% lg, h =% lg n", x_cur, y_cur, h); (x_cur + h> b) h = fabs (b - x_cur); _cur + = h; _cur = big_step_res; (x_cur> = b) flag + +;
} (myfile); (" nтабліця значень записана у файл rk4.txt. n"); (" nнажміте будь-яку клавішу для побудова графіка ..."); = 0; (); (); clrscr (); (fabs (a)> fabs (b)) zoom = fabs (getmaxx ()/2/a); zoom = fabs (getmaxx ()/2/b) ; (i = 0; i
{(c == 8) c = 0; c = 8; (c); (a * zoom + getmaxx ()/2, i, a * zoom + getmaxx ()/2, i + 5); (b * zoom + getmaxx ()/2 - 1, i, b * zoom + getmaxx ()/2 - 1, i + 5);
} (fabs (f_min)> fabs (f_max)) norma = fabs (f_min) * zoom; norma = fabs (f_max) * zoom; = (getmaxy ()/2)/norma; (k <0.0001) k = 0.0001; (k> 10000) k = 10000; (i = 0; i
{(c == 8) c = 0; c = 8; (c); (i,-y0 * zoom * k + getmaxy ()/2, i + 5,-y0 * zoom * k + getmaxy ()/2); (i,-f_min * zoom * k + getmaxy ()/2, i + 5,-f_min * zoom * k + getmaxy ()/2); (i,-f_max * zoom * k + getmaxy ()/2, i + 5,-f_max * zoom * k + getmaxy ()/2);
} = ceil ((-y0 * zoom * k + getmaxy ()/2)/16); (metka <= 0) metka = 1; (metka == 15) metka = 16 ; (metka> 25) metka = 25; (1, metka); ("Y =% .2 g", y0, metka); = ceil ((-f_max * zoom * k + getmaxy ()/2)/ 16); (metka <= 0) metka = 1; (metka == 15) metka = 16; (metka> 25) metka = 25; (1, metka); ("Y =% .2 lg", f_max, metka); = ceil ((-f_min * zoom * k + getmaxy ()/2)/16); (metka <= 0) metka = 1; (metka == 15) metka = 16; (metka> ; 25) metka = 25; (1, metka); ("Y =% .2 lg", f_min, metka); = ceil ((a * zoom + getmaxx ()/2)/8); (metka1 < 1) metka1 = 1; (metka1> 75) metka1 = 75; (metka == 17) metka = 18; (metka1, 15); (a! = 0) printf ("% .2 lg", a); = ceil ((b * zoom + getmaxx ()/2 - 1)/8); (metka2 - metka1 <7) metka2 = metka1 + 7; (metka2 <1) metka2 = 1; (metka2> 75) metka2 = 75; (metka2, 15); ("% .2 lg", b); (80, 17); ("X"); (42,1); ("Y"); (39, 15); ("0");
// Малюємо систему координат (15); (0, getmaxy ()/2, getmaxx (), getmaxy ()/2); (getmaxx ()/2, 0, getmaxx ()/ 2, getmaxy ()); (getmaxx ()/2, 0, getmaxx ()/2 - 5, 10); (getmaxx ()/2, 0, getmaxx ()/2 + 5, 10); (getmaxx ( ), getmaxy ()/2, getmaxx () - 10, getmaxy ()/2 + 5); (getmaxx (), getmaxy ()/2, getmaxx () - 10, getmaxy ()/2 - 5); ...
