Табулирование функции одной переменной

[Катя__]

Добрый день, помогите выполнить задание, пожалуйста.
Протабулировать функцию одной переменной f(t). Результаты вывести на рабочий лист Excel. В точках, где функция не определена, вывести 4 символа «****». Построить график функции c помощью макроса.
13. Построить график кривой, называемой «циссоидой». Уравнение кривой задано в полярных координатах: p=(2*A^(sin(Ⴔ)))/(cos(Ⴔ)), где -10πи<Ⴔ<10пи, A=1.

[jillitil]

Const Пи = 3.1415926535894

Sub Макрос13()
    Строка = 5
    dx = Пи / 16
    x = -2 * Пи
    While x < 2 * Пи
        Cells(Строка, 3) = f(x)
        Cells(Строка, 2) = x
        Строка = Строка + 1
        x = x + dx
    Wend
End Sub

Function f(x)
    On Error GoTo ОшибкаВычисления
    A = 3
    f = 2 * A ^ (Cos(x) / Sin(x))
    Exit Function
    
ОшибкаВычисления:
    f = "****"
End Function