作业帮问Mathematica
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/09 05:30:30
问Mathematica
n=3;k=6;
\[Epsilon][1]=-1,\[Epsilon][2]=0,\[Epsilon][3]=1；
如何对Table[Sum[1./(x[j] - x[i]),{j,1,i - 1}] +
Sum[1./(x[j] - x[i]),{j,i + 1,k}] +
Sum[-rho[j]/(x[i] - 2 \[Epsilon][j]),{j,1,n}] == 0,{i,1,k}]
进行FindRoot,每一组{xi}的值位于区间(2\[Epsilon][1],2\[Epsilon][2]),(2\[Epsilon][2],2\[Epsilon][3])内.
n=3;k=6;
\[Epsilon][1]=-1,\[Epsilon][2]=0,\[Epsilon][3]=1；
如何对Table[Sum[1./(x[j] - x[i]),{j,1,i - 1}] +
Sum[1./(x[j] - x[i]),{j,i + 1,k}] +
Sum[-rho[j]/(x[i] - 2 \[Epsilon][j]),{j,1,n}] == 0,{i,1,k}]
进行FindRoot,每一组{xi}的值位于区间(2\[Epsilon][1],2\[Epsilon][2]),(2\[Epsilon][2],2\[Epsilon][3])内.
你好好看看Map（/@）和Function（#&）的帮助……
————
仔细一看我发现……我又是根本不知道你要问啥……你的Table执行过后每个式子里有这么多 x[i] ,到底哪个在哪个区间啊?
再问： 不一定是哪个x[i]对应哪个区间，可能所有的 x[i] 都位于(2\[Epsilon][1],2\[Epsilon][2])内，也可能不是。比如上面rho[j]=-3，求解的 x[i] 如下
再答： 哦，差点忘了说了，你的rho的定义也没给。我还是不明白，比如，你的Table执行第一项： -(rho[3]/(-2 + x[1])) - rho[2]/x[1] - rho[1]/(2 + x[1]) + 1./(-x[1] + x[2]) + 1./(-x[1] + x[3]) + 1./(-x[1] + x[4]) + 1./(-x[1] + x[5]) + 1./(-x[1] + x[6]) == 0 这么多未知数，你要怎么去FindRoot？难道只要有一组满足条件的解就行？
————
仔细一看我发现……我又是根本不知道你要问啥……你的Table执行过后每个式子里有这么多 x[i] ,到底哪个在哪个区间啊?
再问： 不一定是哪个x[i]对应哪个区间，可能所有的 x[i] 都位于(2\[Epsilon][1],2\[Epsilon][2])内，也可能不是。比如上面rho[j]=-3，求解的 x[i] 如下
再答： 哦，差点忘了说了，你的rho的定义也没给。我还是不明白，比如，你的Table执行第一项： -(rho[3]/(-2 + x[1])) - rho[2]/x[1] - rho[1]/(2 + x[1]) + 1./(-x[1] + x[2]) + 1./(-x[1] + x[3]) + 1./(-x[1] + x[4]) + 1./(-x[1] + x[5]) + 1./(-x[1] + x[6]) == 0 这么多未知数，你要怎么去FindRoot？难道只要有一组满足条件的解就行？