Affichage de très grands nombres entiers - Factorielles - Exponentielles

[job75]

Bonjour à tous,

L'idée de ce fil m'est venue à la suite de celui-ci :

https://www.excel-downloads.com/threads/suite-de-fibonacci.208917/

On sait qu'il n'est pas possible sur Excel de traiter des nombres supérieurs à 1,79769313486231E308.

Ce qui correspond à des nombres entiers de 309 chiffres.

Voyez dans le fichier joint les fonctions VBA ASOMME APRODUIT FACTORIELLE.

Elles permettent d'afficher les résultats de sommes, produits et factorielles avec 10000 chiffres au maximum.

Noter en C5 l'affichage de la factorielle 1000! dotée de 2568 chiffres...

A+

 

[ROGER2327]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Re...

Bonjour à tous,

Bravo pour votre travail.
Pour vous indiquer l'excellent travail de xxx (pas trouvé son nom) : ▷ Nouvelles fonctions™ pour Excel
Une cinquantaine de fonctions pour les grands nombres.
Son algorithme pour les factorielles, plutôt abscons pour moi, devrait vous intéresser.
FactGN(2000) en 0.08 s. Sans DLL, étonnant.

eric

Certes. Loin de moi l'idée de fournir les codes les plus pointus. Je bricole en amateur pour le plaisir de faire avec mes petits doigts boudinés. Le plaisir de remplir la page blanche, en somme.

Quoi qu'il en soit, merci pour ce lien alléchant.​

ROGER2327
#6731

Samedi 28 Tatane 140 (Nativité de Saint Bruggie - fête Suprême Quarte)
23 Thermidor An CCXXI, 4,8351h - lentille
2013-W32-6T11:36:15Z

 

[ROGER2327]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Re...

Re,

Pour info, sur Wikipédia :

Le poète (ancienne orthographe : poëte)...

A+

Je suis resté très baudelairien...​

ROGER2327
#6732

Samedi 28 Tatane 140 (Nativité de Saint Bruggie - fête Suprême Quarte)
23 Thermidor An CCXXI, 4,8602h - lentille
2013-W32-6T11:39:52Z

 

[job75]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Re,

C'est sur que si je dois un jour calculer la taille de l'univers, cette discussion me sera surement très utile 🙂.

A priori cela ne dépassera pas les limites d'Excel.

Si l'on estime le diamètre à 45 milliards d'années-lumières, seulement 4,26E+23 km.

Pas de problème non plus avec la masse en grammes 🙂

A+

 

[MJ13]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Re

A priori cela ne dépassera pas les limites d'Excel.

Si l'on estime le diamètre à 45 milliards d'années-lumières, seulement 4,26E+23 km.

Pas de problème non plus avec la masse en grammes

Ah, cela me rassure. C'est vrai, que je suis resté très terre à terre 🙂.

 

[MJ13]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Re

Jean-Marie m'ayant mis la puce à l'oreille 😱, en reprenant le dernier fichier de Roger le (2).xls, voici ce que j'obtiens en ligne10 ave le Fibonacci ainsi que ma config sur XL2007 soit environ 700 secondes.

 

[ROGER2327]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Suite...

Après des tests plus nombreux, quelques corrections mineures du code dans le classeur joint. Mais pas d'améliorations substantielles des performances.​

ROGER2327
#6734

Mardi 3 Phalle 140 (Zebb, passe - partout - fête Suprême Quarte)
26 Thermidor An CCXXI, 0,7732h - myrthe
2013-W33-2T01:51:20Z

 

[ROGER2327]

Re : Affichage de très grands nombres entiers - Factorielles - Exponentielles

Suite...

Un très-léger gain de rapidité en remplaçant la fonction LONGFIBO par celle-là :​

Function LONGFIBO(n&) 'Renvoie le vecteur ligne ((F(n), F(n-1))
Dim f, g$, h$
    If n = 0 Then
        LONGFIBO = Array("0", "1")
    Else
        f = LONGFIBO(n \ 2)
        g = LONGPRODUIT(CStr(f(0)), CStr(f(0)))
        h = LONGPRODUIT(CStr(f(1)), CStr(f(0)))
        If n Mod 2 = 0 Then
            LONGFIBO = Array(LONGUESOMME(LONGUESOMME(h, h), g), _
                LONGUESOMME(LONGPRODUIT(CStr(f(1)), CStr(f(1))), g))
        Else
            LONGFIBO = Array(LONGUESOMME(LONGPRODUIT(CStr(f(1)), LONGUESOMME(LONGUESOMME(CStr(f(0)), CStr(f(0))), CStr(f(1)))), LONGUESOMME(g, g)), _
                LONGUESOMME(LONGUESOMME(h, h), g))
        End If
    End If
End Function

ROGER2327
#6751

Dimanche 8 Phalle 140 (Sainte Léda, ajusteuse - fête Suprême Tierce)
1[SUP]er[/SUP] Fructidor An CCXXI, 4,3961h - prune
2013-W33-7T10:33:03Z