Page 97 - 6852
P. 97
Додаток Е
Приклад виконання програм GWP.bas , RKM2.bas,
KOR.bas, PCH.bas з такими вхідними даними :
0 1 . 0 00088
А , В , 15 . 7 .
. 0 000141 . 0 04837 . 0 000028566
GWP.bas
Параметри послiдовностi N,m.k заданi в 80 операторi
Будемо мiняти параметри послiдовностi?:
1-так,0-нi
Лiчильник циклiв - 1023
Будемо формувати файл?
1-так; 0-нi
Кiнець
Ok_
RKM2.bas
МЕТОД РУНГЕ-КУТТА-МЕРСОТА РОЗВ'ЯЗКУ
ДИФЕРЕНЦIАЛЬНОГО РIВНЯННЯ dx/dt=Ax+Bu
(моделювання стохастичного процесу)
Введiть розмiрнiсть вектора X? 2
Вводимо матрицю коефiцiєнтiв A
Вводимо 1 рядок
? 0
? 1
Вводимо 2 рядок
? -0.000141
? -0.04837
Вводимо матрицю коефiцiєнтiв B
Вводимо 1 рядок
? 0.00088
Вводимо 2 рядок
? -0.000028566
Вводимо початковий крок iнтегрування h? 15.7
ВИВОДИМО ДАНI НА ЕКРАН ДИСПЛЕЯ?
78