Prime Cores V1.0 Freeware

Totocellux

modulo toto1

Inizializzazione:

00401000             /$ 68 2C000000     PUSH 2C                                                         ; /n = 2C (44.)
00401005                               |. 68 00000000     PUSH 0                                                          ; |c = 00
0040100A                               |. 68 A4424000     PUSH toto1.004042A4                                             ; |s = toto1.004042A4
0040100F                               |. E8 5C100000     CALL                                        ; memset
00401014                               |. 83C4 0C         ADD ESP,0C
00401017                               |. 68 00000000     PUSH 0                                                          ; /pModule = NULL
0040101C                               |. E8 55100000     CALL                            ; GetModuleHandleA
00401021                               |. A3 A8424000     MOV DWORD PTR DS:[4042A8],EAX
00401026                               |. 68 00000000     PUSH 0                                                          ; /MaximumSize = 0
0040102B                               |. 68 00100000     PUSH 1000                                                       ; |InitialSize = 1000 (4096.)
00401030                               |. 68 00000000     PUSH 0                                                          ; |Flags = 0
00401035                               |. E8 42100000     CALL                                  ; HeapCreate
0040103A                               |. A3 A4424000     MOV DWORD PTR DS:[4042A4],EAX
0040103F                               |. E8 6C130000     CALL toto1.004023B0
00401044                               |. E8 6B120000     CALL toto1.004022B4
00401049                               |. 68 03000000     PUSH 3
0040104E                               |. 68 03000000     PUSH 3
00401053                               |. E8 C4120000     CALL toto1.0040231C
00401058                               |. 68 15000000     PUSH 15
0040105D                               |. 68 C8424000     PUSH toto1.004042C8
00401062                               |. 68 00000000     PUSH 0
00401067                               |. 8B15 C8424000   MOV EDX,DWORD PTR DS:[4042C8]
0040106D                               |. E8 8E0F0000     CALL toto1.00402000
00401072                               |. B8 00200000     MOV EAX,2000
00401077                               |. 68 04000000     PUSH 4
0040107C                               |. E8 9F0F0000     CALL toto1.00402020
00401081                               |. 68 32404000     PUSH toto1.00404032                                             ;  ASCII "Toto attendi prego..."
00401086                               |. FF15 68404000   CALL DWORD PTR DS:[404068]                                      ;  toto1.0040234B
0040108C                               |. 68 09000000     PUSH 9
00401091                               |. 68 09000000     PUSH 9
00401096                               |. E8 81120000     CALL toto1.0040231C
0040109B                               |. 68 1C404000     PUSH toto1.0040401C

[.................]

Elaborazione:

