Re: [问题] 有无办法让 equation 等号对齐

楼主: cccWccc   2016-11-30 00:15:56
抱歉推文挤不下 又回一篇 兼洗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 里面强行设定!
作者: jurian0101 (Hysterisis)   2016-11-30 00:21:00
大家应该都很排斥下到MMA的地下室: 底层 Box 表达式所以只要不牵涉 ToBoxes[] (地下室钥匙) 都好说~~
楼主: cccWccc   2016-11-30 00:23:00
曾经尝copy as cell expression看看里面长怎样结果崩溃阿打一个式子要写这么多的话 那还是去用latex好了 哈哈

Links booklink

Contact Us: admin [ a t ] ucptt.com