ENCADREMENTS ET APPROXIMATIONS

Commentaire de Gobillot le 23/12/2005 01:28:42

- il y a des problèmes !!!!

  Roundinf(2.15, 2)  renvoit 2.14 au lieu de 2.15
  Roundsup(2.14, 2)  renvoit 2.15 au lieu de 2.14
  Roundapp(2.14, 2)  se plante
  Roundapp(2.141, 2) renvoit 214.09

- pourquoi travailler en String et pas directement en Double ?

Commentaire de Gobillot le 23/12/2005 11:55:18

- Les calculs avec des chaînes n'apportent rien et pénalisent
  les performances.
  Tout calcul avec chaîne passe par une conversion en Double.

    Dim s As String
    Dim x As Variant
    s = 2
    
    MsgBox TypeName(s + 2) ' --> Double
    x = 2
    MsgBox TypeName(x)     ' --> Integer
    x = s + 0
    MsgBox TypeName(x)     ' --> Double


- Pour concaténer des chaînes, on utilise "&" et non pas "+"
  n = n & "0"


- Fonction Roundinf
  l'arrondi par défaut de 0,03 n'est pas 0.02


- Fonction Roundsup
  l'arrondi par excès de 0.01 n'est pas 0.02


- Les nombres négatifs ne sont pas traités
  faire la différence avec Fix() et Int()
  l'arrondi de -2.141 est:
    inférieur  -2.15
    supérieur  -2.14

- La Fonction Roundapp est bien trop compliquée

Private Function Roundapp(n As Double, e As Long) As Double
    Dim ex As Double
    
    ex = 10 ^ e
    Roundapp = Int(CDec(n) * ex + 0.5) / ex
    
End Function

- désolé de toutes ses remarques qui j'espèrent ne te vexeront pas.

il faut prendre en compte les défauts de calcul de VB:
   Int(0.03 * 100) donne 0.02
   Int(2.15 * 100) donne 2.14

Commentaire de violent_ken le 24/12/2005 12:54:54

Salut.
Je me permet de faire aussi quelques remarques :

-je ne comprend pas non plus l'utilisation du type string, qui d'ailleurs renvoie une erreur

-petites explications pour la concaténation :
msgbox "az" & "er" est possible
msgbox "az" + "er" est aussi possible, puisque les deux éléments sont des string
msgbox "az" & 5 est possible
msgbox "az" + 5 est IMPOSSIBLE (il faut mettre des guillemets pour que çà marche avec un +)
Sinon, utiliser msgbox "az" + str$(5)  mais attention, str$ créé un espace.

-l'encadrement de 12.22,2 renvoie 12.19<12.2<12.2  Attention aux bornes ! Il faut alors mettre <= ou bien mettre <12.21

Gobillot ==> je me permet de répondre à la place de Julien39 : RoundInf et RoundSup ne sont pas les arrondis par défaut/exces.
"La fonction Roundinf renvoie une valeure TOUJOURS INFERIERE à n" et de manière analogue pour RoundSup.
@+

Commentaire de Gobillot le 24/12/2005 13:32:54

heu non !

Roundinf doit renvoyer une valeur inférieure ou égale
Roundsup doit renvoyer une valeur supérieure ou égale

l'arrondi de zéro ne sera jamais 1
   Roundsup (0,0) => 1 ???? me semble étrange

l'arondi de 0.3 ne sera jamais 0.2
   Roundinf (0.3,1) => 0.2 ????

ces fonctions renvoient bien une valeur inférieure ou supérieure, sauf pour les valeurs négatives où là c'est totalement faux, mais ne peuvent en aucun cas servir comme fonctions d'arrondi.

Commentaire de Gobillot le 24/12/2005 15:04:03

oui mais le résultat est différent suivant la valeur:

Roundinf (0.2,1) ==> 0.2
Roundsup (0.2,1) ==> 0.3

    donc 0.2 <= 0.2 < 0.3

Roundinf (1.2,1) ==> 1.1
Roundsup (1.2,1) ==> 1.2

    donc 1.1 < 1.2 <= 1.2

c'est pas logique, parfois c'est la valeur inférieur qui donne l'égalité, parfois c'est la valeur supérieure, et ceci de façon aléatoire.
contrairement a ce que dit Violent_ken/
"La fonction Roundinf renvoie une valeur TOUJOURS INFERIERE à n et de manière analogue pour RoundSup."

exemple:
pour savoir le nombre de secteurs occupés par un fichier, j'ai besoin de connaître la valeur par excès. pour un multiple de 512 octets la fonction doit renvoyer l'égalité et non pas la valeur supérieure, j'ai pas besoin de secteurs supplémentaires.

Julien39 >>
comme tu as mis les fonctions dans un module on pourrait penser quelles sont faites pour des calculs d'arrondis, par défaut ou par excès, le mot "Round" prétant à confusion.
pour des valeurs où il y a l'égalité, donc pas de décimales à supprimer, le résultat est impévisible:
  0.5 <= 0.5 < 0.6  mais 0.5 < 0.6 <= 0.6

- tous ces problèmes viennent des calculs avec du Double
  alors supprimons les.
  en convertissant le Double en décimal, on a plus d'erreurs.
  Int() à la place de Fix(à permet d'être compatible avec les
  nombres négatifs.

Private Function Roundinf(n As Double, e As Long) As Double
    Dim ex As Double
    ex = 10 ^ e
    Roundinf = Int(CDec(n) * ex) / ex
End Function

- pour la fonction Roundsup, je vois pas d'autres possibilités
  que de tester s'il faut ajouter 1 ou pas.

Private Function Roundsup(n As Double, e As Long) As Double
    Dim ex As Double
    Dim x  As Variant
    Dim z  As Double
    ex = 10 ^ e
    x = CDec(n) * ex
    z = Fix(x)
    If z < x Then z = z + 1
    Roundsup = z / ex
End Function

Commentaire de Julien39 le 24/12/2005 20:43:01 administrateur CS

Non ce n'est pas du tout ce que je voulais dire, je ne prennais cet exemple que por expliquer que l'approximation peut également être très grossiere et ce n'est pas pour cela que ce n'est pas une bonne appproximation.
Je ne parlais que d'un cas isolé sans prétendre que cette approxiamtion soit bonne...

Il faut sortir ne reste pas devant ton PC un soir de réveillon de Noël!!!!