Решить методом итераций уравнение VBA

[DiemonStar]

x^3-3x+1=0

или

x^3+1 = 3x

или

x = (x^3 + 1)/3

Смысл понятен?)

Public Sub iter()

eps = 0.0001
x = 1
I = 1
Do
  xn = x
  x = (1 + xn ^ 3) / 3
  MsgBox "Step: " & I & "; X=" & x
  I = I + 1
Loop Until Abs(xn - x) < eps

End Sub

вот тут вроде бы правильнее) Можете проверить, подставив значение x в исходное уравнение.

[fd_Nikolas]

У меня почему-то х всегда равен 1 на каждом шаге.

Вписал так:

Public Sub iter()
Dim eps%,x%,i%,xn%
eps = 0.0001
x = 1
I = 1
Do
  xn = x
  x = (1 + xn ^ 3) / 3
  MsgBox "Step: " & I & "; X=" & x
  I = I + 1
Loop Until Abs(xn - x) < eps

End Sub

[ViktorR]

Я понимаю, что

не шарю

, но настолько ...

Что значат проценты в описании переменных?

Почитайте хотя бы такую часть темы, как типы данных и способы их описания.

Вы описываете переменные как целого типа, а они вещественного.

Подсказка: Пишите, например, Int и, наведя курсор на это слово, жмете Ctrl+F1. В появившемся окне подсказки ищите объяснение.
Но лучше в книжку.


"Читать, Читать и Читать"- как завещал товарищ ...
А может это был и не он?

[fd_Nikolas]

Если бы я интересовался данной теме по собственному желанию,я бы наверное и тему бы не создавал и пытался бы понять все самому,да и вряд ли бы это осуществлял в среде VBA...
Но так как меня вообще не привлекают математические задачи,да и которые надо решать в VBA поэтому я не в состоянии их выполнить.

[ViktorR]

Если бы я ещё и родился по собственному желанию ...
Если бы да кабы ...
Есть задание и его надо сделать. Важно для себя понять - надо.
Основная часть нашей жизни под этим лозунгом.
Ну да ладно... Это не место для ...

Кстати, а среда VBA уж не так и плоха.
Каждому свое место под этим небом

А вот так (если придерживаться Вашего стиля)?

Public Sub iter()
Dim eps!, xn!, x!
' Более предпочтительно явное описание
' Dim eps, xn, x As Single

eps = 0.0001
xn = 1
x = (1 + x ^ 3) / 3
While Abs(xn - x) > eps
xn = x
x = (1 + xn ^ 3) / 3
MsgBox x
Wend
End Sub

Пробуй, вроде так ...

[fd_Nikolas]

Я из принципов "цель не оправдывает средства" в данном случае отношу к данной теме,поэтому я ее создал =)

Да,у меня уже все заработало таким способом:

Public Sub iter()
Dim eps#, x#, i#, xn#
eps = 0.0001
x = 1
i = 1
Do
  xn = x
  x = (1 + xn ^ 3) / 3
  MsgBox "Шаг: " & i & "; X=" & x
  i = i + 1
Loop Until Abs(xn - x) < eps
End Sub

Спасибо всем за помощь.