, tk, t [1], V [1], S [1]);: = (tk -tn)/n; I: = 1 TO n DO [I +1]: = t [I] + ht; [I +1]: = V [I] + ht * ((1/m) * (( 19219 +313.88 * V [I] -41.58 * SQR (V [I])) - (-1131.4 +2212 * V [I] -84.604 * SQR (V [I])))); [I +1]: = S [I] + ht * V [I]; (f1, t [I +1]: 8:3); (f2, V [I +1]: 8:3); (f3, S [I + 1]: 8:3);; (f1); (f2);
close (f3);.
Рис. 7
Паскаль (гальмування)
PROGRAM DIF1;, tn, tk, ht: REAL;, I: INTEGER;, V, S: array [1 .. 210] of n, tn, tk, t [1], V [1], S [1] '); (n, tn, tk, t [1], V [1], S [1]);: = (tk -tn)/n; I: = 1 TO n DO [I +1]: = t [I] + ht; [I +1]: = V [I] + ht * ((1/m) * (- (-1131.4 +2212 * V [I] -84.604 * SQR (V [I])))); [I +1]: = S [I] + ht * V [I]; (f1, t [I + 1]: 8:3); (f2, V [I +1]: 8:3); (f3, S [I +1]: 8:3);; (f1); (f2);
close (f3);.
Рис. 8
Висновки
Друга модельна завдання не представляє точних результатів за часом та шляхи розгону. Більш точними слід вважати результати першої і третьої модельних завдань, тому що графіки, отримані в результаті інтерполяції максимально точно наближені до вихідних.
Величезне час гальмування судна можна пояснити неточністю кінцевого графіка опору води R (V): при швидкостях менше 0.5 м/с, опір близько до нуля і судно перестає гальмувати.
