Was erzeugt die In/Out CellLabels in Mathematica und wie kann ich ihnen ein automatisches Timing hinzufügen?

Question

Wenn Mathematica eine Zelle auswertet, gibt es der Eingabezelle und der Ausgabezelle s In[$Line]:= und Out[$Line]= wobei $ Zeile ein Zähler ist, der an jedem ausgewerteten Eingang inkrementiert wird.

Wenn Sie etwas wie TraditionalForm[expr] oder TeXForm[expr] (oder ein anderes * Formular von $OutputForms) eingeben, wird der Name des Formulars auch zum Etikett der Ausgabezelle hinzugefügt. zB Out[1]//TraditionalForm=.

Ich kann keine Möglichkeit finden, diese Etiketten anzupassen.

Sie können im Dialogfeld Einstellungen deaktiviert werden.

Sie scheinen nicht für Ein- und Ausgangszellen in den Stylesheet-Optionen zu sein - obwohl die Optionen zum CellLabel Verhalten in Bezug sind.

Auch in den Notebook-Optionen - obwohl in der Option Inspector: Notebook Optionen> Auswertungsmöglichkeiten> EvaluationCompletionAction kann durch Zugabe eines Timestamp die CellLabels ändern. Es kann auch das Timing in der StatusArea, Bit angezeigt wird es entfernt, sobald etwas anderes dort gedruckt wird.

Auch keiner der init.m Typ configuration files.

Also, weiß jemand, wo diese CellLabels generiert werden?

---

Insbesondere interessiere ich mich für die Timing zum CellLabel für Output-Zellen in hinzufügen.

Answer 1

OK, die Diskussion über Physics Forums hat zu dieser ganz hackish Lösung führen (jetzt ein wenig aufgeräumt):

SetAttributes[Timeit, HoldAll] 
Timeit[x_] := With[{t = Timing[x]}, Module[{out, form}, 
    If[TrueQ[MemberQ[$OutputForms, Head[t[[2]]]]], 
    out = First[t[[2]]]; form = "//" <> ToString[Head[t[[2]]]], 
    out = t[[2]]; form = ""]; 
    If[out === Null, Null, 
    CellPrint[ExpressionCell[t[[2]], "Output", CellLabelAutoDelete -> False, 
     CellLabel -> StringJoin["(", ToString[t[[1]]], ")", 
     "Out[", ToString[$Line], "]", form, "="]]]; 
    Unprotect[Out]; Out[$Line] = out; Protect[Out]; out;]];] 
$Pre = Timeit; 

Um die CellLabels persistent zu machen, so dass Sie nicht über den Zeitpunkt verlieren, wenn Sie speichern und Laden Sie das Notizbuch, Sie können das Stylesheet so ändern, dass die Ausgabezellen die Option CellLabelAutoDelete -> True haben. (Bearbeiten: Jetzt zum Befehl CellPrint hinzugefügt.)

Alle besseren Lösungen sind mehr als willkommen.

Answer 2

Eine andere Möglichkeit wäre das Setzen von EvaluationCompletionAction -> "ShowTiming", die nach jeder Auswertung Timing-Informationen in der Statusleiste des Notebook-Fensters anzeigt.

Answer 3

Es ist möglich, Auswertung Zeitstempel zu Mathematica Zelle Etiketten hinzufügen, indem Sie „AddTimeStamp“ im Options Inspektor Einstellungen für EvaluationCompletionAction auswählen. Darüber hinaus kann eine Liste von Optionen durch Bearbeiten des Eintrags angegeben werden, so dass {{ShowTiming}, "AddTimeStamp"} verwendet wird. Ich erhalte sowohl eine Evaluierungsdauer in der Statusleiste als auch Eingabe- und Ausgabezeitstempel in den Zellbeschriftungen.