HORREUR DES ERREUR DE DIVISION PAR 0

La fonction suivante permet de dené une fonction égale à Y=0 sauf pour la valeur 0 ou Y(0) = 1

Y1 = Int(1/(X^2+1))         'Y1(0)=1  et Y1(R*) = 0

On peut remplacer X par (X-2)^2 

Y2 = Int(1/((X-2)^2+1))    ' Y2(2) = 1  et Y2(R-{2}) =0

Donc on peut mettre un polynome factorisé :

Y3 = Int(1/(((X-2)(X+2)(x-100))^2+1)) ' Y3(2) = Y3(-2) = Y3(100) = 1

Ce qui nous amméne à :

Function Un_Nom (byref Denominateur as Decimal) as Decimal
Un_Nom = Denominateur + 1/(int((Denominateur^2+1))
End Function

Dans vos sources vous utliser :
Avec Y et Z une fonction et X le resultat

X = Y/No_0(Z)

Donc si Z a pour valeur 0, à la place de l'erreur, X = Y 


Mais la fonction IIF est aussi rapide pour le cas d'une valeur (Cas de la fonction ci-dessus ET Y1 et Y2)
Il est preferable de les utiliser en visual basic 5

Fonction ci-dessus : X = Y/IIF( Z = 0, 1,Z)
Y1 : IIF( X = 0, 1,0)
Y2 : IIF( X = 2, 1,0)
y3 : IIF( X = 2 and X = -2 and X = 100, 1,0)