推 jurian0101: 大家應該都很排斥下到MMA的地下室: 底層 Box 表達式 11/30 00:21
→ jurian0101: 所以只要不牽涉 ToBoxes[] (地下室鑰匙) 都好說~~ 11/30 00:22
→ cccWccc: 曾經嘗copy as cell expression看看裡面長怎樣結果崩潰阿 11/30 00:23
→ cccWccc: 打一個式子要寫這麼多的話 那還是去用latex好了 哈哈 11/30 00:24
抱歉推文擠不下 又回一篇 兼洗P幣
感謝板友協助 此問題已獲得解決！
下面用 Grid 跟 Column 各做一次
eqns = {
HoldForm[a^b = c], HoldForm[Integrate[a^(b x), {x, d, e}] = c],
HoldForm[c = Integrate[a^(b x), {x, d, e}]],
HoldForm[y = Sum[Sin[(n \[Pi] x)/L], {n, 1, \[Infinity]}]]
};
Grid[Transpose[{
Style[#, "DisplayFormula", FontFamily -> "Times New Roman"] & /@
eqns
}], Alignment -> "="] // TraditionalForm
Column[Style[#, "DisplayFormula", FontFamily -> "Times New Roman"] & /@
eqns, "="] // TraditionalForm
註： "//TraditionalForm" 的字型沒辦法套用到裡面 但可以把 Sin[] 顯示為 sin()
字體就在 Style 裡面強行設定！
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 128.210.106.65
※ 文章網址: https://www.ptt.cc/bbs/Mathematica/M.1480436160.A.0DD.html