作业帮Mathematica如何把方程的解存下来,后面再用.以及如何将数组作为未知数?
来源：学生作业帮 编辑：作业帮 分类：数学作业 时间：2024/05/21 10:40:37
Mathematica如何把方程的解存下来,后面再用.以及如何将数组作为未知数?
比如我先要解方程x-1==0,然后接下来用方程的解进行运算,比如求2x+1.但
a=Roots[x-1==0,x]
;2a+1
的结果是
1+2(x=1)
2.我已知未知数个数和方程组个数都是100,且方程的形式都是形如x1+x2=1,如何用一个循环列出方程?
比如我先要解方程x-1==0,然后接下来用方程的解进行运算,比如求2x+1.但
a=Roots[x-1==0,x]
;2a+1
的结果是
1+2(x=1)
2.我已知未知数个数和方程组个数都是100,且方程的形式都是形如x1+x2=1,如何用一个循环列出方程?
2x 1/.Solve[x-1==0,x]
第2问再说详细些?
再问： 谢谢第一问的答案。
第二问的意思是，对于以下方程组
f0 = 0
f1 = (1/2)f0+(1/2)f1+1
f2 = (1/2)f1+(1/2)f2+1
......
f99 = (1/2)f98+(1/2)f100+1
f100 = f99+1
如何在Mathematica中列出并求解？（不用穷举法列）
再答： 这个，前后对不起来啊？我按后面的统一吧，就是：
f0 = 0
f1 = (1/2)f0+(1/2)f2+1
f2 = (1/2)f1+(1/2)f3+1
......
f99 = (1/2)f98+(1/2)f100+1
f100 = f99+1
代码如下：
vars = Array[f, 101, 0];
eqns = Join[
f[#] == 1/2 (f[# - 1] + f[# + 1]) + 1 & /@
Range@99, {f[0] == 0, f[100] == f[99] + 1}];
Solve[eqns, vars]
第2问再说详细些?
再问： 谢谢第一问的答案。
第二问的意思是，对于以下方程组
f0 = 0
f1 = (1/2)f0+(1/2)f1+1
f2 = (1/2)f1+(1/2)f2+1
......
f99 = (1/2)f98+(1/2)f100+1
f100 = f99+1
如何在Mathematica中列出并求解？（不用穷举法列）
再答： 这个，前后对不起来啊？我按后面的统一吧，就是：
f0 = 0
f1 = (1/2)f0+(1/2)f2+1
f2 = (1/2)f1+(1/2)f3+1
......
f99 = (1/2)f98+(1/2)f100+1
f100 = f99+1
代码如下：
vars = Array[f, 101, 0];
eqns = Join[
f[#] == 1/2 (f[# - 1] + f[# + 1]) + 1 & /@
Range@99, {f[0] == 0, f[100] == f[99] + 1}];
Solve[eqns, vars]
Mathematica如何把方程的解存下来,后面再用.以及如何将数组作为未知数?
mathematica 如何将数组写入文件,
mathematica中,如何用循环语句生成数组?循环语句是解方程,接n个方程,得n个解,r如何把解放到一个数组
mathematica 方程的解,如何绘制出来
mathematica 如何解如下方程
mathematica如何把一张图的数据以数组的形式导出来?
mathematica如何将一个用Solve求的方程的解赋给一个变量
两个未知数的方程如何解?
mathematica中如何表示二维数组
Mathematica如何方程的解自动输出等号形式?
Wolfram Mathematica 如何把多个方程的每个方程任一组解代入到多项式求值?
Mathematica 如何同时解多个方程?