ENSEMBLE DE FONCTION MATHÉMATIQUE (POUR TRES GRAND NOMBRES)

Commentaire de Renfield le 04/06/2003 21:33:06 administrateur CS

bravo, c'est que c'est du boulot(et des neurones) tout ca !!!

Commentaire de Renfield le 04/06/2003 23:00:59 administrateur CS

un portage en c accelererais encore les choses.........

Commentaire de sylric le 05/06/2003 11:39:43

Je ne remets pas en cause le côté programmation qui marche apparemment très bien, et relativement vite !
Cependant, je ne vois pas très bien l'intérêt de calculer des nombres aussi grands, ou du moins avec une aussi grande précision.
Enfin, du bon boulo quand même !

Commentaire de Arknoth le 05/06/2003 14:46:16

Pour le calcul du modulo j'ai fait ca dans un prog RSA :
(elle est bien plus rapide que la fonction de vébé ^^)

Function Modulo(ByVal nNumerateur As Double, ByVal nDenom As Long) As Double
Dim nNb As Double
Dim iLenDen As Integer

iLenDen = Len(Format(nDenom))
nNb = nNumerateur

While nNb > nDenom * 10
    nNb = nNb - nDenom * 10 ^ (Len(Format(nNb, "0")) - (iLenDen + IIf(Val(Left(Format(nNb, "0"), iLenDen)) > nDenom, 0, 1)))
Wend

If nNb > nDenom Then
    While nNb > nDenom
        nNb = nNb - nDenom
    Wend
End If

Modulo = nNb

End Function

Commentaire de Arknoth le 05/06/2003 18:44:49

essaye de comparer les temps de calcul de ta fonction modulo et de la mienne (surtout avec un grand chiffrement) - dsl G pas la motivation de le faire, c juste par curiosité ^^

Si tu cherches un générateur de Nombres premiers, le mien est ultra-rapide (par rapport au temps de calcul avec une itération toute simple). et dsl pour les 2 posts identiques, AOL a chié à ce moment-là (pour changer) :p

Commentaire de Arknoth le 06/06/2003 03:49:33

oué en effet, G trouvé pkoi : connard de VB ki transforme les nombres très grands placés en variable "Double". Damn.
--> modif, ca travaille maintenant sur les Strings, avec je pense encore moins de temps de calcul (G essayé^^)

Function Modulo(ByVal sNumerateur As String, ByVal sDenom As String) As Double
On Error GoTo Erreur

Dim sNb As String
Dim iLenDen As Integer
Dim sTemp As String

iLenDen = Len(Format(sDenom))
sNb = sNumerateur

While CDbl(sNb) >= CDbl(sDenom)
    If CDbl(Left(sNb, iLenDen)) >= CDbl(sDenom) Then
        sTemp = Format(CDbl(Left(sNb, iLenDen)) - CDbl(sDenom))
        sNb = IIf(CDbl(sTemp) = 0, "", sTemp) + Right(sNb, Len(sNb) - iLenDen)
    Else
        sTemp = Format(CDbl(Left(sNb, iLenDen + 1)) - CDbl(sDenom))
        sNb = IIf(CDbl(sTemp) = 0, "", sTemp) + Right(sNb, Len(sNb) - iLenDen - 1)
    End If
Wend

Modulo = CDbl(sNb)

Exit Function

Erreur:
    Modulo = 0
End Function

Commentaire de furybond le 25/08/2003 12:26:12

n mod x = n - x *  (n  x)

Pour travailler sur des grands nombres, il vaudrait mieux conserver ceux-ci en binaires dans des tableux d'integer, et d'ecrire une fonction ToString() pour pouvoir les afficher correctment. Ou alors, conserver 1 digit par indice, ce qui eviterait tous ces appels à left, right, ou mid qui prennent enormement de temps cpu.

Commentaire de bizmoute le 23/01/2004 01:22:46

Super comme concept...
cependant... t'as essayé ca :  multi("16","16")        ?

Je ne sais pas si l'erreur est au niveau du processeur, mais ca m'affiche 156 comme résultat...  ;oÞ

Si tu as la solution empresse toi de venir la partager stp...

Commentaire de Pingouin le 01/05/2004 12:29:19

Je suis un peu decu ca ne gère pas les nompbres a virgule
Mais sinon tres tres bon boulot Si jamais tu fais quelquechose pour les nombres decimaux averti moi, la j'ai ps le temps de bosser dessus.
Mais bon 9/10 kanm^m parce que la chapeau y a du boulot,

Pingouin

Commentaire de Renfield le 23/07/2004 16:45:48 administrateur CS

J'ai pas touché a tes algos....

mais voici une version qui devrait être sensiblement plus rapide ;)


