фік зміни швидкості другого тіла
В
В
5. Визначення часу повного загасання коливань системи в EXCEL
Як видно з таблиці, повне загасання коливань відбувається на п'ятій секунді. Це час в 3,8 перевищує час нашого спостереження за системою. Пропоную переконатися в повному згасанні коливань системи за допомогою графіків. p align="center"> коші excel механічний система
Графік зміни координат центру мас першого тіла
В
Графік зміни координат центру мас другого тіла
В
Графік зміни швидкості першого тіла
В
Графік зміни швидкості другого тіла
В
6. Обробка вихідних даних та отримання необхідних значень в PASCAL
.1 Файл введення
- m1
- m2
.05 - d1
.03 - d2
- початкові умови
- початкові умови
- початкові умови
- початкові умови
- кількість кроків
6.2 Програма Метод Ейлера
program Eiler; odnmas = array [1 .. 201] of then T0: = 3 * T1T0: = 3 * T2;: = T0/n;: = 1; [i]: = 0; [i]: = y10; y2 [i]: = y20; [i]: = V10; V2 [i]: = V20; (f2, 't y1 y2 V1
{di: = i/10; (frac (di) = 0) or (frac (di) = 0.1) then
i: = 2 to n doAbs (y1 [i])> maxy1 then: = Abs (y1 [i]); Abs (y2 [i])> maxy2 then: = Abs ( y2 [i]); Abs (V1 [i])> maxV1 then: = Abs (V1 [i]); Abs (V2 [i])> maxV2 then: = Abs (V2 [i]);; ( f2); (f2, 'maxy1', 'maxy2', 'maxV1', 'maxV2'); (f2, maxy1: 8:3, maxy2: 8:3, maxV1: 8:3, maxV2: 8:3) ; (f1); (f2);.
(f1); (f2);.
6.3 Файл виведення результату
ty1 y2 V1 V2
.000 0.000 0.000 0.000 0.000
.007 0.000 0.000 0.000 0.000
.014 0.000 0.000 0.010 0.000
.020 0.000 0.000 0.029 0.004
.027 0.000 0.000 0.058 0.015
.034 0.001 0.000 0.093 0.035
.041 0.001 0.000 0.136 0.062
.047 0.002 0.001 0.184 0.095
.054 0.003 0.001 0.237 0.131
.061 0.005 0.002 0.292 0.166
.068 0.007 0.003 0.348 0.197
.074 0.009 0.005 0.403 0.222
.081 0.012 0.006 0.456 0.241
.088 0.015 0.008 0.503 0.253
.095 0.019 0.010 0.544 0.259
.101 0.022 0.011 0.577 0.260
.108 0....
