Wolfram Mathematica 如何把多个方程的每个方程任一组解代入到多项式求值?

sunyanfei2022-10-04 11:39:541条回答

Wolfram Mathematica 如何把多个方程的每个方程任一组解代入到多项式求值?
例如实数方程：
NSolve[x^2 + y^2 - 10 - 3*m == 0 && 2 x + y == 2,{x,y},Reals,2]
若令m={2,3,4},表示上述是3个不相关的方程,得到它们的解
{{{x -> 2.5,y -> -3.1},{x -> -0.94,y -> 3.9}}
{{x -> 2.7,y -> -3.4},{x -> -1.1,y -> 4.2}}
{{x -> 2.9,y -> -3.7},{x -> -1.3,y -> 4.5}}
再从每行中任意取一组解组成一个表,如
{x,y}={{ 2.5,-3.1},{2.7,-3.4},{2.9,-3.7}}
如何得到这个表?
再把这3组解代入另一个关于x,y的多项式得到另一个表,如代入到x+y中,即
x+y={-0.6,-0.7,-0.8}
这个表又如何得到?

已提交，审核后显示！提交回复

YES_I_DO_ 共回答了18个问题 | 采纳率100%: ……学会使用Mathematica的列表操作啊.总之这样：
sol = NSolve[x^2 + y^2 - 10 - 3*# == 0 && 2 x + y == 2, {x, y}, Reals, 2] & /@ {2, 3, 4}
{x, y} /. Tuples@sol
x + y /. Tuples@sol; 1年前

帮我用WOLFRAM MATHEMATICA进行一个计算 帮我用WOLFRAM MATHEMATICA进行一个计算 式子如下,已知递推求通项. 如果求不出来的话,就传上输入的算法的截图吧 n是任意给的的,可以进入结果 啊仕1年前1: lvsededongtian 共回答了21个问题 | 采纳率95.2%

……你bm通项里的n是怎么决定的?
————
目测没解析解,至少Mathematica不会解这个的解析解.如果可解,那么语法是：
b[m_] := Sum[2^(m (i - 2)), {i, n}]
RSolve[{a[0] == 1, a[k + 1] == Sum[a[k - j] b[j + 1] (-1)^j, {j, 0, k}]/(k + 1)}, a[k], k]
软件原样返回了嗯.

1年前查看全部

怎么用Wolfram Mathematica求极限 lim(n→∞)[(1-2/x)]^(64x+2) debbieQQ1年前1: wo_shi_baobao 共回答了17个问题 | 采纳率100%

很简单啊：
Limit[((1 - 2/x))^(64 x + 2), x -> Infinity]
(*
答案是：1/E^128
*)

1年前查看全部

Wolfram Mathematica 8求助 Wolfram Mathematica 8求助 Q= k1*(T1 - Ta)/d; Q= k2*(Ta - Tb)/l; Q= k1*(Tb - T2)/d;如何用Wolfram Mathematica 8软件化简,把Ta和Tb消掉得出Q的等式 天空一声巨响1年前1: tang5233 共回答了20个问题 | 采纳率90%

由于该方程比较简单,可以直接使用Solve求

a1 = Q == k1*(T1 - Ta)/d;
a2 = Q == k2*(Ta - Tb)/l;
a3 = Q == k1*(Tb - T2)/d;
Solve[{a1, a2, a3}, {Q, Ta, Tb}]
得到结果：
{{Q -> (k1*(k2*T1 - k2*T2))/(2*d*k2 + k1*l),
Ta -> -(((-d)*k2*T1 - k1*l*T1 - d*k2*T2)/(2*d*k2 + k1*l)),
Tb -> -(((-d)*k2*T1 - d*k2*T2 - k1*l*T2)/(2*d*k2 + k1*l))}}

1年前查看全部

wolfram mathematica wolfram mathematica 谁教我画一下：r=a(1-sinA) 这个函数图像! lizhang8131年前1: 蓝山咖啡211 共回答了22个问题 | 采纳率95.5%

a = 6;
PolarPlot[a (1 - Sin[A]),{A,0,2*Pi}]

1年前查看全部

Wolfram Mathematica 关于数表分拆问题求教? Wolfram Mathematica 关于数表分拆问题求教? 一、Wolfram Mathematica 如何把数表按绝对值大小分组? 例如：把绝对值最小的3个数分为一组,把剩下的分为一组,要求保留每个数原来的位置不变,空位用0填充： 输入：{3,-5,7,-9,-4,8} 输出： {3,-5,0,0,4,0} {0,0,7,-9,0,8} 二、Wolfram Mathematica 如何把数组中每个元素原地重复n次? 例如：把{a,b,c}每个元素原地重复2次就得到：{a,a,b,b,c,c} 三、Wolfram Mathematica 如何把2个表交叉合并为一个表? 例如：把{1,3,5,7,9,11}与{2,4,6,8}交叉合并就得到 {1,2,3,4,5,6,7,8,9,11} 微名草1年前1: guojianyun165 共回答了14个问题 | 采纳率64.3%

我这会儿能想到的是：
第一个：
list = {3, -5, 7, -9, -4, 8};
min3 = Replace[list, Except[Alternatives @@ Part[list, Ordering[Abs@list, 3]]] -> 0, 1]
rest = list - min3
第二个：
Replace[{a, b, c}, a_ -> Sequence[a, a], 1]
第三个：
lst1 = {1, 3, 5, 7, 9, 11};
lst2 = {2, 4, 6, 8};
mid = PadRight[lst2, Length@lst1];
DeleteCases[Riffle[lst1, mid], 0]
用的指令比较多,注意看帮助.

1年前查看全部

Wolfram Mathematica 如何解阶乘方程? Wolfram Mathematica 如何解阶乘方程? 用Wolfram Mathematica 如何求阶乘方程之解?定义p!为2到p的连续素数之积,如p!=50000,那么p最大值为13,怎么得来? 提示有新回答，为什么看不见？ 十五行_1年前1: ainana706 共回答了12个问题 | 采纳率100%

y = 1;
Do[y = Prime[i]*y; Print[Prime[i]];
If[y > 50000,Break[]],{i,1,100}];
写得不是很好,但是这一段程序基本能够满足你的要求.主要是遍历素数,知道找到答案为止.

1年前查看全部

Wolfram Mathematica 如何把多个方程的每个方程任一组解代入到多项式求值?

共1条回复

相关推荐

大家在问