Cách thuận tiện để thêm định dạng nội tuyến vào tin nhắn sử dụng

Question

Cách sử dụng Messages các chức năng tích hợp sẵn có định dạng nhúng trực tuyến. Ví dụ:

In[1]:= ActionMenu::usage // FullForm 

Out[1]//FullForm= 
"\!\(\*RowBox[{\"ActionMenu\", \"[\", RowBox[{StyleBox[\"name\", \"TI\ 
\"], \",\", RowBox[{\"{\", \ 
RowBox[{RowBox[{SubscriptBox[StyleBox[\"lbl\", \"TI\"], \ 
StyleBox[\"1\", \"TR\"]], \":>\", SubscriptBox[StyleBox[\"act\", \"TI\ 
\"], StyleBox[\"1\", \"TR\"]]}], \",\", \ 
RowBox[{SubscriptBox[StyleBox[\"lbl\", \"TI\"], StyleBox[\"2\", \ 
\"TR\"]], \":>\", SubscriptBox[StyleBox[\"act\", \"TI\"], \ 
StyleBox[\"2\", \"TR\"]]}], \",\", StyleBox[\"\[Ellipsis]\", \ 
\"TR\"]}], \"}\"}]}], \"]\"}]\) represents an action menu with label \ 
\!\(\*StyleBox[\"name\", \"TI\"]\), and with items labeled \ 
\!\(\*SubscriptBox[StyleBox[\"lbl\", \"TI\"], StyleBox[\"i\", \ 
\"TI\"]]\), that evaluates the expression \ 
\!\(\*SubscriptBox[StyleBox[\"act\", \"TI\"], StyleBox[\"i\", \ 
\"TI\"]]\) if the corresponding item is chosen." 

Người ta có thể thấy định dạng nội tuyến này dựa trên bộ kiểu được xác định trong phần "Kiểu cho định dạng nội tuyến" của biểu định kiểu Core.nb. Nhưng tôi chưa tìm thấy bất kỳ tài liệu nào cho các kiểu này cũng như bất kỳ mô tả nào về thuật toán thuận tiện của việc thêm định dạng vào usageMessage s.

Cách thuận tiện để thêm định dạng nội dòng là gì do người dùng xác định usageMessage s trong Mathematica? Quy tắc sử dụng kiểu mặc định cho định dạng nội tuyến được xác định trong biểu định kiểu Core.nb là gì? Tôi muốn thêm định dạng nội dòng vào số usageMessage trong gói của mình chỉ với Mathematica, mà không cần cài đặt các thành phần bổ sung như Bàn làm việc, v.v.

P.S. Cú pháp của định dạng nhúng trong dòng trong String s được ghi một phần trên trang hướng dẫn "String Representation of Boxes". Câu hỏi liên quan trong nhóm tin chính thức về cú pháp này: "(any documentation for) linear syntax?" Hiển thị các chuỗi như vậy trong FrontEnd được điều khiển bởi tùy chọn ShowStringCharacters->False của Cell.

Answer 1

Một trong những vấn đề xử lý chuỗi như vậy là hầu hết các thao tác với chuỗi trong Mathematica sẽ tự động thay thế dấu gạch chéo ngược (\) với dấu gạch chéo ngược thoát (\\).

Nếu bạn cố gắng này:

bạn có thể nghĩ rằng bạn có chuỗi bạn đang tìm kiếm (trừ \! để làm cho nó một biểu thức), nhưng trong thực tế nó là: "\\(x\\_\\(1, 2\\) \[Equal] \\(\\(-b\\) \[PlusMinus] \\@\\(b\\^2 -\\(4\\ a\\ c\\)\\)\\)\\/\\(2\\ a\\)\\)"

Giải pháp của tôi cách xa thanh lịch, nhưng nó hoạt động.

1. Tạo hộp từ biểu hiện định dạng của bạn:
2. Chọn đầu ra, và đi đến mục menu Cell > Convert to > InputForm. Kết quả:
3. Bây giờ bạn có thể chỉnh sửa các chuỗi, đưa \! phía trước nó và dấu ngoặc kép quanh nó: "\!\(x \_ \(1, 2\) == \(\(-b\) \[PlusMinus] \@\(b \^2 - \(4\ a\ c\)\)\) \/ \(2\ a\)\)"

Nếu bạn thực hiện bước 3 trong một biên tập viên bên ngoài, rời xa các dấu ngoặc kép và chỉ có \! ở phía trước và dán lại kết quả trong MMA nó được chuyển đổi trực tiếp sang biểu thức được định dạng

Answer 2

Tôi nghĩ cách dễ nhất là chỉ sử dụng Giao diện Người dùng để định dạng chuỗi của bạn. Nếu bạn đang viết một gói, bạn có thể sử dụng "tự động lưu gói" (tức là khi nội dung của ô khởi tạo của sổ ghi chép trở thành gói). Nếu bạn sử dụng trình soạn thảo văn bản để viết gói thì có thể quá khó để sử dụng định dạng ...

Answer 3

Câu trả lời này là bổ sung cho câu trả lời của Sjoerd.

Trước hết, chúng tôi không phải sử dụng lệnh FrontEnd Cell > Convert to > InputForm để nhận dạng hộp tuyến tính. Chúng tôi có thể lấy nó chỉ bằng cách áp dụng InputForm đến đầu ra của MakeBoxes:

In[1]:= InputForm@MakeBoxes[Subscript[x, 1,2]==(-b\[PlusMinus]Sqrt[b^2-4 a c])/(2 a)] 
Out[1]//InputForm= 
\(x\_\(1, 2\) == \(\(-b\) \[PlusMinus] \@\(b\^2 - \(4\ a\ c\)\)\)\/\(2\ a\)\) 

Thứ hai, chúng ta có thể xuất khẩu sắp chữ cuối cùng trong dòng chuỗi đại diện của hộp bằng hai cách sau đây với kết quả tương đương (sự khác biệt duy nhất là Put kết thúc tốt đẹp các văn bản):

OutputForm@ 
    StringInsert[ 
    ToString[ 
    InputForm@ 
    MakeBoxes[ 
     Subscript[x, 1, 2] == (-b \[PlusMinus] Sqrt[b^2 - 4 a c])/(
     2 a)], OutputForm], "\\!", 1] >> "C:\\input.txt" 

Export["C:\\input.txt", 
StringInsert[ 
    ToString[InputForm@ 
    MakeBoxes[ 
    Subscript[x, 1, 2] == (-b \[PlusMinus] Sqrt[b^2 - 4 a c])/(2 a)], 
    OutputForm], "\\!", 1], "String"] 

Trong cả hai trường hợp chúng tôi nhận được một tập tin với một dòng: \!\(x\_\(1, 2\) == \(\(-b\) ± \@\(b\^2 - \(4\ a\ c\)\)\)\/\(2\ a\)\).

Chèn dòng này trong Máy tính xách tay trong FrontEnd cung cấp cho các biểu hiện ban đầu (thử nó một mình!):