RACINE CARRÉE (AJOUT AUX FONCTIONS PRÉCÉDENTES)
cs_Kaizen
Messages postés
7
Date d'inscription
mardi 30 décembre 2003
Statut
Membre
Dernière intervention
17 janvier 2005
-
27 juil. 2004 à 16:25
cs_Kaizen Messages postés 7 Date d'inscription mardi 30 décembre 2003 Statut Membre Dernière intervention 17 janvier 2005 - 17 janv. 2005 à 08:17
cs_Kaizen Messages postés 7 Date d'inscription mardi 30 décembre 2003 Statut Membre Dernière intervention 17 janvier 2005 - 17 janv. 2005 à 08:17
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/8262-racine-carree-ajout-aux-fonctions-precedentes
https://codes-sources.commentcamarche.net/source/8262-racine-carree-ajout-aux-fonctions-precedentes
17 janv. 2005 à 08:17
La racine n'ayant pas été corrigée, je te propose une racine entière qui fonctionne sous VBA...
Private Function Racin(nombre As String)
Dim NbImp As String
Dim LeReste As String
Dim Sous As String
If Len(nombre) Mod 2 1 Then nombre "0" & nombre
NbImp = 1
LeReste = ""
For I = 1 To Len(nombre) Step 2
Tranche = Mid$(nombre, I, 2)
LeReste = LeReste & Tranche
Sous = "1"
Do
If Mid$(LeReste, 1, 1) <> "-" Then
LeReste = soustraction(Mid$(LeReste, 1), Mid$(NbImp, 1))
Else
LeReste = addition(Mid$(LeReste, 2), Mid$(NbImp, 1))
LeReste = "-" & LeReste
End If
NbImp = addition(Mid$(NbImp, 1), "2")
Sous = addition(Mid$(Sous, 1), "1")
cond = Mid$(LeReste, 1, 1)
Loop While cond <> "-" Or cond = "0"
Sous = soustraction(Sous, 2)
NbImp = soustraction(Mid$(NbImp, 1), "2")
If Left$(LeReste, 1) = "-" Then
LeReste = soustraction(Mid$(LeReste, 2), Mid$(NbImp, 1))
LeReste = Mid$(LeReste, 2)
Else
LeReste = addition(Mid$(LeReste, 1), Mid$(NbImp, 1))
End If
NbImp = soustraction(Mid$(NbImp, 1), "2")
NbImp = addition(multi(addition(Mid$(NbImp, 1), 1), 10), 1)
res = res & Sous
Next
Racin = zero(Mid$(res, 1))
End Function
15 janv. 2005 à 22:46
19 sept. 2004 à 18:38
9 août 2004 à 09:47
L'amélioration porte sur le typage, la lisibilité du code, les calculs préalables hors boucle.
L'intérêt du code étant de travailler sur des grands nombres et de l'utiliser à travers excel, une compilation sous C++ n'apporterait pas grand chose, si ce n'est de se traîner avec une DLL de plus.
Ce qui reste à creuser, c'est l'algorithme. Preuve en est sur Divis2(x) par rapport à Divis(x,2,faux)
Pour Racine(x) qui ne fonctionne pas, il faudrait réussir :
Puiss(x;0,5)
Mais ce code ne travaille pas avec les nombres à virgule.
Voire au delà de l'algorithme, ce qui reste à creuser c'est la connaissance des facteurs premiers de grands nombres, surtout quand il n'y en a que deux...
6 août 2004 à 23:32
5 août 2004 à 17:52
5 août 2004 à 11:15
5 août 2004 à 10:07
Pour Puiss(x,y) j'ai fait ça :
Private Function puiss(x As String, expo)
Dim p As String
Dim i As Integer
p = "1"
i = 1
Do While i <= expo
p = multi(p, x)
i = i + 1
Loop
puiss = p
End Function
27 juil. 2004 à 16:25
Hormis le typage, ce code fonctionne aussi sur OpenOffice.Org
La division est cependant très lente.
Un petit rajout de la fonction Puiss(x,y) serait sympa
et un Carre(x) = Multi(x,x)