用Mathematica解决下面的问题有一个数组:dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1}

来源:学生作业帮助网 编辑:作业帮 时间:2024/04/30 09:08:09
用Mathematica解决下面的问题有一个数组:dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1}

用Mathematica解决下面的问题有一个数组:dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1}
用Mathematica解决下面的问题
有一个数组:
dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},
{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}
{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1}}
和一个表达式:(这里只是列出了一部分)
hh=10 d[1](-1+d[2])( -5+d[3]) +14(-1+d[1]) d[2](-5+d[3])+
15 d[1](-2+d[2])(-4+d[3])+13(-2+d[1]) d[2](-4+d[3])+
19 (-1+d[1])(-2+d[2])(-3+d[3])+15(-1+d[1])(-3+d[2])(-2+d[3])+.
对这个表达式hh调用上面的数组dd
规律是:
如果表达式 hh 中的某一项,比如10 d[1](-1+d[2])( -5+d[3]) ,与上面数组 dd 中 {d[3]-5,d[2]-1,d[1]},内的元素全部对应相同,则让表达式这一项前面的系数取正;
否则就是取负值:
例如对于上面表达式 hh 里的第二项 14(-1+d[1]) d[2](-5+d[3]),数组内没有任何一组的全部元素与它对应相同,则应该取负值,即变为 -14(-1+d[1]) d[2](-5+d[3])
那么在调用数组之后,上面式子应变为
hh=10 d[1](-1+d[2])( -5+d[3]) -14(-1+d[1]) d[2](-5+d[3])+
15 d[1](-2+d[2])(-4+d[3]) -13(-2+d[1]) d[2](-4+d[3])+
19 (-1+d[1])(-2+d[2])(-3+d[3]) -15(-1+d[1])(-3+d[2])(-2+d[3])+.
最后想要的输出结果是
hh=-4 d[1](-1+d[2])( -5+d[3]) +
2d[1](-2+d[2])(-4+d[3]) +
4(-1+d[1])(-2+d[2])(-3+d[3])+.
就是在hh中
把d[1](-1+d[2])( -5+d[3]) ;(-1+d[1])d[2]( -5+d[3]) ;
(-5+d[1])d[2]( -1+d[3]) ;(-1+d[1])(-5+d[2])d[3].
全都看做一项:d[1] (-1+d[2])(-5+d[3]),把这些项前面系数相加减;
把 d[1](-2+d[2])(-4+d[3]);(-2+d[1]) d[2](-4+d[3]).
全都看做一项:d[1](-2+d[2])(-4+d[3]),把这些项前面系数相加减;
以此类推.

用Mathematica解决下面的问题有一个数组:dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1}
这样?:
r = Rule[#, -#] & /@ Times @@@ dd
hh /. r /. d[_] -> d
看不懂请追问.

用mathematica解决微分方程 mathematica 想对下面的式子求一阶导数,但是总是提示有问题,该怎么办? 用方程解决下面问题 关于Mathematica的使用问题在数学实验Mathematica中,有一个问题,希望朋友们帮助解决:就是怎么才能设置精度?比如1.5/23,我要它保留20位小数,我用 N[1.5/23,20] 来做不行啊,还是只保留6位小数.怎么样 Mathematica作图的阴影问题用Mathematica作图,普通的一元函数,要求作出的曲线和x轴围成的区域有阴影 mathematica的问题mathematica 可以计算二重积分吗? mathematica中NDSolve函数问题,主要sol函数的问题.图片已上传.一开始是之前的变量有赋值,现在我在前面清除了所有之前的变量赋值.还是解决不了, 解释一下下面的mathematica程序的意义 mathematica 菜鸟提问拉,解决这道题加20!有特殊符号,只能发图了!最好用For语句 之类的循环语句作 mathematica中出现的问题,怎么回事啊 用Mathematica解决下面的问题有一个数组:dd={{d[3]-5,d[2]-1,d[1]},{d[2]-5,d[1]-1,d[3]},{d[1]-5,d[3]-1,d[2]},{d[3]-4,d[2]-2,d[1]},{d[2]-4,d[1]-2,d[3]},{d[1]-4,d[3]-2,d[2]}{d[3]-3,d[2]-2,d[1]-1},{d[2]-3,d[1]-2,d[3]-1},{d[1]-3,d[3]-2,d[2]-1} mathematica不定方程问题请问有哪位高人能帮下忙一个3×3的格子里填数字,横竖斜相加要等于15,要求填小于10的正整数用Reduce可以解决即:Reduce[a + b + c == 15 && d + e + f == 15 && g + h + i == 15 && a + d + g 求问大神下面的问题如何解决?(本人用的是win8.1) 怎么用mathematica,来使用定点方法来近似解决X = cosX这是我的数学实验报告的题目,希望大神们帮个忙,完全不会用mathematica啊如果不理解我问题的意思的话,可以对我说啊 帮我解决下面扇形统计图的问题 请您帮我解决下面这个初二的数学问题 如何用mathematic解决下面的物理问题,具体些 尝试用归纳的方法探索,解决下面的问题:在平面图内画n(n≧2﹚条直线,最多有几个不同的交点