Wolfram mathematica 解决';n';数学中的同时方程

Wolfram mathematica 解决';n';数学中的同时方程,wolfram-mathematica,Wolfram Mathematica,我有形式为alpha*xf+beta*xb=xm的方程,其中xf、xb和xm是来自3个单独列表的值。我想在Mathematica中同时求解alpha和beta,方法是取xf、xb和xm的连续值。也就是说,在第一步中,我求出xf、xb和xm的I和I+1值,接下来我求出xf、xb和xm的I+1和I+2值。我猜他在找什么 (*Make up some example data*) {xflist, xblist, xmlist} = RandomReal[{-3, 3}, {3, 4}]; (*Sp

我有形式为
alpha*xf+beta*xb=xm
的方程,其中xf、xb和xm是来自3个单独列表的值。我想在Mathematica中同时求解alpha和beta,方法是取xf、xb和xm的连续值。也就是说,在第一步中,我求出xf、xb和xm的I和I+1值,接下来我求出xf、xb和xm的I+1和I+2值。

我猜他在找什么

(*Make up some example data*)
{xflist, xblist, xmlist} = RandomReal[{-3, 3}, {3, 4}];

(*Split each list into {{1,2},{2,3},{3,4}...}*)
xfl = Partition[xflist, 2, 1];
xbl = Partition[xblist, 2, 1];
xml = Partition[xmlist, 2, 1];

(*Solve two equations with two unknowns given six parameters*)
mysolve[{xf1_, xf2_}, {xb1_, xb2_}, {xm1_, xm2_}] := {alpha, beta} /. 
Solve[{alpha*xf1+beta*xb1==xm1, alpha*xf2+beta*xb2==xm2}, {alpha,beta}][[1]];

(*Use that to Solve for alpha and beta for all the sets of parameters*)
MapThread[mysolve, {xfl, xbl, xml}]

根本不清楚问题是什么。