作业帮 > 综合 > 作业

在mathematica中将下面第一个式子展开

来源：学生作业帮编辑：拍题作业网作业帮分类：综合作业时间：2024/05/17 09:21:33

（1）第一个式子展开后,其中的f[jj]满足第二个式子的规律.w的范围从1到n.

以n=3,k=3为例：展开第一个式子后,其中肯定会有某些项分子为f[1]^2*f[2],分母可能为

,分母肯定还有其他形式.

对于f[1]^2,相当于w=2,q=1、2；
则f[1]^2=

对于 f[2],相当于w=1,q=1；.以此类推.

其实就是相当于第一个式子展开后,每一个展开项分母中

出现几次,q就等于几.

（2）上诉每一个展开项的后面还有一个数组Table[c[jj],{jj,n}],数组满足的规律为：
如n=3,则该数组为{c1,c2,c3}；
对于某一个展开项,分母中

出现几次,相应的c[jj]就减去几.
比如在（1）中的例子

[1]出现2次,则c1-1-1,

[2]出现1次就是c2-1,则该项后面所对应的数组为{c1-1-1,c2-1,c3}.
以此类推.

啊,又是你啊.然后,你的问题到底是啥,我看了两遍没看出你要问的是什么……
再问：是的，又是我......我的问题是这样的，还是以n=3,k=3为例，我想得到以下形式的输出

（以上只是截取了所有展开项中的一部分。）但是我最终想要的输出还要把f[jj]换成下面的形式

比如说上面

这一项最终要变成

f[jj]^w和c[jj]的变化规律就是分母中的

出现几次，相应的f[jj]^w中w就等于几，c[jj]就减去几。比如说上面那一项

jj=1出现两次，则f[1]^2，，w=2；c[1]-2 这次表述清楚吗...
再答：用ReplaceAll（/.）就可以了啊。在你已得的还没有替换f[jj]^w的式子后面加上这个： /. f[jj_]^w_ -> Product[Sqrt[(q + j[jj] - m[jj]) (1 - q + j[jj] - m[jj])], {q, 1, w}] 然后关于c[jj]的那个部分，我一时没想到怎么匹配，不过这个古怪的表示方法能不能改改啊，如果你只是想要把它标出来的话： /. f[jj_]^w_ -> Product[Sqrt[(q + j[jj] - m[jj]) (1 - q + j[jj] - m[jj])], {q, 1, w}] {c[jj]-w} —————— 修正，你需要的是ReplaceRepeated（//.），在仍可替换的情况下持续替换。总之多加一条斜杠就行了。

如何在Word中将英文单词字母第一个字母设置成大写 mathematica中将两个函数画在一张图中,为什么不行啊? 怎样在CAD中将旋转体展开成平面图形(比如将圆柱展开成矩形、圆锥展开成扇形) latex 中将俩个矩阵放在一排怎么弄如何在Mathematica中直接对一个含有微分的式子继续求导 mathematica 如何定义0^0=1?并且在之后的运算式子中都输出1 如图是一个大表的一部分，表中将自然数按从小到大的顺序排成螺旋形，在2处拐第一个弯，在3处拐第二个弯，在5处拐第三个弯，… 微积分求教~~图中圈圈里的式子怎么展开成下面一列的~ 三点共线那个怎么得出第一个式子画出下面长方体、、正方体6个面的展开图. 在mathematica中怎么计算下面的积分,为什么不显示结果呢? 如何将Mathematica计算出的表达式化为C++中的式子?