Метод половинного деления, ошибка кода

@zavic_001 · Регистрация: 31.01.2017

Author24 — интернет-сервис помощи студентам

Добрый день, сломал всю голову - но не работает код, выдает ошибку - деление на ноль, все переменные указал.
Ткните пальцем - где ошибка.
Код:

Visual Basic

Sub lab6()
 
Dim x1, x2, f, E As Double
 
Pa = Range("C7").Value
Pb = Range("C8").Value
Tt = Range("C9").Value
Ra = Range("C10").Value
Rb = Range("C11").Value
E = Range("C12").Value
 
x1 = Ra: x2 = Rb
 
If Fun(x1) * Fun(x2) > 0 Then
 MsgBox "Функция в интревале (" & x1 & " - " & x2 & ") знака не меняет"
 Exit Sub
End If
 
Metka:
Rc = (x1 + x2) / 2
f = Fun(Rc)
If Abs(f) <= E Then
   Range("B15").Value = Rc
   Range("B16").Value = f
   Exit Sub
End If
 
If f * Fun(x1) < 0 Then x2 = Rc Else x1 = Rc
GoTo Metka
 
End Sub
 
Function Fun(Rc) As Double
Fun = (Pa - Pb) / Tt - 2 * Log(Rc / x1) - 1 + (Rc / x2) ^ 2
End Function

shanemac51 · 31.01.2017, 16:43

попробуйте переставить строку и добавить строку option

Visual Basic

Option Explicit
Dim x1, x2, f, E As Double
dim pa.pb,tt,ra,rb,e
 
Sub lab6()
Pa = Range("C7").Value
Pb = Range("C8").Value
Tt = Range("C9").Value
Ra = Range("C10").Value
Rb = Range("C11").Value
E = Range("C12").Value
 
x1 = Ra: x2 = Rb
 
If Fun(x1) * Fun(x2) > 0 Then
MsgBox "Функция в интревале (" & x1 & " - " & x2 & ") знака не меняет"
Exit Sub
End If
 
Metka:
Rc = (x1 + x2) / 2
f = Fun(Rc)
If Abs(f) <= E Then
Range("B15").Value = Rc
Range("B16").Value = f
Exit Sub
End If
 
If f * Fun(x1) < 0 Then x2 = Rc Else x1 = Rc
GoTo Metka
 
End Sub
 
Function Fun(Rc) As Double
Fun = (Pa - Pb) / Tt - 2 * Log(Rc / x1) - 1 + (Rc / x2) ^ 2
End Function

@m-ch · 31.01.2017, 16:46

в функции Fun переменные Pa, Pb, Tt, x1, x2 не объявлены и не передаются (приравниваются к нулю)
соответственно при делении на нулевую переменную возникает ошибка

@zavic_001 · 31.01.2017, 17:30 **[ТС]**

Глупый вопрос - как исправить ?

Добавлено через 42 секунды
первый вариант не работает

Добавлено через 15 минут
как передать переменные в функцию Fun?

Добавлено через 18 минут
ambiguous name detected: E

shanemac51 · 31.01.2017, 17:50

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

ambiguous name detected: E

Visual Basic

1
2
3

Option Explicit
Dim x1 As Double, x2 As Double, f As Double, E As Double
dim pa As Double,pb As Double,tt As Double,ra As Double,rb As Double

@zavic_001 · 31.01.2017, 20:10 **[ТС]**

Visual Basic

Option Explicit
Dim Pa As Double, Pb As Double, Tt As Double, Ra As Double, Rb As Double
 
Sub lab6()
 
Dim x1 As Double, x2 As Double
Dim f As Double, E As Double

теперь ругается Compile error: variable not defined и подсвечивает Sub lab6()

shanemac51 · 31.01.2017, 20:51

Я НЕ ЗНАЮ, КАКИЕ ДАННЫЕ ВВОДИТЬ В ЛИСТ, А КОМПИЛЯЦИЯ УСПЕШНА

Visual Basic

Option Explicit
Dim x1 As Double, x2 As Double, f As Double, E As Double
Dim pa As Double, pb As Double, tt As Double
Dim ra As Double, rb As Double, RC As Double
 
Sub lab6()
pa = Range("C7").Value
pb = Range("C8").Value
tt = Range("C9").Value
ra = Range("C10").Value
rb = Range("C11").Value
E = Range("C12").Value
 
x1 = ra: x2 = rb
 
If Fun(x1) * Fun(x2) > 0 Then
MsgBox "Функция в интревале (" & x1 & " - " & x2 & ") знака не меняет"
Exit Sub
End If
 
Metka:
RC = (x1 + x2) / 2
f = Fun(RC)
If Abs(f) <= E Then
Range("B15").Value = RC
Range("B16").Value = f
Exit Sub
End If
 
If f * Fun(x1) < 0 Then x2 = RC Else x1 = RC
GoTo Metka
 
End Sub
 
Function Fun(RC) As Double
Fun = (pa - pb) / tt - 2 * Log(RC / x1) - 1 + (RC / x2) ^ 2
End Function

@zavic_001 · 31.01.2017, 21:22 **[ТС]**

Да, запускается .... но уходит в бесконечный цикл....

Добавлено через 57 секунд
Исходные данные:
Pa = 1000 МПа
Pb = 290 МПа
st = 725 МПа
Ra = 100 мм
Rb = 200 мм
E= 0,000001

Расчетные данные:
Rc=
f=

Добавлено через 4 минуты
Ура!!! Заработало!
Заменил в строчке Fun = (pa - pb) / tt - 2 * Log(RC / x1) - 1 + (RC / x2) ^ 2
На Fun = (pa - pb) / tt - 2 * Log(RC / ra) - 1 + (RC / rb) ^ 2
Спасибо огромное !!!!

@m-ch 6171 / 936 / 310 Регистрация: 25.02.2011 Сообщений: 1,367 Записей в блоге: 1
	31.01.2017, 16:46	3
	в функции Fun переменные Pa, Pb, Tt, x1, x2 не объявлены и не передаются (приравниваются к нулю) соответственно при делении на нулевую переменную возникает ошибка 0

@zavic_001 0 / 0 / 0 Регистрация: 31.01.2017 Сообщений: 4
	31.01.2017, 17:30 [ТС]	4
	Глупый вопрос - как исправить ? Добавлено через 42 секунды первый вариант не работает Добавлено через 15 минут как передать переменные в функцию Fun? Добавлено через 18 минут ambiguous name detected: E 0

@zavic_001 0 / 0 / 0 Регистрация: 31.01.2017 Сообщений: 4
	31.01.2017, 21:22 [ТС]	8
	Да, запускается .... но уходит в бесконечный цикл.... Добавлено через 57 секунд Исходные данные: Pa = 1000 МПа Pb = 290 МПа st = 725 МПа Ra = 100 мм Rb = 200 мм E= 0,000001 Расчетные данные: Rc= f= Добавлено через 4 минуты Ура!!! Заработало! Заменил в строчке Fun = (pa - pb) / tt - 2 * Log(RC / x1) - 1 + (RC / x2) ^ 2 На Fun = (pa - pb) / tt - 2 * Log(RC / ra) - 1 + (RC / rb) ^ 2 Спасибо огромное !!!! 0

Опции темы

Метод половинного деления, ошибка кода

Решение