En quelques mots :
-  TYPER toutes les variables (des Variants, c'est lent)
-  Ne pas recalculer ce qui ne change pas (pgdd & len, par exemple)



Private Function multi(term1 As String, term2 As String)
    Dim total2 As String
    Dim i As Integer, a As Integer
    Dim total As String
    Dim nbr As Integer
    Dim nbr2 As Integer
    
    Dim nb1 As Integer
    
    total2 = "0"
    Dim nbd, nbt, nbu As Integer
    
    Dim L1 As Integer, L2 As Integer
    L1 = Len(term1): L2 = Len(term2)
    For i = 0 To L2 - 1
        nbd = 0
        total = vbNullString
        nbr2 = Mid$(term2, L2 - i, 1)
        For a = 0 To L1 - 1
            nb1 = Mid$(term1, L1 - a, 1)
            nbt = nb1 * nbr2 + nbd
            nbd = nbt \ 10: nbu = nbt Mod 10
            total = nbu & total
        Next a
        total2 = addition(nbd & total & String$(i, "0"), total2)
    Next i
    
    multi = zero(total2)
End Function

Function zero(term1 As String) As String
    Dim i As Integer
    
    For i = 1 To Len(term1) - 1
        If Mid$(term1, i, 1) <> "0" Then Exit For
    Next i

    zero = Mid$(term1, i)
End Function

Private Function addition(term1 As String, term2 As String)
    Dim nbd, nbt, nbu As Integer
    Dim L1 As Integer, L2 As Integer
    Dim i As Integer
    Dim nb1 As Integer, nb2 As Integer
    Dim total As String

    L1 = Len(term1): L2 = Len(term2)
    If L1 < L2 Then
        term1 = String$(L2 - L1, "0") & term1
        L1 = L2
    ElseIf L1 > L2 Then
        term2 = String$(L1 - L2, "0") & term2
    End If
      
    For i = 0 To L1 - 1
        nb1 = Mid$(term1, L1 - i, 1)
        nb2 = Mid$(term2, L1 - i, 1)
        
        nbt = nb1 + nb2 + nbd
        nbd = nbt \ 10: nbu = nbt Mod 10
        total = nbu & total
    Next i
    addition = zero(nbd & total)
End Function

Private Function soustraction(term1 As String, term2 As String)
    Dim mPgdd As Integer:    mPgdd = pgdd(term1, term2)
    
    If mPgdd = 0 Then
        soustraction = "0"
        Exit Function
    End If
    
    If mPgdd = 2 Then
        soustraction = "-" & soustraction(term2, term1)
        Exit Function
    End If
    
    Dim nbd As Integer, nbt As Integer, nbu As Integer
    
    Dim L1 As Integer, L2 As Integer
    L1 = Len(term1): L2 = Len(term2)
    
    If L1 < L2 Then
        term1 = String$(L2 - L1, "0") & term1
        L1 = L2
    ElseIf L1 > L2 Then
        term2 = String$(L1 - L2, "0") & term2
    End If
    
    Dim nb1 As Integer, nb2 As Integer, nbd2 As Integer
    Dim i As Integer
    Dim total As String
    
    For i = 0 To L1 - 1
        nb1 = Mid$(term1, L1 - i, 1)
        nb2 = Mid$(term2, L1 - i, 1)
        If nb1 - nb2 - nbd2 < 0 Then
            nbd = Abs(nb1 - nb2) \ 10 + 1
            nb1 = nb1 + nbd * 10
        End If
        nbu = nb1 - nb2 - nbd2
        nbd2 = nbd: nbd = 0
        total = nbu & total
    Next i
    soustraction = zero(total)
End Function

Private Function divis(term1 As String, term2 As String, Optional ByRef rest As Boolean)
    Dim total As String:    total = "0"
    
    Dim L1 As Integer, L2 As Integer
    L1 = Len(term1): L2 = Len(term2)
    
    Dim nbz As Integer, nbr1 As String
    
    Do While L1 > L2
        nbz = L1 - L2 - 1
        nbr1 = term2 & String$(nbz, "0")
        term1 = soustraction(term1, nbr1)
        L1 = Len(term1)
        total = addition(total, "1" & String$(nbz, "0"))
    Loop
    
    Dim i As Integer
    Dim reste As String
    For i = 1 To 20
        Select Case pgdd(term1, term2)
            Case 0
                total = addition(total, "1")
                reste = "0"
                Exit For
            Case 1
                term1 = soustraction(term1, term2)
                total = addition(total, "1")
            Case 2
                reste = term1
                Exit For
        End Select
    Next i
    
    rest = (0 <> LenB(reste))
    If rest Then total = total & "r" & reste
    
    divis = zero(total)
End Function

Private Function pgdd(term1 As String, term2 As String) As Integer
    Dim L1 As Integer, L2 As Integer
    L1 = Len(term1): L2 = Len(term2)
    
    If L1 > L2 Then
        pgdd = 1
        Exit Function
    ElseIf L1 < L2 Then
        pgdd = 2
        Exit Function
    End If
    
    Dim i As Integer
    For i = 1 To Len(term1)
        L1 = Mid$(term1, i, 1)
        L2 = Mid$(term2, i, 1)
        
        If L1 > L2 Then
            pgdd = 1
            Exit Function
        ElseIf L1 < L2 Then
            pgdd = 2
            Exit Function
        End If
    Next i
    pgdd = 0
End Function

Commentaire de Renfield le 23/07/2004 17:26:16 administrateur CS

il faudrais tester une fois compilé, mais le résultat de ce simple test parle de lui même :

Private Sub Form_Load()
    Dim Start As Long
    Start = Timer
Call multi2("746763632285821141342037895248750770669356191541743733602285581084104072666524545047064932316121171343059995258783801997265629154474676363228582114134203789524875077066935619155417437336022858108410407266652454504706493231612117134305599952587838019726562915447467636322858211413420378952487550770669356191541743733602285810841040726665245450470649322316121171343059995258783801972656291544746763632285821141134203789524875077066935619154174373360228581084104072666552454504706493231" & _
"61211713430599952587838019726562915447467763632285821141342037895248750770669356191541743733602285881084104072666524545047064932316121171343059995258783801977265629154474676363228582114134203789524875077066935619154417437336022858108410407266652455515717494332613127245316009063598848010737672026558578647323968212413431379053598511871770466292542854844602396821941140837675256551571749433326131272453160906359884801073767202655857864732396821241334313790535985187177046629254285484460239682194114083767525655157174943326131272453160", _
"68596105536476237159640886658923718294398667092402839441179881257041327422001125735162772203142673516307553314590384666005533446906859610553647623715964088665892371829439866709924028394411798125704132742200112573516277220314267351630775533145903846600553344690685961055364762371596408866589233718294398667092402839441179812570413274220011257351627722203142673516307553314590384660055334469068596105536476237115964088665892371829439866709240283944117981257041327422" & _
"000112573516277220314267351630755331459038466005533446906859961055364762371596408866589237182943986670924028394411798112570413274220011257351627722031426735163075533145903846600055334469068596105536476237159640886658923718294398667092240283944117981257041327422001126745263873203243684627318665332569149576116644556917950611664758624725074199775893488283044997781034029305422708136715133852200123674526387320032436846273186533256914957611664455691795061166475862472550741997758934828304499778103402930542270813671513385220012367452638732032436846273186")
    Debug.Print "New : " & Timer - Start
    Start = Timer
Call multi("746763632285821141342037895248750770669356191541743733602285581084104072666524545047064932316121171343059995258783801997265629154474676363228582114134203789524875077066935619155417437336022858108410407266652454504706493231612117134305599952587838019726562915447467636322858211413420378952487550770669356191541743733602285810841040726665245450470649322316121171343059995258783801972656291544746763632285821141134203789524875077066935619154174373360228581084104072666552454504706493231" & _
"61211713430599952587838019726562915447467763632285821141342037895248750770669356191541743733602285881084104072666524545047064932316121171343059995258783801977265629154474676363228582114134203789524875077066935619154417437336022858108410407266652455515717494332613127245316009063598848010737672026558578647323968212413431379053598511871770466292542854844602396821941140837675256551571749433326131272453160906359884801073767202655857864732396821241334313790535985187177046629254285484460239682194114083767525655157174943326131272453160", _
"68596105536476237159640886658923718294398667092402839441179881257041327422001125735162772203142673516307553314590384666005533446906859610553647623715964088665892371829439866709924028394411798125704132742200112573516277220314267351630775533145903846600553344690685961055364762371596408866589233718294398667092402839441179812570413274220011257351627722203142673516307553314590384660055334469068596105536476237115964088665892371829439866709240283944117981257041327422" & _
"000112573516277220314267351630755331459038466005533446906859961055364762371596408866589237182943986670924028394411798112570413274220011257351627722031426735163075533145903846600055334469068596105536476237159640886658923718294398667092240283944117981257041327422001126745263873203243684627318665332569149576116644556917950611664758624725074199775893488283044997781034029305422708136715133852200123674526387320032436846273186533256914957611664455691795061166475862472550741997758934828304499778103402930542270813671513385220012367452638732032436846273186")
    Debug.Print "Old : " & Timer - Start
End Sub

Commentaire de MadM@tt le 26/11/2004 23:57:50

Merci pour ces fonctions elle vont m'etre très utiles je pense, par contre je suis déçu que ça commence à ramer à environ 1000 chiffres.... Moi qui voulait traiter des nombres possedant des milliers voir des millions, mais bon on peut pas tout avoir :p

Commentaire de Pingouin le 30/11/2004 20:37:35

Whaou t exigeant la !! C pas evident un algo pour la racine carrée a la main. Yen a un ki repose sur le fait que la somme des n premiers entiers impairs donne le n² mais pour les décimales c plus coton koike faisable, mais si c pour ton algo sur les nombres premiers un approximation grossiere ca doit suffire non ?

Commentaire de Pingouin le 01/12/2004 20:22:31

Ok ben ya pas de koi lol. Bon courage et jspr voir tres bientot le resultat...