image.png
很容易就写好了，也没有报错。但是想检查一下每一项系数是不是对的，于是考虑Print每一项：
image.png
于是考虑单独提取SeriesCoefficient的每一项看看
image.png
image.png
这样看起来就没问题了。于是改一下原来的代码：
image.png
这样写其实还是有点不舒服，因为看不到每一行对应着什么变量。于是可以在Print里面加上一些：
image.png
就直观输出了每一行的变量名称。
但这样还是让人不满意：定义的变量里面，A明明是下标，这里打出来也该是下标啊！于是考虑直接出一个下标看看
image.png
这样是不行的。那把
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]]]
