/>
6.5 Знаходження енергії розгону судна
Обчислюємо енергію розгону за формулою:
E = m/2? v 2 (t) dt
V (t) = 0,35352 t
Метод Сімпсона:
program simpson;, b: real;: integer;: real;: real;: real;: integer;: integer; ('vvodim A, B:'); (a, b); : = 30;: = (ba)/n;: = 40400/2 * sqr (0.35352 * a) +40400/2 * sqr (0.35352 * b);: = 4; m: = 1 to n-1 do: = s + mn * (40400/2 * sqr (0.35352 * (a + h * m))); mn = 4 then mn: = 2 else mn: = 4;: = s * h/3; ('E = ', simpson: 6:3);
readln;.
Результат програми:
vvodim A, B:
.337
E = 120638121.642
Енергія розгону судна до Vст E = 120,6 МДж
6.6 Знаходження часу гальмування судна
t =? m/R (V)
Метод Сімпсона:
program simpson;, b: real;: integer;: real;: real;: real;: integer;: integer; ('vvodim A, B: to n-1 do: = s + mn * (40400/(40.393 * (a + h * m) * (a + h * m) * (a + h * m) -1488.7 * (a + h * m) * (a + h * m) +16535 * (a + h * m) -12905)); mn = 4 then mn: = 2 else mn: = 4;: = s * h/3; ('t =' , simpson: 6:3);;
end.
Результат програми:
vvodim A, B:
.502
t = 12.491
Час гальмування = 15.72 сек.
6.7 Знаходження шляху гальмування судна
Метод Ейлера:
Program x0, xn, y0, z0, V, D '); (x0, xn, y0, z0, V, D);: = x0; y: = y0; z: = z0;: = z/D;: = xn/D; x <= xn do; ('t =', x: 8:4, 'S =', y: 8:4, 'V =', z: 8:4);: = x + h ;: = y + h * z;: = zN;: = x1;: = y + h * z1;: = zN;;
readln;.
Результат програми:
В
Шлях, пройдений до повного гальмування S = 105,0037 м
Графік S (t)
В
Графік V (t)
В
6.8 Знаходження енергії гальмування судна
V (t) = -1,4812 t +18,502
Метод Сімпсона:
program simpson;, b: real;: integer;: real;: real;: real;: integer;: integer; ('vvodim A, B:'); (a, b); : = 30;: = (ba)/n;: = 40400/2 * sqr (-1.4812 * a +18.502) +40400/2 * sqr (-1.4812 * b +18.502);: = 4; m: = 1 to n-1 do: = s + mn * (40400/2 * sqr (-1...
