1、先用RotateRight，把元素列表生成一个循环谱驸扌溺列表：A=Table[RotateRight[{a,b,c,d},n],{n,0,3}]
2、如果要求给出a*b^3+b*c^3+c*d^3+d*a^3，可以用下图的代码。
3、如果要给出下图的式子，怎么写代码？大家稍微思考一下。
4、我提供两种方法：
5、怎么实现乘积的输出？就像下面这个式子。
6、答案如下图。可是，+号的可以是Plus代替，或者在后面缀上Total；但是，×号没有后缀的方法。
7、在数学读书的群里面，遇到一个问题，看下图。
8、这两个式子，且不说手算容不容易，单写这两个式子，就很费时间。这里用Mathematica写，顺便用Mathematica分解因式。
