= k +1; (x1: 5:2); (x2: 5:2);;: = x + h;; k = 0 then ('korney net'); .
Результат програми:
vvedi a, b, h
.1
.50
.60
У результаті обчислень кроковим методом отримуємо інтервал ізоляції кореня [18,5; 18,6]
Уточнення кореня методом половинного ділення:
program polovina; a, b, e, af, bf, xf, z, absxf, x: real; ('vvedite a, b, e'); (a, b, e); : = (a + b)/2;: = -52.567 * exp (ln (a) * 3) +1687.1 * sqr (a) -17668.6 * a +82315;: = -52.567 * exp (ln (b) * 3) +1687.1 * sqr (b) -17668.6 * b +82315;: = -52.567 * exp (ln (x) * 3) +1687.1 * sqr (x) -17668.6 * x +82315;: = abs (xf) ; abs (xf)> = e then: = af * xf; z <0 then b: = xa: = xwriteln ('x =', x: 4:3) abs (xf)
Результат програми:
vvedite a, b, e
.5
.6
.001
x = 18.502
стаціонарна швидкість Vст = 18,502 м/c
6.3 Знаходження часу розгону судна
Визначаємо час розгону судна - час за який судно виходить за стаціонарну швидкість:
t =? 1/F (V), де F (V) = T (V)-R (V)/m.
Метод Сімпсона:
program simpson;, b: real;: integer;: real;: real;: real;: integer;: integer; ('vvodim A, B: to n-1 do: = s + mn * (40400/(
.567 * (a + h * m) * (a + h * m) * (a + h * m) +1687.1 * (a + h * m) * (a + h * m)
.6 * (a + h * m) +82315)); mn = 4 then mn: = 2 else mn: = 4;: = s * h/3; ('t =' , simpson: 6:3);;
end.
Результат програми:
vvodim A, B:
.502
t = 52.337
Час розгону до Vст t = 52,337 сек.
6.4 Знаходження шляху розгону судна
Обчислюємо шлях розгону, шлях який пройде судно за час розгону.
Метод Ейлера 2 модифікація:
Program eiler2;
Результат програми:
В
Шлях розгону до Vст S = 532,5865 м
Графік S (t)
В
Графік V (t)
В
