Điều gì tạo ra các CellLabels In/Out trong Mathematica và làm thế nào tôi có thể thêm Timing tự động cho chúng?

Question

Khi Mathematica đánh giá một ô, nó sẽ cung cấp ô đầu vào và ô đầu ra là CellLabel s In[$Line]:= và Out[$Line]= trong đó $ Line là bộ đếm được tăng lên trên mỗi đầu vào được đánh giá.

Nếu bạn nhập một cái gì đó như TraditionalForm[expr] hoặc TeXForm[expr] (hoặc bất kỳ biểu mẫu * khác từ $OutputForms) thì tên của biểu mẫu cũng sẽ được thêm vào nhãn của ô đầu ra. ví dụ: Out[1]//TraditionalForm=.

Tôi không thể tìm thấy bất kỳ cách nào để tùy chỉnh các nhãn này.

• Chúng có thể bị tắt trong hộp thoại Tùy chọn.

• Họ dường như không có trong các tùy chọn StyleSheet cho Input và Output tế bào - mặc dù các tùy chọn liên quan đến hành vi CellLabel ở đó.

• Cũng trong các tùy chọn Máy tính xách tay - mặc dù trong Option Inspector: Máy tính xách tay Tùy chọn> Đánh giá Tùy chọn> EvaluationCompletionAction có thể sửa đổi các CellLabels bằng cách thêm một dấu thời gian. Nó cũng có thể hiển thị Thời gian trong StatusArea, bit mà nó sẽ bị xóa ngay sau khi có nội dung khác in ở đó.

• Cũng không phải loại initm nào configuration files.

Vì vậy, có ai biết nơi các CellLabels này được tạo không?

---

Cụ thể, tôi muốn thêm Timing vào ô CellLabel cho ô đầu ra.

Answer 1

OK, thảo luận về Physics Forums đã dẫn đến giải pháp khá hackish này (bây giờ là dọn dẹp một chút):

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; 

Để thực hiện CellLabels dai dẳng để bạn không bị mất thời gian khi bạn Lưu và Tải sổ ghi chép, bạn có thể sửa đổi biểu định kiểu để các ô đầu ra có tùy chọn CellLabelAutoDelete -> True. (Chỉnh sửa: Bây giờ được thêm vào lệnh CellPrint.)

Bất kỳ giải pháp nào tốt hơn đều được hoan nghênh.

Answer 2

Cách khác để thực hiện việc này là đặt EvaluationCompletionAction -> "ShowTiming" sẽ hiển thị thông tin thời gian trên thanh trạng thái của cửa sổ sổ ghi chép sau mỗi lần đánh giá.

Answer 3

Có thể thêm timestamps đánh giá để nhãn tế bào Mathematica bằng cách chọn "AddTimeStamp" trong các thiết lập tùy chọn thanh tra cho EvaluationCompletionAction. Hơn nữa, một danh sách các tùy chọn có thể được đưa ra bằng cách chỉnh sửa mục nhập, vì vậy sử dụng {"ShowTiming", "AddTimeStamp"} Tôi nhận được cả thời gian đánh giá trên thanh trạng thái và dấu thời gian đầu vào và đầu ra trong nhãn ô.