在Mathematica里Print下标

最近有一些计算涉及多项式，举一个例子：有下面一个函数，想要提取每一项的系数：

image.png

可以很方便地用SeriesCoefficient，或者CoefficientList +切片来实现，理论上，搭配For循环就可以定义所有的系数：

很容易就写好了，也没有报错。但是想检查一下每一项系数是不是对的，于是考虑Print每一项：

image.png

却出来了一长串，显然什么地方出了问题。

于是考虑单独提取SeriesCoefficient的每一项看看

image.png

果然没能成功提取系数。再一看表达式，参数很多，Mathematica应该找不到谁是自变量。看看参考文档，再自己指定一下：

image.png

这样看起来就没问题了。于是改一下原来的代码：

image.png

这样就成功提取了每一项的系数。

这样写其实还是有点不舒服，因为看不到每一行对应着什么变量。于是可以在Print里面加上一些：

image.png

就直观输出了每一行的变量名称。

但这样还是让人不满意：定义的变量里面，A明明是下标，这里打出来也该是下标啊！于是考虑直接出一个下标看看

image.png

这样是不行的。那把

A_i

单独拿出来呢？

image.png

结果变成了这样，没有意义的等式。

这时候，应该考虑下标的Subscript定义。于是考虑用

image.png

这下有点希望了，但还是不满意。问题的根源在于输出形式。所以最后把代码改成：

image.png

通过这样的方法，就成功实现了想要的效果。代码如下：

For[i = 0, i <= 6, i++, Subscript[A, i] = SeriesCoefficient[Ax22ExpO[r], {r, 0, i}]; Print[SubscriptBox["A", i] //DisplayForm, "=", Subscript[A, i]]]

©著作权归作者所有,转载或内容合作请联系作者
【社区内容提示】社区部分内容疑似由AI辅助生成，浏览时请结合常识与多方信息审慎甄别。
平台声明：文章内容（如有图片或视频亦包括在内）由作者上传并发布，文章内容仅代表作者本人观点，简书系信息发布平台，仅提供信息存储服务。