Tellmarch
Messages postés53Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention27 septembre 2005
-
18 avril 2004 à 16:39
Utilisateur anonyme -
8 déc. 2004 à 00:53
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
Le dévelopement limité pourquoi pas? mais pour approcher Asin (x) on doit aller au moins au degré 7
5x^7/112+3x^5/40+x^3/6+x
et l'imprécision aux bornes (+- aSin(1))
est importante.
Je me suis résolu à utiliser la dichotomie
"b = 0.7855339981634
a = 0
For r = 0 To 60
c = Sin(a)
If c > x Then
a = a - b
Else
a = a + b
End If
b = b / 2
next r "
"a" est le résultat
mais je n'utilise la fonction que 2 fois , j'ai fait l'impace sur la rapidité d'exécution... si quelqu'un a plus simple
romit
Messages postés160Date d'inscriptionjeudi 28 août 2003StatutMembreDernière intervention30 juin 2011 26 nov. 2004 à 22:56
il sait pas faire beaucoup de chose mais bien le produit de binomes conjugués lol !
cs_seb78
Messages postés18Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention13 juin 2005 21 nov. 2004 à 13:32
Ben en fait, j'ai utilisé les formules données par MSDN, donc ...
il me semble qu'il y a une erreur dans ton code pour les fontion "Acos" et "Asin".
EvalFunction = EvalFunction & CStr(Atn(-dblOperande / Sqr(-dblOperande * dblOperande + 1)) + 2 * Atn(1))
tu demande la racine carré d'un nombre négatif...
moi même je n'ais pas trouver de solution convenable à ce probleme.
ps : on peut le résoudre avec un boucle mais c'est long.
cs_seb78
Messages postés18Date d'inscriptionlundi 2 décembre 2002StatutMembreDernière intervention13 juin 2005 19 avril 2004 à 11:52
Oui, je sais, ca vient ...
Tellmarch
Messages postés53Date d'inscriptionsamedi 22 mars 2003StatutMembreDernière intervention27 septembre 2005 18 avril 2004 à 16:39
Si tu permet les fonctions acotan, tu pourrais quand meme mettre les fonctions ln et exp :)
8 déc. 2004 à 00:53
5x^7/112+3x^5/40+x^3/6+x
et l'imprécision aux bornes (+- aSin(1))
est importante.
Je me suis résolu à utiliser la dichotomie
"b = 0.7855339981634
a = 0
For r = 0 To 60
c = Sin(a)
If c > x Then
a = a - b
Else
a = a + b
End If
b = b / 2
next r "
"a" est le résultat
mais je n'utilise la fonction que 2 fois , j'ai fait l'impace sur la rapidité d'exécution... si quelqu'un a plus simple
26 nov. 2004 à 22:56
21 nov. 2004 à 13:32
http://msdn.microsoft.com/library/fre/default.asp?url=/library/fre/vblr7/html/vagrpDerivedMath.asp
Mais c'est vrai qu'une racine négative n'est pas idéale, on peut également s'en sortir avec les série de Taylor par exemple.
21 nov. 2004 à 03:27
EvalFunction = EvalFunction & CStr(Atn(-dblOperande / Sqr(-dblOperande * dblOperande + 1)) + 2 * Atn(1))
tu demande la racine carré d'un nombre négatif...
moi même je n'ais pas trouver de solution convenable à ce probleme.
ps : on peut le résoudre avec un boucle mais c'est long.
19 avril 2004 à 11:52
18 avril 2004 à 16:39