https://i.imgur.com/GR69TT9.png
Как и на картинке, я хочу зациклить epsilon L с итерацией, в то время как моя итерация использует только epsilonL (предположение) + 0,00001, пока epsilonL (предположение) не отличается от epsilonL (функция)
Dim b As Long, c As Long, d As Long, e as long
epsilon d = -0.0002
epsilonr = 0.01
epsilonL(assumption) = 0.0001
Do
b = 2e5* epsilonL(assumption)
c = 2e5 * (5e-2 + epsilonL(assumption)
epsilonL(real) = epsilonr + (5e-5 * (3.44* 0.012 * b - 0.003 * c)
E = epsilonL(assumption)
epsilonL(assumption)= epsilonL(assumption)+ 0.00001
Loop While Abs(E - epsilonL(real)) > 0.00001
Эта итерация действительно ПЛОХА, работает только с epsilon d -0.0002.тогда нужно выбрать другую итерацию, которую я не знаю ... Можете ли вы выбрать лучшие итерационные ребята ??
Вы, ребята, у которых достаточно опыта во вложении цикла do, помогите, пожалуйста, я просто инженер-строитель,это мой курс для аспирантов, который я должен назначить 26 июня.Большое спасибо, если вы хотите помочь