Newton Raphson

Question

salut tt le monde,
j'ai besoin de r&#233;soudre une &#233;quation pour trouver le taux de rendemnt actuariel voila le code que j 'ai utilis&#233; sur vb6 mais l'appel de la fonction ne fonctionne pas


Fonction


 


Dim ValPres As Double


Dim ValPresDerivee As Double


Dim v As Double


Dim ErreurMaximale As Double


 


Function NewtonRaphson(CashFlow() As Double, i As Double) As Double


 


ErreurMaximale = 0.0000001


ValPres = 1


While Abs(ValPres) > ErreurMaximale


 ValPres = 0


 ValPresDerivee = 0


 v = 1 / (1 + i)


   For t = LBound(CashFlow(), 1) To UBound(CashFlow(), 1)


      ValPres = ValPres + CashFlow(t) * v ^ t


      ValPresDerivee = ValPresDerivee - t * CashFlow(t) * v ^ (t + 1)


   Next t


  i = i - ValPres / ValPresDerivee


Wend


NewtonRaphson = i


End Function


 


 


Appel


 


n = DTPicker3.Year - DTPicker1.Year


For j = 1 To n - 1


  CashFlow(j) = Val(tx_facial.Text) * nominal.Text


  Next j


CashFlow(n) = Val(tx_facial.Text) * nominal.Text + nominal.Text


rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)

merci

cs_juju12 · Answer

C'est pas &#233;tonnant...
Function NewtonRaphson(CashFlow() As Double, i As Double) As Double<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />
rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)

Lorsque tu appelles ta fonction, tu dois lui passer un tableau de Double puis un Double.
Mais dans ton code, tu lui passes 2 Double et un String...

sans doute vaudrait-il mieux &#233;crire rdt.Text = NewtonRaphson(CashFlow, i)
Essaie d&#233;j&#224; comme &#231;a...

sofy2006 · Answer

salut, j'ai mis ce que vous m'avez propos&#233; mais ca ne marche pas encore ,il me donne erreur de compilation function non d&#233;finie.

cs_juju12 · Answer

Salut;
&#192; quelle ligne se produit l'erreur?

sofy2006 · Answer

salut
l'erreur se produit &#224; cette ligne
 
rdt.Text = NewtonRaphson(CashFlow(j), i, prix.Text)

merci bcp pour votre aide

rvblog · Answer

Manque la déclaration du CashFlow(), déjà répondu, mais pas à Sofy2006, à Carpe_Diem, merci de lire les réponses, voire d'y répondre! rvblogn^{Je veux ton bien... et je l'aurais... mais jamais avant la page 4}

Newton Raphson

5 réponses

Discussions similaires