Лабораторная работа в Visual Basic уточнение корня метод итераций.

[Мария0611]

Здравствуйте, помогите, пожалуйста, не могу разобраться с лабораторной. делаю все по алгоритму рабочего макроса - необходимо поменять только формулу функции, но программа почему-то выдает ошибку "invalid procedure call or argument"

[Мария0611]

Вот текст макроса:


Function F(x)
F = F = Sqr(1 - 0.4 * x ^ 2) - Atn(x / Sqr(-x * x + 1))
End Function
Sub Kate()
With Selection
.WholeStory
.Cut
E = 0.0001
Y = 1
Do
x = Y
Y = x - F(x)
Loop Until Abs(x - Y) < E
.TypeText Text:="Ответ: X = " & Format(Y, "#0.00000000")
ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=2, NumColumns:= _
11
.TypeText Text:="X"
.MoveRight Unit:=wdCell
For x = 0 To 1.1 Step 1 / 9
.TypeText Text:=Format(x, "#0.00")
.MoveRight Unit:=wdCell
Next
.TypeText Text:="Y"
.MoveRight Unit:=wdCell
For x = 0 To 1.1 Step 1 / 9
.TypeText Text:=Format(F(x), "#0.00")
If x > 1 - 0.01 Then Exit For
.MoveRight Unit:=wdCell
Next
.MoveLeft Unit:=wdCharacter, Count:=16, Extend:=wdExtend
.Copy
WordBasic.InsertChart
End With
End Sub