 |
Das deutsche QBasic- und FreeBASIC-Forum
Für euch erreichbar unter qb-forum.de, fb-forum.de und freebasic-forum.de!
|
| Vorheriges Thema anzeigen :: Nächstes Thema anzeigen |
| Autor |
Nachricht |
Jojo
alter Rang
Anmeldungsdatum: 12.02.2005
Beiträge: 9736
Wohnort: Neben der Festplatte
|
 Verfasst am: 02.06.2008, 22:59 Titel: |
 |
|
lutz heizt mit kohle.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.
 |
|
| Nach oben |
|
 |
ThePuppetMaster
Anmeldungsdatum: 18.02.2007
Beiträge: 1839
Wohnort: [JN58JR]
|
| Verfasst am: 02.06.2008, 23:19 Titel: |
|
|
| Lutz Ifer hat Folgendes geschrieben: | | Also, fülle mal bitte eine "normale" LL und "deine" LL mit 1.000.000 Einträgen, und sag' mir, was dabei rauskommt. |
Aus gründen der Zeitlichen einschränkung hab ich es beim array auf 100.000 beschränkt.
| Code: | Dim XTot as Double = Timer
Dim D() as UInteger
Dim DC as ULong
For X as ULong = 1 to 100000
DC += 1
Redim Preserve DD(DC) as Uinteger
DD(DC) = X
Next
Print Timer - XTot
end |
| Code: | tpm@workboard-0:~/data/work/code/fb/test/arrayspeed$ ./aspeed
2.576614097924903
tpm@workboard-0:~/data/work/code/fb/test/arrayspeed$ |
LL is schnell .. darum auf 10.000.000 erhöht
| Code: | #include "linkedlist.bi"
Dim shared G_Liste as integer PTR
Dim X as UInteger
Dim XTime as double
Dim YTime as Double
Dim XItems as ULongInt = 10000000
Print " Beginne Leitungstest"
Print " ----------------------"
Print "Erstelle " & XItems & " Einträge..."
XTime = Timer
For X = 1 to XItems
ColAdd(G_Liste, X)
Next
YTime = Timer - XTime
print "Fertig: [ ] "; YTime; " Sek."
Print "Suche Letzten Eintrag..."
XTime = Timer
X = ColFind(G_Liste, XItems)
YTime = Timer - XTime
If X > 0 Then
print "Fertig: [ ] "; YTime; " Sek."
Else
print "Fertig: [F] "; YTime; " Sek."
End if
print "Zerstöre Liste..."
ColDestroy(G_Liste)
print "Fertig: [ ] "; YTime; " Sek."
Print "ENDE"
End 0 |
| Code: | tpm@workboard-0:~/data/work/code/fb/bi/linkedlist$ ./leistungstest
Beginne Leitungstest
----------------------
Erstelle 10000000 Einträge...
Fertig: [ ] 8.127092894515954 Sek.
Suche Letzten Eintrag...
Fertig: [ ] 1.405576026882045 Sek.
Zerstöre Liste...
Fertig: [ ] 1.405576026882045 Sek.
ENDE
tpm@workboard-0:~/data/work/code/fb/bi/linkedlist$ |
MfG
TPM
_________________
[ WebFBC ][ OPS ][ ToOFlo ][ Wiemann.TV ] |
|
| Nach oben |
|
|
|
|
Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
|
|
FAQ
Suchen
Mitgliederliste
Benutzergruppen
Registrieren
Profil
Einloggen, um private Nachrichten zu lesen
Login
