Здравствуйте. Задание состоит в том, чтобы отрисовать поверхность, формула которой состоит из трех функций со сложными ограничениями по интервалу. После проверки преподаватель указал на ошибку во втором "если".
Спасибо большое! Я думала, проблема в третьем ограничении, и не знала, куда его вписать. Изменений в поверхности по итогам редактирования формулы я не нашла, буду надеяться, что прокатит)
Раз написано, значит нужно. Только мне кажется что там описка не Х=Y, а X+Y. Вторая формула правильная если в третьем условии описка.
Цитата
mechanix 85 написал: а во второй формуле ее и вовсе нет.
а вот тут вы ошибаетесь. После первой проверки (ЕСЛИ(ABS($A9+B$8)<0,5...) программа уже знает что сумма больше равна 0,5 и второй раз проверять не обязательно.
Возвращаюсь с этой поверхностью, потому что не понимаю, что хочет преподаватель.
Все подписано, что еще добавить? Числовые значения на поверхность? Так это будет каша. Оси подписаны. Ряды (ось Z) переименовать? так это результат вычисления, хрен знает, как их переименовать. В лабке ничего не сказано про подписи категорий рядов и значения.
Чувствую себя ущербной, хотя в Excel работаю много лет...
Был не прав... Вот прям влоб и ничего не оптимизируя...
Код
Public Function zadanie(ByVal X As Single, ByVal Y As Single) As Single
Dim e As Single
e = 2.71828182845905
If Abs(X + Y) < 0.5 Then zadanie = 2 * X ^ 2 - e ^ Y
If (Abs(X + Y) >= 0.5 And Abs(X + Y) < 1#) Then zadanie = X * e ^ (2 * X) - Y
If Abs(X + Y) >= 1# Then zadanie = 2 * e ^ X - Y * e ^ Y
End Function