Ошибка с Sqr c отрицательным числом

[Rustamel]

Всем добрый вечер. Помогите в решении элементарной математической функции

Sub func()
Dim f, x, a, b, h As Single, z As Integer
a = 1
b = 2
h = 0.1
For x = -5 To -4 Step h
f = Sqr(x + a) + (x ^ 2 + b) / x
z = z + 1
Worksheets(3).Cells(z, "a") = "f(x)= " & f
Worksheets(3).Cells(z, "b") = "при x= " & Format(x, "###.#")
Next x
End Sub
Дело в том что Excel ругается(выдаёт Run-time error '5': Invalid procedure call or argument) на Sqr c отрицательным значением т.е. x=-5,-4,-3 и т.д

Заранее спасибо

[alex77755]

f = Sqr
Блин. пьяный я.
Ну,вроде из отрицательных чисел корень не извлекается, но, вроде, можно возвести в степень. Типа
f = a^b

[Rustamel]

Я пробовал даже вводить вот так
f = (x + a)^(1/2) + (x ^ 2 + b) / x
бесполезно сирано ругается

[alex77755]

Показал бы весь код и на што ругается

[alex77755]

Изначально поставь в начале кода Option Explicit
Будет проще искать ошибки

[Rustamel]

Спасибо! Уже разобрался он ругался потамучто не мог извлеч корень из отрицательного числа а я возвёл его в модуль
f = Sqr(abs(x + a)) + (x ^ 2 + b) / x

[EducatedFool]

Я бы посоветовал сделать так:

Sub func()
    Dim f, x, a, b, h As Single, z As Integer
    a = 1
    b = 2
    h = 0.1
    For x = -5 To -4 Step h
        f = Sgn(x + a) * Sqr(Abs(x + a)) + (x ^ 2 + b) / x
        z = z + 1
        Worksheets(3).Cells(z, "a") = "f(x)= " & Format(f, "0.000")
        Worksheets(3).Cells(z, "b") = "при x= " & Format(x, "###.#")
    Next x
End Sub

А то у вас теряется знак выражения Sqr(x + a), что приводит к ошибке в вычислениях.

[Rustamel]

Благодарствую!!!!

[IgorGO]

Нельзя же так над математикой издеваться...
Данная функция не определена на интервале значений х от -бесконечности до -1. А по заданию требуется определить значения функции для х от -5 до -4.
в данном задании строку, где вычисляется f надо закоментировать вообще, а строку
Worksheets(3).Cells(z, "a") = "f(x)= " & f
заменить на
Worksheets(3).Cells(z, "a") = "f(x) - не определена."

Например при х=-5, функция равна комплексному числу
f(x) = -5.4 + 2i,
где i - это мнимая единица (i в квадрате = -1)