Логарифмы

[Ludanka_V]

HELP!!! При вычислении функции, код полностью не компилирует, останавливается на логарифме . Может кто подскажет, что не так?

Sub zad2()
Const Alfa = 0.5, Betta = 0.2 'задание значений в разделе констант
Dim A, B, C, D As Double 'объявление переменных
Dim F1, F2, F3, F4 As Double
Dim Y, X As Double
Dim dx As Double
Dim i As Integer
A = 3.4 ' Присвоение значений
B = 12.6
C = 15.8
D = 17.6
'создание шапки для таблицы
Cells(1, 2) = "y"
Cells(1, 3) = "x"
i = 2 'номер строки
dx = 0.5 'шаг вычисления
For X = -5 To 5 Step dx
If X > 4 Then 'проверка условия
F1 = Sqr(Alfa * X) + 8.5 * A
Y = F1
Else
If (X >= 1) And (X <= 4) Then 'проверка условия
F4 = Sqr(A * X + B * X ^ 2)
Y = F4
Else
If (X >= 0) And (X <= 1) Then 'проверка условия
F2 = Log(B * X / (C * X ^ 2 + D))
Y = F2
Else: F3 = 1.3 + 2 * Exp(Abs(Betta * X + C))
Y = F3
End If
End If
End If
Cells(i, 2) = Y 'вывод значений x и y в i-ю строку 2-ого столбца на Листе 1
Cells(i, 3) = X
i = i + 1
Next X
End Sub

[Sasha_Smirnov]

Компилируется-то нормально. Но когда, уже при работе программы, функции Log передаётся X, равный 0, возникает переполнение.

[Sasha_Smirnov]

Вот ваш вариант в рабочем виде. В zad2.xls запускается по Ctrl-s.

Sub LogTable()

Const Alfa = 0.5, Betta = 0.2 'задание значений в разделе констант'
Dim A, B, C, D As Double 'объявление переменных'
Dim F1, F2, F3, F4 As Double
Dim Y, X As Double
Dim dx As Double
Dim i As Integer

A = 3.4 ' Присвоение значений'
B = 12.6
C = 15.8
D = 17.6
'создание шапки для таблицы'
Cells(1, 2) = "x"
Cells(1, 3) = "y"

i = 2 'номер строки'
dx = 0.5 'шаг вычисления'

For X = -5 To 5 Step dx
    If X > 4 Then 'проверка условия'
        F1 = Sqr(Alfa * X) + 8.5 * A
        Y = F1
    Else
        If (X >= 1) And (X <= 4) Then 'проверка условия'
            F4 = Sqr(A * X + B * X ^ 2)
            Y = F4
        Else
            If (X > 0) And (X <= 1) Then 'проверка условия'
            F2 = Log(B * X / (C * X ^ 2 + D)) 'X и B не должны быть = 0'
            Y = F2
            Else: F3 = 1.3 + 2 * Exp(Abs(Betta * X + C))
            Y = F3
            End If
        End If
    End If
    Cells(i, 2) = X
    Cells(i, 3) = Y 'вывод значений x и y в i-ю строку 3-го столбца на Листе 1
    i = i + 1
Next X

End Sub

[Ludanka_V]

Сообщение от Sasha_Smirnov

Компилируется-то нормально. Но когда, уже при работе программы, функции Log передаётся X, равный 0, возникает переполнение.

Большое спасибо за помощь!

[Ludanka_V]

Сообщение от Sasha_Smirnov

Компилируется-то нормально. Но когда, уже при работе программы, функции Log передаётся X, равный 0, возникает переполнение.

Оказывается в задаче для функции с логарифмом нет уловия (перепутала). Теперь код прописала так. не запускается.. Если прописывать условие x<>0, то получится уже не по условию задачи.. Или вообще тогда смысла нет функцию с логарифмом писать? Помогите, пожалуйста, еще раз

Option Explicit
Sub Zadanie_2()
Const Alfa = 0.5, Betta = 0.2 'задание значений в разделе констант'
Dim A, B, C, D As Double 'объявление переменных'
Dim F1, F2, F3, F4 As Double
Dim Y, X As Double
Dim dx As Double
Dim i As Integer

A = 3.4 ' Присвоение значений'
B = 12.6
C = 7.8
D = 1.6
'создание шапки для таблицы'
Cells(1, 2) = "x"
Cells(1, 3) = "y"
i = 2 'номер строки'
dx = 0.5 'шаг вычисления'

For X = -5 To 5 Step dx
If X > 4 Then 'проверка условия'
F1 = Sqr(Sin(Alfa * X)) + 8.5 * A
Y = F1
Else
If (X >= 1) And (X <= 4) Then 'проверка условия'
F4 = Sqr(A * X + B * X ^ 2) / Alfa
Y = F4
Else
If (X >= 0) And (X <= 1) Then 'проверка условия'
F2 = 1.3 + 2 * Exp(Abs(Betta * X + C))
Y = F2
Else
F3 = Log(B * X / (C * X ^ 2 + D)) 'x и B не должны быть равны 0
Y = F3

End If
End If
End If
Cells(i, 2) = X
Cells(i, 3) = Y 'вывод значений x и y в i-ю строку 3-го столбца на Листе 1
i = i + 1
Next X
End Sub

[Teslenko_EA]

Здравствуйте Ludanka_V.
не вникая в суть вопроса, проверить "x и B не должны быть равны 0" можно так:

If Not x * B = 0 Then F3 = Log(B * X / (C * X ^ 2 + D))

Евгений.
P.S. для удобочитаемость заключайте вводимый код в тэги [соde]... ...[/соde]

[Sasha_Smirnov]

Dim A, B, C, D As Double 'объявление переменных'

в этом языке пишется так:

Dim A As Double, B As Double, C As Double, D As Double

Не очень изящно, но что поделаешь... можно, кстати и просто вот так:

Dim A, B, C, D 'объявление переменных'

Это лаконичнее;-)