Retour de fonction bizarre

Version imprimable

Bonjour,

Voilà mon problème. Je vous explique le contexte, pour que vous compreniez à peu près ce que fait mon code, mais mon problème est purement "informatique" (ce ne sont pas les calculs qui posent problème).

J'ai défini un type "obligation" :
Code:

1 2 3 4 5 Public Structure Obligation Dim Maturity As Double Dim Coupon As Double Dim Price As Double End Structure
puis une fonction "prixObligation(obligation, taux)" permettant de calculer le prix de l'obligation en fonction d'un taux de rendement.

Vient maintenant mon problème. J'ai créé cette fonction récursive :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 Function tauxActuarielMethodeFaussePosition(ByVal obli As Obligation, ByVal tauxA As Double, ByVal tauxB As Double) As Double Dim epsilon As Double = 10 ^ (-4) Dim valeurA As Double = prixObligation(obli, tauxA) - obli.Price Dim valeurB As Double = prixObligation(obli, tauxB) - obli.Price Dim tauxC As Double = tauxA - valeurA * (tauxB - tauxA) / (valeurB - valeurA) If (Math.Abs(tauxB - tauxA) > epsilon) Then Dim valeurC As Double = prixObligation(obli, tauxC) - obli.Price If ((valeurA * valeurC) < 0) Then tauxActuarielMethodeFaussePosition(obli, tauxA, tauxC) Else tauxActuarielMethodeFaussePosition(obli, tauxC, tauxB) End If Else DataRead.Text = tauxC.ToString() Return tauxC End If End Function
J'appelle cette fonction dans une autre procédure ainsi :
Code:

1 2 3 Dim aux As Double = tauxActuarielMethodeFaussePosition(obli, 0, 100) DataRead2.Text = aux.ToString()
Le résultat obtenu sur mon label "DataRead" est "1.89" (ce qui exactement ce que j'attends). Mais le label "DataRead2" m'affiche "0" !! :aie:

Pourquoi donc ?

J'ai passé plusieurs heures à tout décortiquer pour savoir d'où ça vient, et je ne trouve toujours pas ! Pouvez-vous m'aider ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
 
Function tauxActuarielMethodeFaussePosition(ByVal obli As Obligation, ByVal tauxA As Double, ByVal tauxB As Double) As Double
        Dim epsilon As Double = 10 ^ (-4)
        Dim valeurA As Double = prixObligation(obli, tauxA) - obli.Price
        Dim valeurB As Double = prixObligation(obli, tauxB) - obli.Price
        Dim tauxC As Double = tauxA - valeurA * (tauxB - tauxA) / (valeurB - valeurA)
 
 
        If (Math.Abs(tauxB - tauxA) > epsilon) Then
            Dim valeurC As Double = prixObligation(obli, tauxC) - obli.Price
            If ((valeurA * valeurC) < 0) Then
                Return tauxActuarielMethodeFaussePosition(obli, tauxA, tauxC)
            Else
                Return tauxActuarielMethodeFaussePosition(obli, tauxC, tauxB)
            End If
 
        Else
            DataRead.Text = tauxC.ToString()
            Return tauxC
        End If
    End Function

25/12/2009, 19h42
Dizayeure

L'algorithme est le suivant :

On note f(x) = prix calculé de l'obligation avec le taux x - prix de l'obligation coté. Le but du jeu est de trouver x tel que f(x)=0 (ie le taux x qui permet de retrouver le prix coté de l'obligation). On va utiliser la méthode dite "de Newton simplifié".

Le prix de l'obligation coté est contenu dans le champ Price du type Obligation. Le prix calculé est celui renvoyé par la fonction prixObligation.

Initialisation : on considère un tauxA = 0 et un tauxB = 100.

Etape1 : On calcule f(tauxA) et f(tauxB). On définit tauxC = tauxA - f(tauxA)*(tauxB-tauxA)/(f(tauxB)-f(tauxA)).

Etape2 : si |tauxB - tauxA| < epsilon, renvoyer tauxC. Sinon refaire Etape1 avec comme nouveau tauxA le tauxA et comme nouveau tauxB le tauxC si f(tauxA) et f(tauxC) sont de signes opposés. Sinon refaire Etape1 avec comme nouveau tauxA le tauxC et comme nouveau tauxB le tauxB.
25/12/2009, 20h35
Danyel

-> smyley : non c'est pas le manque du return, car en fait, si j'ai bien compris il ne veut sortir que quand la condition est fausse.

-> Dizayeure : Je pense que c'est du au fait que c'est la multitude d'appel de la meme function a partir de elle meme qui pose le probleme.
En fait, tu re-appelles ta function sans avoir retourne quoi que ce soit et je pense que c'est ca qui doit faire le bordel.

Comme ca, sans trop reflechir ;) je sortirais ta recur dans une autre function qui sera appele dans ta function originale.

Citation:

Envoyé par Danyel

-> smyley : non c'est pas le manque du return, car en fait, si j'ai bien compris il ne veut sortir que quand la condition est fausse.

Bah quand je regarde je vois une fonction récursive qui renvoi pas forcément quelque chose :
On suppose être dans tauxActuarielMethodeFaussePosition.
Si "(Math.Abs(tauxB - tauxA) > epsilon)" alors on a le code
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 Function tauxActuarielMethodeFaussePosition(ByVal obli As Obligation, ByVal tauxA As Double, ByVal tauxB As Double) As Double ... If (Math.Abs(tauxB - tauxA) > epsilon) Then Dim valeurC As Double = prixObligation(obli, tauxC) - obli.Price If ((valeurA * valeurC) < 0) Then tauxActuarielMethodeFaussePosition(obli, tauxA, tauxC) Else tauxActuarielMethodeFaussePosition(obli, tauxC, tauxB) End If -> fin de la fonction ici, sans aucun Return et peut être que le vb permet mais dans ce cas la fonction renvoi quoi ? Else ... End If End Function
Si on suit la récursion, la dernière étape a la varible tauxC qui contient la bonne valeur, mais en remontant les appels les tauxC précédents (dans la récursion) ne sont pas modifiés et au final le tauxC renvoyé est celui calculé par le premier appel, pas par le dernier.

En effet, comme vous l'avez dit, c'est ma récurrence qui merdoie à fond.

J'ai tout recodé avec un 'while', rendant le code bien plus simple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
    'Fonctions permettant de calculer le taux actuariel en % de l'obligation 'obli'
    Function tauxActuarielMethodeFaussePosition(ByVal obli As Obligation, ByVal tauxA As Double, ByVal tauxB As Double) As Double
        Dim epsilon As Double = 10 ^ (-4)
        Dim valeurA As Double = prixObligation(obli, tauxA) - obli.Price
        Dim valeurB As Double = prixObligation(obli, tauxB) - obli.Price
        Dim tauxC As Double = tauxA - valeurA * (tauxB - tauxA) / (valeurB - valeurA)
 
 
        While (Math.Abs(tauxB - tauxA) > epsilon)
            valeurA = prixObligation(obli, tauxA) - obli.Price
            valeurB = prixObligation(obli, tauxB) - obli.Price
            tauxC = tauxA - valeurA * (tauxB - tauxA) / (valeurB - valeurA)
            Dim valeurC As Double = prixObligation(obli, tauxC) - obli.Price
            If ((valeurA * valeurC) < 0) Then
                tauxB = tauxC
            Else
                tauxA = tauxC
            End If
        End While
 
        Return tauxC
    End Function

Ce coup-ci, tout marche nickel ! :ccool:

Merci encore !