用Mathematica生成循环对称多项式的方法

1、先用RotateRight，把元素列表生成一个循环谱驸扌溺列表：A=Table[RotateRight[{a,b,c,d},n],{n,0,3}]

3、如果要给出下图的式子，怎么写代码？大家稍微思考一下。

5、怎么实现乘积的输出？就像下面这个式子。

7、在数学读书的群里面，遇到一个问题，看下图。