如何用Mathematica实现

题目

如何用Mathematica实现
比如现在有这样一个式子：
Product[Sum[f[ j ]/x[ i ]],{j, n}]], {i, k}] {c[1] (-1 + c[2]).(-n+1+c[n]}

当k=2,n=2时,上面的式子为
(f[1]/x[1]+f[2]/x[1]) (f[1]/x[2]+f[2]/x[2]) {c[1] (-1 + c[2])} (1式)；

程序的大概思路是这样的：

1、让(1)式中的 (f[1]/x[2]+f[2]/x[2]) 先与 {c[1] (-1 + c[2])}相乘（即从后向前乘）结果为

(f[1]/x[2]) c[1] (-1 + c[2]) + (f[2]/x[2]) c[1] (-1 + c[2]) (2式)；

（注： c[1] (-1 + c[2]) 这项相乘的时候不展开,保持原来的形式）

2、接下来,以(2式)中的第一项 (f[1]/x[2]) c[1] (-1 + c[2]) 为例,
f[1]与 c[1] (-1 + c[2]) 相乘,c[1]就变成（-1+c[1]) ,

即 (f[1]/x[2]) c[1] (-1 + c[2]) =(f[1]/x[2]) (-1+c[1] )(-1 + c[2]) , ( 3式);
即有一个f[1]则 c[1]降1,

同理（2）式中的第二项
(f[2]/x[2]) c[1] (-1 + c[2]) = (f[2]/x[2]) c[1] (-2+ c[2]) (4式)；
即有一个f[2]则 c[2]降1,

3、根据 2 的描述可知,(2式)的输出为
(f[1]/x[2]) (-1+c[1] )(-1 + c[2]) +(f[2]/x[2]) c[1] (-2+

答案

嗯,大致能感觉到你在思路改进上的努力,但是我想说的是,我的感觉是——我的直觉是,你的思路上了歧途了,这种内置函数一个也用不进去,模式匹配不好用,要在各种步骤上阻碍软件对等式的自动计算,整体透着浓浓的过程式编程的味道的实现思路……用这种思路是没法发挥出Mathematica的力量的.“多项式”关键字下有这么多的内置函数,难道其中就没有你用的上的吗?
此外,需要注意的是,你的要求越是具体（至今为止你对你希望实现的程序的所有步骤都做了十分详细的要求）就越有可能限制答题者的思路,因为,你的要求中的所有步骤可能对你来说都是必要的,可是,在已经答了这么多个你的问题的现在,我不禁想问,这些步骤对你来说都是必要的吗?你需要的是否只是最后的结果?说到底,你想要的结果到底是啥?你问了这么多问题我也没法看出你到底在试图实现什么,你不妨说说你要做的是什么吧,那样对解决问题可能还有点帮助.