004010A0                               |. FF15 68404000   CALL DWORD PTR DS:[404068]                                      ;  toto1.0040234B
004010A6                               |. 68 09000000     PUSH 9
004010AB                               |. 68 09000000     PUSH 9
004010B0                               |. E8 67120000     CALL toto1.0040231C
004010B5                               |. E8 C80F0000     CALL                                ; [GetTickCount
004010BA                               |. A3 B0424000     MOV DWORD PTR DS:[4042B0],EAX
004010BF                               |. C705 B4424000 0>MOV DWORD PTR DS:[4042B4],1
004010C9                               |> B8 50C30000     /MOV EAX,0C350
004010CE                               |. 3B05 B4424000   |CMP EAX,DWORD PTR DS:[4042B4]
004010D4                               |. 0F8C F3000000   |JL toto1.004011CD
004010DA                               |. C705 B8424000 0>|MOV DWORD PTR DS:[4042B8],0
004010E4                               |. C705 BC424000 0>|MOV DWORD PTR DS:[4042BC],0
004010EE                               |> B8 FE1F0000     |/MOV EAX,1FFE
004010F3                               |. 3B05 BC424000   ||CMP EAX,DWORD PTR DS:[4042BC]
004010F9                               |. 7C 1F           ||JL SHORT toto1.0040111A
004010FB                               |. 8B1D BC424000   ||MOV EBX,DWORD PTR DS:[4042BC]
00401101                               |. 8B2D C8424000   ||MOV EBP,DWORD PTR DS:[4042C8]
00401107                               |. C1E3 02         ||SHL EBX,2
0040110A                               |. C7441D 00 01000>||MOV DWORD PTR SS:[EBP+EBX],1
00401112                               |. FF05 BC424000   ||INC DWORD PTR DS:[4042BC]
00401118                               |.^EB D4           |JMP SHORT toto1.004010EE
0040111A                               |> C705 BC424000 0>|MOV DWORD PTR DS:[4042BC],0
00401124                               |> B8 FE1F0000     |/MOV EAX,1FFE
00401129                               |. 3B05 BC424000   ||CMP EAX,DWORD PTR DS:[4042BC]
0040112F                               |. 0F8C 8D000000   ||JL toto1.004011C2
00401135                               |. 8B1D BC424000   ||MOV EBX,DWORD PTR DS:[4042BC]
0040113B                               |. 8B2D C8424000   ||MOV EBP,DWORD PTR DS:[4042C8]
00401141                               |. C1E3 02         ||SHL EBX,2
00401144                               |. 8B5C1D 00       ||MOV EBX,DWORD PTR SS:[EBP+EBX]
00401148                               |. 83FB 01         ||CMP EBX,1
0040114B                               |. 75 6A           ||JNZ SHORT toto1.004011B7
0040114D                               |. 8B1D BC424000   ||MOV EBX,DWORD PTR DS:[4042BC]
00401153                               |. 031D BC424000   ||ADD EBX,DWORD PTR DS:[4042BC]
00401159                               |. 891D C0424000   ||MOV DWORD PTR DS:[4042C0],EBX
0040115F                               |. 8305 C0424000 0>||ADD DWORD PTR DS:[4042C0],3
00401166                               |. 8B1D BC424000   ||MOV EBX,DWORD PTR DS:[4042BC]
0040116C                               |. 031D C0424000   ||ADD EBX,DWORD PTR DS:[4042C0]
00401172                               |. 891D C4424000   ||MOV DWORD PTR DS:[4042C4],EBX
00401178                               |> 8B1D C4424000   ||/MOV EBX,DWORD PTR DS:[4042C4]
0040117E                               |. 81FB FE1F0000   |||CMP EBX,1FFE
00401184                               |. 7F 2B           |||JG SHORT toto1.004011B1
00401186                               |. 8B1D C4424000   |||MOV EBX,DWORD PTR DS:[4042C4]
0040118C                               |. 8B2D C8424000   |||MOV EBP,DWORD PTR DS:[4042C8]
00401192                               |. C1E3 02         |||SHL EBX,2
00401195                               |. C7441D 00 00000>|||MOV DWORD PTR SS:[EBP+EBX],0
0040119D                               |. 8B1D C4424000   |||MOV EBX,DWORD PTR DS:[4042C4]
004011A3                               |. 031D C0424000   |||ADD EBX,DWORD PTR DS:[4042C0]
004011A9                               |. 891D C4424000   |||MOV DWORD PTR DS:[4042C4],EBX
004011AF                               |.^EB C7           ||JMP SHORT toto1.00401178
004011B1                               |> FF05 B8424000   ||INC DWORD PTR DS:[4042B8]
004011B7                               |> FF05 BC424000   ||INC DWORD PTR DS:[4042BC]
004011BD                               |.^E9 62FFFFFF     |JMP toto1.00401124
004011C2                               |> FF05 B4424000   |INC DWORD PTR DS:[4042B4]
004011C8                               |.^E9 FCFEFFFF     JMP toto1.004010C9
004011CD                               |> E8 B00E0000     CALL                                ; [GetTickCount

[.................]

Visualizzazione:

0040120B                               |. BA 48404000     MOV EDX,toto1.00404048                                          ;  ASCII " iterazioni in : "
00401210                               |. E8 EB110000     CALL toto1.00402400
00401215                               |. A1 DC424000     MOV EAX,DWORD PTR DS:[4042DC]
0040121A                               |. 50              PUSH EAX
0040121B                               |. 50              PUSH EAX
0040121C                               |. A1 B0424000     MOV EAX,DWORD PTR DS:[4042B0]
00401221                               |. 99              CDQ
00401222                               |. 52              PUSH EDX
00401223                               |. 50              PUSH EAX
00401224                               |. E8 E70F0000     CALL toto1.00402210
00401229                               |. 58              POP EAX
0040122A                               |. BA 0D404000     MOV EDX,toto1.0040400D                                          ;  ASCII " millisecondi."
0040122F                               |. E8 CC110000     CALL toto1.00402400
00401234                               |. FF05 DC424000   INC DWORD PTR DS:[4042DC]
0040123A                               |. 8B15 64404000   MOV EDX,DWORD PTR DS:[404064]
00401240                               |. 011424          ADD DWORD PTR SS:[ESP],EDX
00401243                               |. FF15 68404000   CALL DWORD PTR DS:[404068]                                      ;  toto1.0040234B
00401249                               |. 8F05 DC424000   POP DWORD PTR DS:[4042DC]
0040124F                               |. 68 03000000     PUSH 3
00401254                               |. 68 03000000     PUSH 3
00401259                               |. E8 BE100000     CALL toto1.0040231C
0040125E                               |. A1 DC424000     MOV EAX,DWORD PTR DS:[4042DC]
00401263                               |. 50              PUSH EAX
00401264                               |. 50              PUSH EAX
00401265                               |. BA 1E404000     MOV EDX,toto1.0040401E                                          ;  ASCII " Primi Calcolati : "
0040126A                               |. E8 91110000     CALL toto1.00402400
0040126F                               |. A1 DC424000     MOV EAX,DWORD PTR DS:[4042DC]
00401274                               |. 50              PUSH EAX
00401275                               |. 50              PUSH EAX
00401276                               |. A1 B8424000     MOV EAX,DWORD PTR DS:[4042B8]
0040127B                               |. 99              CDQ
0040127C                               |. 52              PUSH EDX
0040127D                               |. 50              PUSH EAX
0040127E                               |. E8 8D0F0000     CALL toto1.00402210
00401283                               |. 58              POP EAX
00401284                               |. FF05 DC424000   INC DWORD PTR DS:[4042DC]
0040128A                               |. 8B15 64404000   MOV EDX,DWORD PTR DS:[404064]
00401290                               |. 011424          ADD DWORD PTR SS:[ESP],EDX
00401293                               |. FF15 68404000   CALL DWORD PTR DS:[404068]                                      ;  toto1.0040234B
00401299                               |. 8F05 DC424000   POP DWORD PTR DS:[4042DC]
0040129F                               |. 68 70170000     PUSH 1770                                                       ; /Timeout = 6000. ms
004012A4                               |. E8 F40F0000     CALL                                       ; Sleep
004012A9                               |. 68 00000000     PUSH 0
004012AE                               |. E8 10000000     CALL toto1.004012C3
004012B3                               |. FF35 A4424000   PUSH DWORD PTR DS:[4042A4]                                      ; |/hHeap = NULL
004012B9                               |. E8 CA0D0000     CALL                                 ; |HeapDestroy
004012BE                               . E8 CB0D0000     CALL                                 ; ExitProcess

....... eh monello :asd: : purtroppo non ho il tempo adeguato alla situazione :muro:

Toto2 non funge sulla macchina con cui sto lavorando.

Appena torno a casa vedrò di dare una rapida occhiata anche a quello

Xstreme

Totocellux ha scritto:

modulo toto1
ti risparmio tempo

uno è scritto in Visual C++ ,

l'altro è scritto in PureBasic ,

quello scritto in BlitzMax lo hai gia visto ,

se vuoi ti mando anche la stessa routine in :

Ansi C , Delphi , C Sharp , Fortran , Flat Assembler e Visual Studio,

in Java no, perchè mi è antipatico.

ps

ho compilato la stessa routine nei linguaggi su esposti,

se vuoi ti faccio una classifica

1) Visual C++

2) .............

