Решение системы нелинейных уравнений. Функции пользователя. Функция начисления комиссионных

Лабораторная работа. Решение системы нелинейных уравнений. Функции пользователя

Пример. Решить систему уравнений .

Пара  является решением системы, тогда и только тогда, когда она является решением следующего уравнения с двумя неизвестными:

.

С помощью средства Поиск решения будем решать равносильное системе уравнение. Геометрически решения системы уравнений описывают точки пересечения прямой с окружностью, радиус которой равен , следовательно, уравнение имеет не более двух решений.

Локализуем корни по переменным   и .

Полученный результат

Задача 2. Составить функцию начисления комиссионных по следующему правилу:

Комиссионные зависят от ставки, занимаемой менеджером, если он принят в постоянный штат фирмы, то комиссионные начисляются по описанному в таблице правилу, если нет, то комиссионные выплачиваются в размере 75%.

Решение. Функция комиссионные зависит от двух параметров Продажи и Ставка. Если менеджер принят в штат компании, то Ставка=1, если нет, то Ставка=0.

Для построения пользовательских функций нужно открыть стандартный модуль редактора VBA Сервис è Макрос è Редактор Visual Basic. После чего нужно выбрать команду Insert è Module.

Нужная нам функция имеет вид:

Function Комисс(Продажи, Ставка)

If Продажи <= 9999 Then

Оплата = Продажи * 0.08

ElseIf Продажи <= 19999 Then

Оплата = Продажи * 0.1

ElseIf Продажи <= 39999 Then

Оплата = Продажи * 0.12

Else

Оплата = Продажи * 0.14

End If

If Ставка = 0 Then

Комисс = 0.75 * Оплата

Else

Комисс = Оплата

End If

End Function

Задание 1. Решить систему уравнений

Задание 2. Составить функцию начисления комиссионных по следующему правилу: если продукции продано меньше, чем на  руб., то комиссионные составляют  от стоимости реализованной продукции, если продукция продано не меньше, чем на  руб., но меньше, чем на  руб., то комиссионные составляют  и т.д., если продукции продано не меньше, чем на  руб., то комиссионные составляют  .