CALCULETTE POUR LES TRÈS, TRÈS, VRAIMENT TRÈS GRANDS NOMBRES

Commentaire de OverDarck le 20/04/2004 11:29:51

un mot :ENORME c'est vraiment genial et pile ce que je cherchais !!!
Win Xp fait la meme chose avec sa power toy calculator mais s'arrete a 512 chifre et puis avori a sa portée un algo de calcul manuel des 4 principales operations, ca c'est vraiment cool !!!!!
Je cherchais a faire un truc dans le genre mais sa aurai etait tres tres lent si j'avais reussit...
Frenchement BRAVO, GRANDIOSE
10/10
@++ merci, et bonne prog
(j'essairai d'adapter ton prog, pour fair qq chose de plus abouti)

Commentaire de bouv le 20/04/2004 21:40:49

Resalut,

G trouvé une faille

Si tu fait :
4 - 1,333 tu obtient -103 329 au lieu de 2,667
De même
-4 + 1  = 5 au lieu de -3

Il y a en fait un pb au niveau des signes et virgules dans les nbres sources

Mais cela reste un super truc.
Encore bravo

Commentaire de dnob700 le 22/04/2004 17:29:47

Ton code est pas mal, mais un peu lent pour les grand nombre.

Je te conseille de remplacer les chaine de caractère par des tableau d'octet, tu verras, c'est bcp plus rapide (il faut juste des routines de conversion pour les afficher) et le code est plus simple (les retenu par exemple pour la multiplication sont plus facile etc.)

Commentaire de akim77 le 03/01/2008 20:20:45

J'avais fait une fonction Puissance ( une simple boucle de la fonction Multiplication ), mais les temps de calcul étaient "inhumains" ( 2^10000 en plus d'une minute )


Public Function Puissance(X As String, Y As String, cde As Boolean, nb_chiffres As Long) As String
Puissance = ""
nb_chiffres = 0
If X <> "" And Y <> "" Then
    If verify_entiers_positifs(X, Y) Then
        If X = "0" Then
            Puissance = "0"
        Else
            If X = "1" Or Y = "0" Then
                Puissance = "1"
            Else
                If Val(Y) > 0 And Val(Y) < 10001 Then '10001 temps de calcul inhumain ???(a determiner)
                    Puissance = X
                        Dim j
                        For j = 1 To Val(Y) - 1
                            Puissance = Multiplication(Puissance, X, 0, 0)
                        Next j
                        nb_chiffres = Len(Puissance)
                Else
                    Puissance = "Y est trop grand, temps de calcul inhumain, trouver une autre methode"
                End If
            End If
        End If
    Else
        Puissance = "Des nombres entiers positifs uniquement"
    End If
End If
End Function

Pour info: Val(Y) donne un Double
et
20^55=360287970189639680000000000000000000000000000000000000000000000000000000
temps calcul < 1 sec (ouf!)

Vois le prog de DNOB700
http://www.vbfrance.com/codes/JUSTE-AUTRE-LIBRAIRIE-CALCUL-PRECISION-INFINIE_22182.aspx
plus "pro" que le mien.