3) .............

4) BlitzMax

5) .............

6) .............

7) .............

Fortran

Totocellux

bonis62 ha scritto:

[........]

se vuoi ti mando anche la stessa routine in :

Ansi C , Delphi , C Sharp , Fortran , Flat Assembler e Visual Studio,

in Java no, perchè mi è antipatico.

ps

ho compilato la stessa routine nei linguaggi su esposti,

se vuoi ti faccio una classifica

classifica per velocità di esecuzione?

Flat Assembler

Fortran (90 o 95?)

Ansi C

Visual Studio

C#

Delphi

Xstreme

Totocellux ha scritto:

classifica per velocità di esecuzione?
Flat Assembler

Fortran (90 o 95?)

Ansi C

Visual Studio

C#

Delphi

Java : portabilità, discretamente veloce ma poco "commerciale" :briai:

C++ : portabilità prossima allo 0, veloce :leggi:

PureBasic : Tantovale programmare in C++ :gluglu:

Visual Basic : la patria dei BUG :asd:

Flat Assembler : Bello e impossibile :muro:

C : librerie scadenti :perfido:

C# : indissolubile dal Framework .NET :uglystupid2:

BlitzMax : Gui editor Inesistente ma compilatore quasi a livello Assembler :AAAAH:

Delphi : carino ma vedi il C :fiufiu:

PowerBasic : più Basic Che Power

Visual .NET: indissolubile dal Framework .NET :uglystupid2:

Fortran : ottimo sui banchi di scuola, ma li rimane ? :cheazz:

Ansi C : Dinamico, Stabile, ma più macchinoso del C++ :aahhhh:

Totocellux

bonis62 ha scritto:

