Soyez le premier à donner votre avis sur cette source.
Vue 3 315 fois - Téléchargée 188 fois
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
7 mars 2005 à 23:13
C'était juste une curiosité, comme ça... Aucun interêt en soi...
7 mars 2005 à 21:49
5 mars 2005 à 20:10
C'est juste pour expérimenter une méthode de décalage de bits. L'algo n'est pas utilisable tel quel.
5 mars 2005 à 17:55
pour racine carré
msgbox text1.text ^(1/2)
pour racine cubique
msgbox text1.text ^(1/3)
c + efficace
2 mai 2003 à 14:20
Saros
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.