---

Hallo,

bisher habe ich die LISP-Funktion get-universal-time verwendet, um die Dauer von Vorgängen zu messen.
Die Funktion gibt aber nur ganze Sekunden her.

Gibt es eine Möglichkeit, Zeiten in Hundertstel Sekunden zu messen und den Rückgabewert dann weiterzuverarbeiten?

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Schau mal hier unter Internal Time. Aber Vorsicht! Es kann sein, dass derartige Funktionen nicht im Modeling implementiert sind.

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Hallo Patrick,

internal-time bringt mich leider auch nicht weiter.
Grund:
Die Konstante internal-time-units-per-second hat zwar den Wert 1000, die Rückgabewerte von get-internal-real-time sind aber immer ganze 1000er, also wieder ganze Sekunden.
get-internal-run-time ist für mich nicht brauchbar, da die CPU-Zeit nicht mit der verstrichenen Zeit übereinstimmt und gerade bei Ladevorgängen (diese möchte ich unter anderem messen) deutlich von der realen Zeit abweicht.

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

time-ms.zip

Du könntest über eine externe Anwendung den Timestamp in eine Datei schreiben und dann auswerten. Du hast dadurch zwar eine Zeitdifferenz von bis zu 100ms (verringert sich bei Mehrfachausführung auf ca. 5ms), aber immer noch besser als 1s. Die Zeitdifferenz resultiert aus der Trägheit der gesamten Umgebung.

Etwas fertig im Modeling integriert wäre natürlich schöner.

EDIT:

Code:

---

(in-package  :custom)
(use-package :OLI)
 
(defun gettime()
(let (l (s (open "| c:\\docs\\time-ms.exe" :direction :input)))
(setf l (read-line s nil))
(close s)
(if l
(read-from-string l)
nil
)
)
)

---

Damit kannst du gleich auf den Rückgabewert zugreifen, ohne in eine Datei schreiben zu müssen (Danke an clausb!). Einfach im Code den Pfad zu time-ms anpassen und mit (gettime) den Zeitwert abholen. (20-30ms Zeitverzögerung)

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

[Diese Nachricht wurde von Patrick Weber am 20. Jan. 2012 editiert.]

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Mit dem Aufruf einer externen Funktion habe ich auch schon spekuliert, dank deiner Hilfe brauch ich mir jetzt auch über die Realisierung nicht mehr den Kopf zerbrechen.

Danke!

Eines irritiert mich aber nach den ersten Versuchen:
Beginn Zeitmessung:
Aufruf in Eingabeaufforderung: 1327298639.312
Aufruf in Lisp: 1.327298639312E9
Ende Zeitmessung:
Aufruf in Eingabeaufforderung: 1327298641.718
Aufruf in Lisp: 1.3272986417179999E9
--> Das ist ja noch klar.

Wenn ich die Werte aber subtrahiere, kommt in Lisp 2.4059998989105225 heraus.
Warum kommt, wenn ich bei Minuend und Subtrahend 3 Nachkommastellen habe, eine Differenz mit 16 Nachkommastellen heraus?

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Das resultiert aus der Ungenauigkeit der Darstellung einer Gleitkommazahl bzw. den Eigenschaften einer Gleitkommaarithmetik.

Näheres ist z.B. im Wikipedia-Artikel zu Gleitkommazahlen nachlesbar.

Du musst also bei Ausgabe der Zahl eventuell noch einmal runden.

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Naehkaestchen auf:

(display (seconds-since-1970))

Naehkaestchen zu

;-)

------------------
Viele Gruesse,
Michael - http://www.ultra-hip.de

--
Spam  goes nospam@ptc.com and spam@postini.com ;-)

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von Michael Kahle:
(display (seconds-since-1970))

---

Klasse!     

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Jetzt kenn ich mich nicht mehr aus:

Wenn ich die Funktion (seconds-since-1970) direkt in die Eingabezeile eingebe oder in einem LISP-File aufrufe, in dem kein in-package angegeben ist oder in einem Recorder-File, funktioniert der Aufruf tadellos.

Wenn die Funktion aber in einem LISP-File mit in-package Angabe aufgerufen wird bekomme ich einen Fehler:
"LISP-Fehler:
The function package-name::SECONDS-SINCE-1970 is undefined."

Die Funktion (apropos 'seconds-since-1970) gibt leider keine Aufschluss über das zugehörige Package:
SECONDS-SINCE-1970  Function

Weiß jemand, wie man das Problem beheben kann?

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

frame2:seconds-since-1970

------------------
Grüße aus Sachsen
pw

Karl Marx ist tot, Einstein ist tot, und mir ist auch schon ganz schlecht!

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

common-lisp-user::seconds-since-1970
geht auch

Was ist beser oder "richtiger"?

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von holt:
common-lisp-user::seconds-since-1970
geht auch

Was ist beser oder "richtiger"?

---

Die Funktion ist meines Wissens undokumentiert. Es gibt also keine "richtige" Variante ;-)

Ich würde f2 als Packagenamen verwenden, um klar zu markieren, dass es sich hier um keine Funktionalität in Common Lisp handelt.

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Fehlt noch die Funktion last-lisp-user::seconds-to-2012-12-21
Final Edition

------------------
meine LISP-Makros sind auf osd.cad.de
Disclaimer
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Nicht zu vergessen: optimistic-lisp-user::is-there-future-after-2012-12-12-p

------------------
Gruß aus dem Salzkammergut

Thomas

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von holt:
Nicht zu vergessen: [i]optimistic-lisp-user::is-there-future-after-2012-12-12-p

[/i]

---

Leider nicht ganz so lustig
pessimistic-lisp-user::lisp-in-creo-p

------------------
meine LISP-Makros sind auf osd.cad.de
Disclaimer
Grüße aus Wien

Walter
DC4 Technisches Büro GmbH

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von holt:
Die Funktion (apropos 'seconds-since-1970) gibt leider keine Aufschluss über das zugehörige Package:
SECONDS-SINCE-1970  Function
Weiß jemand, wie man das Problem beheben kann?

---

(symbol-package 'seconds-since-1970)

sollte "es" liefern

------------------
● Seamonkey Firefox ● Java Forum Stuttgart JUGS ● OSD Hilfeseite (de) / help page (en) ● NotePad++ ●

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP

---

Zitat:

---

Original erstellt von der_Wolfgang:

(symbol-package 'seconds-since-1970)

sollte "es" liefern

---

Ich hätte vermutet, dass das grundsätzlich immer das aktuelle Package liefert, es sei denn vielleicht, man haette das Symbol vorher schon importiert.

------------------
CoCreate Modeling FAQ: http://www.clausbrod.de/CoCreateModeling/

Eine Antwort auf diesen Beitrag verfassen (mit Zitat/Zitat des Beitrags) IP