modulo toto1
uno è scritto in Visual C++ ,

l'altro è scritto in PureBasic ,

beh, che toto1.exe fosse scritto in dialetto C non c'erano dubbi: molte chiamate e riferimenti a funzioni C nel modulo toto1 (ho lasciato il malloppo in ufficio).

Ma per scoprire che fosse Visual C++, sarebbe stato molto molto più lungo da averne certezza.

toto2.exe (che a qui a casa su Windows 7 64bit funziona, al contrario del pc in ufficio con XP SP3) non lìho ancora trattato.

Comunque ho notato che 'sto Power Basic (che sconoscevo) nei calcoli matematici è circa 2-3 volte più veloce del Visual C++

A parte tutto, devo farti davvero i miei complimenti per il grandissimo impegno e la volontà che stai profondendo in questo progetto :clapclap:

Xstreme

Totocellux ha scritto:

beh, che toto1.exe fosse scritto in dialetto C non c'erano dubbi: molte chiamate e riferimenti a funzioni C nel modulo toto1 (ho lasciato il malloppo in ufficio).

Ma per scoprire che fosse Visual C++, sarebbe stato molto molto più lungo da averne certezza.

toto2.exe (che a qui a casa su Windows 7 64bit funziona, al contrario del pc in ufficio con XP SP3) non lìho ancora trattato.

Comunque ho notato che 'sto Power Basic (che sconoscevo) nei calcoli matematici è circa 2-3 volte più veloce del Visual C++

A parte tutto, devo farti davvero i miei complimenti per il grandissimo impegno e la volontà che stai profondendo in questo progetto :clapclap:

mi hai chiesto del ........

7919 2/ constant maxp
: primes ( -- n )
here maxp 1 FILL
1 ( count, including 2 )
maxp 0 DO
I here + C@ IF
I 2* 3 + ( dup .) DUP  I + ( prime current )
begin  DUP maxp U

o del .....


top = 50

logical*2 flags(top)
integer*2 i,j,k,count,iter,prime
n = long(362)                   
do 92 iter = 1,10
count=0
i=0
do 10 i = 1,top
10            flags(i) = .true.
do 91 i = 1,top
if (.not. flags(i)) go to 91
prime = i + i + 3
count = count + 1
k = i + prime
if (k .gt. top) go to 91
do 60 j = k, top, prime
60               flags(j) = .false.
91          continue
92      continue
write (9,*) count," primes in ",(long(362)-n)/60.0," seconds "
pause
end


molto interessante per le matematiche è il compilatore Haskell 
primes = sieve [ 2.. ]
where
sieve (p:x) = p : sieve [ n | n  0 ]

Xstreme

Ciao,

Per cortesia , me lo potete testare ? Grazie.

http://www.xstreme.it/pcr.zip

principino1984

IT works!

Numeri Primi Scoperti : 5761455 In 3248 Millisecondi

Marco

apix_1024

bonis62 ha scritto:

Ciao,
Per cortesia , me lo potete testare ? Grazie.

http://www.xstreme.it/pcr.zip

Numeri Primi Scoperti : 5761455 In 3262 Millisecondi però non butta il processore al 100%, ok che gira per pochi secondi però non carica tutti i cores

Le085

tutto ok su win xp pro & intel e6400 a default

Numeri Primi Scoperti : 5761455 In 5484 Millisecondi

Xstreme

apix_1024 ha scritto:

Numeri Primi Scoperti : 5761455 In 3262 Millisecondi però non butta il processore al 100%, ok che gira per pochi secondi però non carica tutti i cores

Scusa, quando ho postato avevo sonno, e sono stato molto telegrafico,

ma non era per il.... carico.... il test, solo per vedere sè funzionava

su CPU diverse;

quasi sei milioni di numeri primi in 3 secondi e rotti.......

due milioni di numeri primi al secondo,

....non è male ...credo ...

Le085

bonis62 ha scritto:

Scusa, quando ho postato avevo sonno, e sono stato molto telegrafico,
ma non era per il.... carico.... il test, solo per vedere sè funzionava

su CPU diverse;

quasi sei milioni di numeri primi in 3 secondi e rotti.......

due milioni di numeri primi al secondo,

....non è male ...credo ...

l'algoritmo macina di brutto, ma credo che inevitabilmente all'aumentare delle cifre l'elaborazione rallenta.

immagino che trovare un numero primo da 100 cifre non sia la stessa cosa che trovare un numero primo da 10 cifre

sbaglio?:cheazz:

apix_1024

bonis62 ha scritto:

