Racine Carre !!!

Question

Salut je cherche un Algo pur le calcul de la racine carre ! Si vous une bonne adresse ,l'algo ou meme une bride d'info a ce sujet merci 

Merci !!!!!!!

PatriceVB · Answer

Il existe une fonction rechercher sur le site :
regarde en haut ! tape racine carrée et sélectionne sources dans la liste déroulante et tu obtiendras ces liens là :

http://www.vbfrance.com/article.aspx?Val=1730

http://www.vbfrance.com/article.aspx?Val=6537

http://www.vbfrance.com/article.aspx?Val=2182

@+

cs_DARKSIDIOUS · Answer

Et pourquoi ne pas utiliser la commande SQR ??? Elle sert à ca non ?

DARK SIDIOUS

PatriceVB · Answer

Dans la liste des liens proposés ci-dessous, il y a un exemple de l'utilisation de la FONCTION sqr.

cs_Dino · Answer

Pouquoi ne pas utiliser l'exposant 1/2 ?? Cela équivaut à une racine carrée.

Dino

carlvb · Answer

:-(carlvb

Si c'est un algorithme pour la calcul de la racine carrée qu'on cherche : Le suivant n'est pas trop mal.

racine(x)=lim (Un)
avec Un+1= 1/2 * (Un+ X/Un)

X étant le nombre dont on veut la racine et U0 serait une première approximation

Exemple : On veut calculer la racine de 2 avec comme première approximation 2

U0=2
U1=1/2*( 2 + 2/2) =1.5
U2=1/2*(1.5+2/1.5) = 1.4166666667
U3=1/2*(1.4166666667+2/1.4166666667)=1,4142156862

Après trois itérations on a déjà une aproximation à 1/500000 près.

Exemple de code

Function RacineCarree(ByVal Nombre As Double, Optional ByVal Approximation As Double, Optional ByVal Precision As Double) As Double    If Precision 0 Then Precision 10 ^ -6    If Approximation 0 Then Approximation 1
    
    If Nombre = 0 Then
        RacineCarree = 0
        Exit Function
    End If
    If Nombre < 0 Then
        MsgBox "Tentative de calcul de la racine carrée d'un nombre négatif"
        Exit Function
    End If
    
    RacineCarree = Approximation
    While Abs(RacineCarree ^ 2 - Nombre) > Precision
        RacineCarree = 1 / 2 * (RacineCarree + Nombre / RacineCarree)
    Wend
End Function

Racine Carre !!!

5 réponses

Discussions similaires