CALCUL APPROCHÉ DE RACINES CARRÉES

Private Function CalculeRacine(Nombre As Double)
Dim sNb As String
Dim sTMP As String
Dim i As Integer, j As Integer
sNb = DecToBin(Nombre, 30)   '<< Une fonction quelquonque permettant de
sTMP = vbNullString                    'passer d'un NOMBRE décimal à une CHAINE
For i = Len(sNb) To 1 Step -1      'DE CARACTERE binaire...
    sTMP = sTMP & Mid(sNb, i, 1)
Next i
sNb = sTMP
sTMP = Nombre
For i = 1 To Len(sNb)
    j = Round(i / 2, 0)
    If Mid(sNb, i, 1) = "1" Then sTMP = sTMP - 2 ^ (i - 1) + 2 ^ (j - 1)
Next i
CalculeRacine = sTMP
End Fucntion