270
Решение в редакторе Visual Basic
Функции Urtem_1() вычисляет сеточную функцию
u
i,k
и возвращает ее
значения. Выделим диапазон ячеек
B2:L22
, введем формулу =Urtem_1() и
нажмем комбинацию ctrl+shift+enter. Получим значения приближенного
решения задачи. Вычислим в диапазоне
B26:L46
значения точного
решения. Для этого введем в строке
B25:L25
значения переменной
x
:
0;0,1;…;1. В столбце
A26:A46
значения
y
:0;0,1;…;2. В ячейку
B26
введем
формулу =SIN(
B$25
)*EXP(-
$A26
) и протянем ячейку
B26
маркером
заполнения до
L26
, а затем протянем строку
B26:L26
вниз до 46 строки.
В ячейку
N26
введем формулу
=КОРЕНЬ(СУММКВРАЗН(
B2:L22
;
B26:L46
))
и
вычислим сумму квадратов разностей значений. Получим значение
1,61293E-07.
Реализация в Visual Basic представлена на рис. 9.5 – рис. 9.6.
а)
Рис. 9.5. Решение задачи в Visual Basic: а) численно, б) в виде формул
