Discussion :

[shaku]

Bonsoir , j'ai écrit une petite fonction vba , mais quand je la teste avec des valeurs moyennes , ça fait bugger mon pc car ma fonction n'est pas optimisée , la voici :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
Function SuiteN(ByVal n As integer, ByVal x As Double) As Double
'Renvoie une valeur approchée de la racine de x
If n = 0 Then
    SuiteN = x / 2
ElseIf n > 0 Then
    SuiteN = (SuiteN(n - 1, x) + x / SuiteN(n - 1, x)) / 2
Else
    SuiteN = -1
End If
End Function

Ma 1ere question est : quelqu'un peut il m'indiquer précisément comment je peux tester la fonction pas à pas avec toutes les étapes , que puis je écrire comme petite procédure et dans quelle fenêtre puis je voir les étapes?

Ma seconde question : si je fais Newton(30;2) , ça bug car 30 est trop grand , qu'est ce que je dois améliorer ici svp , le nombre de récursions sur n ? avez vous un indice ? Je ne souhaite pas une réponse tte faite je veux chercher , donc si vous avez un indice je suis preneur .

Je vous remercie .

[philben]

bonjour,

pour la première question, vous pouvez faire un debug pas à pas dans VBE en mettant un point d'arrêt dans le code (cliquer sur la marge à gauche de la ligne d'instruction désirée) puis F8 pour avancer pas à pas.

pour la seconde :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
 
Function SuiteN(ByVal n As Integer, ByVal x As Double) As Double
'Renvoie une valeur approchée de la racine de x
   Dim dVal As Double
   If n > 0 Then
      dVal = SuiteN(n - 1, x)
      SuiteN = (dVal + x / dVal) / 2
   ElseIf n = 0 Then
      SuiteN = x / 2
   Else
      SuiteN = -1
   End If
End Function

c'est à dire économiser pour conserver votre pouvoir de calcul

Philippe

[shaku]

je n'avais dit pas de réponse toute faite résultat j'ai rien compris et ça m'a pourri mon exercice , merci

je vois pas du tout en quoi on économise du calcul , quelqu'un a t'il une explication car des résultats tout faits ça me sert à rien !

[philben]

C'est une méthode anglo-saxonne : Comprendre par l'exemple

Philippe

[shaku]

tu fais le lien entre une variable et la fonction n-1 , en quoi tu économises du calcul vu que tu fais tjs les calculs ...

en plus là ma fonction n'est plus récursive vu qu'elle ne s'appelle plus ce que je n'ai pas le droit de faire...

[philben]

ok,

1) Vois-tu une différence de résultats entre les 2 fonctions quelque soit n et x ?

2) Vois-tu une différence de temps d'exécution entre les 2 fonctions avec n = 23 par exemple ?

Philippe

[pgz]

Hello.

Je crois que ton pb vient de

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SuiteN = (SuiteN(n - 1, x) + x / SuiteN(n - 1, x)) / 2

A chaque appel récursif le contexte de la procédure d'appel est empilé. Si tu appelles 30 fois, cela empile 30 contextes. Très viable.
Par contre ici tu appelles 2 fois sur la même ligne ta fonction. DOnc la 1ère fois 2 empilements qui chacun en provoquent 2 autres, soit 4, qui en provoquent 2 autres, soit 8, ... soit au final de l'ordre de 2^n. Avec 30 cela commence à faire beaucoup. Donc ton erreur doit indiquer un débordement de pile ou de capa mémoire.
Le code de Philben résoud le problème. Et il est bien récursif puisqu'il s'appelle.

En espérant que cela t'aide,

PGZ