Самоучитель VBA


Метод GoalSeek - часть 2


/p>

Рис. 3.14. Ввод данных на рабочем листе при решении нелинейного уравнения

Шаг 2

Выберите команду Сервис, Подбор параметра (Tools, Goal Seek). В появившемся диалоговом окне Подбор параметра (Goal Seek) (рис. 3.15)

  • В поле Установить в ячейке (Set cell) введите ссылку на ячейку А2

  • В поле Изменяя значение ячейки (By changing cell) — ссылку на ячейку A1

  • В поле значение введите 3. В поле Значение (То value) вводится величина правой части уравнения. В методе Goaiseek аргумент Goal отвечает за правую часть уравнения. В данном случае присвоим аргументу Goal значение 3. Таким образом, имеем":

Range ("A2") .GoalSeek Goal:=3,

ChangingCell := Range ("A1")

 

Рис. 3.15. Диалоговое окно Подбор параметра

Шаг3

Нажатие кнопки OK вызовет выполнение команды Подбор параметра (GoalSeek), результат расчета которой будет помещен в ячейки A1 (значение корня, в данном случае 1.731856) и А2 (значение левой части уравнения при найденном значении корня, в данном случае оно равно 2 .999325) (рис. 3.16). В силу того, что решение находится приближенно с указанной точностью, в ячейке А2 получилось 2.999325, а не ровно 3. Увеличивая точность, можно найти лучшее приближение к корню.

Рис. 3.16. Результат вычислений команды Подбор параметра




- Начало -  - Назад -  - Вперед -