cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010
-
2 avril 2004 à 04:11
elyaagoubi02
Messages postés1Date d'inscriptionjeudi 11 mars 2010StatutMembreDernière intervention10 avril 2010
-
10 avril 2010 à 17:29
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
elyaagoubi02
Messages postés1Date d'inscriptionjeudi 11 mars 2010StatutMembreDernière intervention10 avril 2010 10 avril 2010 à 17:29
je veux la fonction fact et puiss en vb vous pouvez m'aidez
cs_grandvizir
Messages postés1106Date d'inscriptionsamedi 8 novembre 2003StatutMembreDernière intervention 3 septembre 200622 24 avril 2004 à 19:20
Quelque chose me dit que tu as bien fait de te manifester.
En effet, j'ai regardé ton code VisualBasic et l'ai adapté à Delphi pour voir ce que ça fait. J'ai pris le Visual Basic d'Excel pour être sûr de la fiabilité de la traduction. A priori, c'est correct. Je ne voudrais pas écorcher le travail des autres...
J'ai intégré ton code à mon projet (le Zip quoi) en laissant tes crédits. En voulant savoir à partir de quel degré nos algorithmes se fâchaient, j'ai repéré une erreur pour les "-" avec des exposants impairs. Le cas le plus délicat bien sûr...
Par ailleurs, j'ai comparé tes résultats et ils sont en effet meilleurs. Ca ne m'étonne pas: ta relation de récurrence est forcément plus efficace et plus rapide (pas de recalcul de ce qui a déjà été fait). J'avoue ne pas y avoir vraiment songé.
Au passage, si tu veux une petite formule: N! = sqrt(2pi*N)[(N/e)^N], ou e est la constante d'Euler valant 2,718281828. Fraîchement sortie des intégrations (pour sortir une racine de 2pi, ca ne peut être que ça, non?). Ca approxime assez bien, et il faut faire un petit arrondi à l'entier supérieur. Attention!! Cela ne veut pas dire que cet entier vaudra n!.
cs_Zeroc00l
Messages postés367Date d'inscriptionlundi 1 avril 2002StatutMembreDernière intervention11 février 2010 2 avril 2004 à 04:11
J'ai fait une source qui calcule aussi les coeff mais à l'époque j'ignorai les Cnp... J'ai donc cherché une suite qui me permettai de trouver le coeff voulu grâce à la puisance de l'expression à developper.
Ma méthode est beaucoup plsu rapide que la methode avec le calcul des factoriels
Va voir la dessus (je sais c'est en VB mais les maths sont universelles...) :
10 avril 2010 à 17:29
24 avril 2004 à 19:20
En effet, j'ai regardé ton code VisualBasic et l'ai adapté à Delphi pour voir ce que ça fait. J'ai pris le Visual Basic d'Excel pour être sûr de la fiabilité de la traduction. A priori, c'est correct. Je ne voudrais pas écorcher le travail des autres...
J'ai intégré ton code à mon projet (le Zip quoi) en laissant tes crédits. En voulant savoir à partir de quel degré nos algorithmes se fâchaient, j'ai repéré une erreur pour les "-" avec des exposants impairs. Le cas le plus délicat bien sûr...
Par ailleurs, j'ai comparé tes résultats et ils sont en effet meilleurs. Ca ne m'étonne pas: ta relation de récurrence est forcément plus efficace et plus rapide (pas de recalcul de ce qui a déjà été fait). J'avoue ne pas y avoir vraiment songé.
Au passage, si tu veux une petite formule: N! = sqrt(2pi*N)[(N/e)^N], ou e est la constante d'Euler valant 2,718281828. Fraîchement sortie des intégrations (pour sortir une racine de 2pi, ca ne peut être que ça, non?). Ca approxime assez bien, et il faut faire un petit arrondi à l'entier supérieur. Attention!! Cela ne veut pas dire que cet entier vaudra n!.
2 avril 2004 à 04:11
Ma méthode est beaucoup plsu rapide que la methode avec le calcul des factoriels
Va voir la dessus (je sais c'est en VB mais les maths sont universelles...) :
http://www.vbfrance.com/code.aspx?ID=3083