Scusa, quando ho postato avevo sonno, e sono stato molto telegrafico,
ma non era per il.... carico.... il test, solo per vedere sè funzionava

su CPU diverse;

quasi sei milioni di numeri primi in 3 secondi e rotti.......

due milioni di numeri primi al secondo,

....non è male ...credo ...

a per macinare macina!! :asd: :asd: :n2mu:

Totocellux

Pentium D805@3.6Ghz

Asus P5ND2 Sli

2GB SuperTalent PC2-6400 407Mhz@4-4-4-12

Windows XP SP3

Numeri Primi Scoperti : 5761455 In 8500 Millisecondi

Le085 ha scritto:

l'algoritmo macina di brutto, ma credo che inevitabilmente all'aumentare delle cifre l'elaborazione rallenta.
immagino che trovare un numero primo da 100 cifre non sia la stessa cosa che trovare un numero primo da 10 cifre

sbaglio?:cheazz:

decisamente Leo, il tempo necessario aumenta geometricamente.

Ad esempio, arrivare a calcolare questo primo (2^1257787-1) porterebbe via un bel pò di tempo in più :asd:

Non lo inserisco direttamente perchè, per renderne bene la lunghezza, il file di testo col solo numero pesa qualcosa come ~500KB.

Per chi ha curiosità inserisco il link per scaricarlo e farsene un'idea più precisa

p.s.

per esattezza è rappresentato da 378632 cifre ed è stato scoperto nel 1996, quindi in assoluto non è attualmente tra i più impegnativi da scoprire.

Xstreme

Totocellux ha scritto:

Pentium D805@3.6Ghz
Asus P5ND2 Sli

2GB SuperTalent PC2-6400 407Mhz@4-4-4-12

Windows XP SP3

Numeri Primi Scoperti : 5761455 In 8500 Millisecondi

in teroia con la mia routine facendo salti in radice quadrata con long step di 1582028137369 dovrei arrivarci in poco tempo,

solo che il pc non la gestisce

decisamente Leo, il tempo necessario aumenta geometricamente.

Ad esempio, arrivare a calcolare questo primo (2^1257787-1) porterebbe via un bel pò di tempo in più

Non lo inserisco direttamente perchè, per renderne bene la lunghezza, il file di testo col solo numero pesa qualcosa come ~500KB.

Per chi ha curiosità inserisco il link per scaricarlo e farsene un'idea più precisa

p.s.

per esattezza è rappresentato da 378632 cifre ed è stato scoperto nel 1996, quindi in assoluto non è attualmente tra i più impegnativi da scoprire.

il giocattolo se lo metti a 4.1 ghz quanto ti fà ?

Xstreme

Totocellux ha scritto:

Pentium D805@3.6Ghz
Asus P5ND2 Sli

2GB SuperTalent PC2-6400 407Mhz@4-4-4-12

Windows XP SP3

Numeri Primi Scoperti : 5761455 In 8500 Millisecondi

ah

a titolo personale, cioe, curiosità mia, a parte l'interfaccia

grafica tirata su con blitzmax, il resto si vede con cosa

è scritto ? :cheazz:

gear667

I7 920@3,8GHz

Numeri Primi Scoperti : 5761455 In 3031 Millisecondi

bello rapido come test:)

Totocellux

bonis62 ha scritto:

il giocattolo se lo metti a 4.1 ghz quanto ti fà ?

sono ad aria, quindi al limite di stabilità a 3.6Ghz (.... è il mio pc d'ufficio)

bonis62 ha scritto:

ah
a titolo personale, cioe, curiosità mia, a parte l'interfaccia

grafica tirata su con blitzmax, il resto si vede con cosa

è scritto ? :cheazz:

Con un debugger non è così lampante stabilirlo, ci sarebbero da fare ulteriori approfondimenti.

Ma col solo debugger perdendoci un pò di tempo e seguendo delle tracce:

da questo sprintf (e altro) direi che è scritto in dialetto C++

Xstreme

Totocellux ha scritto:

sono ad aria, quindi al limite di stabilità a 3.6Ghz (.... è il mio pc d'ufficio)
Con un debugger non è così lampante stabilirlo, ci sarebbero da fare ulteriori approfondimenti.

Ma col solo debugger perdendoci un pò di tempo e seguendo delle tracce:

da questo sprintf (e altro) direi che è scritto in dialetto C++

sei mitico :clapclap:

Totocellux

..... eh eh, tu packettizzi tutto :asd:

comunque per maggior precisione, considerato che nel jump è invocata la libreria msvcrt.dll (e di certo tu tieni il tuo pc aggiornato) direi che con ogni probabilità è Microsoft Visual C++