programmation des résolutions numériques des équations f(x)=0 par la methode de regula falsi

[invite566f86b2]

j'aimerai ke vous me donner un coup de pouce de mon programmation ki est la resolution des equation f(x)=0 en s'appuyant la methode de Regula-Falsi avec f(x)=((5-x)exp(x))-5=0 et l'intervalle I=[1,6] à 0.000001 prés merci d'avantage de votre aide


Rappel de la charte que tu as acceptée en t'inscrivant ici:

La courtoisie est de rigueur sur ce forum : pour une demande de renseignements bonjour et merci devraient être des automatismes.

et

Respectez les lecteurs du forum, n'écrivez pas vos messages en style SMS ou phonétique. Utilisez la fonction "prévisualisation" pour vous relire et limiter les fautes d'orthographe.

Merci d"en tenir compte à l'avenir

Pour la modération,

yoda1234.
-----

[DomiM]

Bonjour,

Soit j'ai mal compris soit il ni a pas de solution
car cette fonction n'en trouve pas

Function ex()
    For x = 1 To 6 Step 0.000001
        v = ((5 - x) * Exp(x)) - 5
        If Abs(v) < 0.000001 Then
            ex = x
            Exit Function
        End If
    Next x
End Function

[DomiM]

Je trouve 3,2010051018716E-05 comme valeur absolue la plus proche de 0
pour x=4,96511400033219

soit 0,000032 pas loint des 0.000001 mais 32 fois plus quand même

[DomiM]

En diminuant le pas d'un facteur 10 (0.0000001)


f(x) min=4,38864631391311E-06
x=4,96511420001719

soit encore 4 fois plus

[A voir en vidéo sur Futura]

[DomiM]

Il a finis par trouver mais ce fut long avec un autre facteur 10 sur le pas soit 0.00000001

x=4,96511422590213
f(x)=8,08113975736546E-07 soit 0.0000008 donc 0,8 fois 0.000001

Function ex()
    vmin = 100
    For x = 1 To 6 Step 0.00000001
        v = ((5 - x) * Exp(x)) - 5
        If Abs(v) < 0.0000011 Then
            ex = x
            Exit Function
        End If
        If Abs(v) < vmin Then
            vmin = Abs(v)
            xmin = x
        End If
    Next x
End Function

[DomiM]

Bonjour,

Je n'avais pas vue

en s'appuyant la methode de Regula-Falsi

et l'exécution est beaucoup plus rapide

f(x)=7,02083893244776E-08
x = 4,96511423123671

Function fe(x)
   fe = ((5 - x) * Exp(x)) - 5
End Function
Function FalsiMethod(s, t, e, m)
    For n = 1 To m
        r = t - fe(t) * (s - t) / (fe(s) - fe(t))
        If fe(r) < e Then
            FalsiMethod = r
            Exit Function
        ElseIf fe(s) * fe(r) < 0 Then
            t = r
        ElseIf fe(r) * fe(t) < 0 Then
            s = r
        End If
    Next n
    FalsiMethod = r
End Function
 
Function appel()
    x = FalsiMethod(1, 6, 0.0000001, 100)
    v = fe(x)
End Function