你敲的括号似乎也有点问题,不改过来的话是会报错的。
mathematica解方程组 mathematics解方程组
我算了一下,输出的结果是这个:
Solve::tdep: The equations appear to involve the variables to be \
solved for in an essentially non-algebraic way. >>
还有:
Solve[{h Cot[B] - Sqrt[d^2 + h^2 + h^2 Cot[B]^2] == x,
h Cot[B] + Sqrt[d^2 + h^2 + h^2 Cot[B]^2] == y,
G p ArcTan[(2 dh)/(-d^2 + h^2)] Sin[2 B] == a + b,
G p Log[(h^2 + (-d + x)^2)/(h^2 + (d + x)^2)] Sin[B]^2 +
ArcTan[(2 dh)/(-d^2 + h^2 + x2)] Sin[2 B] == a}, {d, h, B, p}],就是把原来那个式子变了个形而已。
考虑到他说不能用简单的代数方法求解(其实Mathematica对很多问题都只能用数值方法做,比如说四阶以上的微分方程组),恐怕只有用别的办法了,比如说对具体的数字用数值解法做
如果你要用数值方法的话就不能用Solve命令了,得改成NSolve等的命令,具体可以看教程。简单地把数字代进去应该还是不行的。
那句英语的意思是计算过程中发生了溢出,应该是有某些中间量超出了它可以处理的范围。
一个等式你写的是:
Gp( (Sin[B])^2Log[((x-d)^2+h^2)/((x+d)^2+h^2)]+Sin[2B]ArcTan[(2dh)/(x^2+h^2-d^2)]=a,少写了一个右半括号(在(Sin[B])^2后面),改过来就可以了。还有就是dh不能简写成dh,不然也会报错(上次x(0.3577490.21372(1 - yExp[-207z]) - a) == 0.01453}, {x, y, z, a}]没发现,抱歉),我马上去试试改完了行不行(我也是初学,惭愧)
终结果:你变形以后的那个方程无解,用Mathematica的输出结果是:
d^4+(24396215052 d^2 h^2)/(9241/625+<<1>>+<<1>>)^2) == 0. >>还有另外两个相同形式的提示,这个表示方程无解.还有和以前Solve[{(y1 - y2)/(x1 - x2) == (55 - 16)/(-8 -相同的提示,就是说这个方程无法用代数方法求解.
换成NSolve以后算了半天也没有反应,FindRoot等是算局部解的,用不上......
不知道这个是不是你要的,看图
我也是mathemay2 -> 1458/109},tica菜鸟,希望能给你有所帮助
Solve[{方程组},{待求变量组}],按Shift+Enter,得结果。
再举个例子。下面这个方程,
After reduction, the bad equation is d^2 (-243750000 d^2+75000000 \Sin[x]==x
是得不到解得。不是 Mathematica 功能不够,而是这个方程在数学上就没有解析解。
类似的方程在 Mathematica 里面。可以用FindRoot求解数值解。
SolveSolve::incnst: Inconsistent or redundant transcendental equation. \[{r1^2 - r2^2 == -2xx1 + 2xx2 + x1^2 - x2^2 - 2yy1 +
2yy2 + y1^2 - y2^2 - 2zz1 + 2zz2 + z1^2 - z2^2,
r1^2 - r3^2 == -2xx1 + 2xx3 + x1^2 - x3^2 - 2yy1 + 2yy3 +
y1^2 -也许我能力不够,帮不了你太多的忙。不过你可以到一些专业的工程计算论坛上去问问,那里的专业人士会比较多。 y3^2 - 2zz1 + 2zz3 + z1^2 - z3^2,
y2^2 - y3^2 - 2zz2 + 2zz3 + z2^2 - z3^2}, {x, y, z}]
2. MATLAB:这是一个流行的数学软件,常用于科学、工程和数学领域。它可以用于求解各种方程,包括线性和非线性方程、代数方程组和微分方程。
( a == b && y == b - x )3. Wolfram Alpha:这是一个在线的计算引擎,可以帮助你求解各种数学问题,包括方程求解。它可以接受自然语言输入,并给出详细的解答步骤。
4. Maple:这是一个专业的数学软件,可以用于代数、微积分、线性代数和其他数学领域。它可以求解各种方程,包括代数方程、微分方程和偏微分方程。
5. Maxima:这是一个免费的计算机代数系统,可以用于代数、微积分和其他数学领域。它可以求解各种方程,包括代数方程、微分方程和偏微分方程。
以上是一些常用的数学软件,它们都可以帮助你学习和解方程。具体选择哪个软件,可以根据个人需要和偏好来决定。
所有的关系方程必须用{ }括起来,正确的为:
13), (x1 - x2)^2 + (y1 - y2)^2 == (55 - 16)^2 + (-8 -
13)^2, (x2 - 5)^2 + (y2 - 10)^2 == (13 - 5)^2 + (16 -
10)^2}, {x1, x2, y1, yr2^2 - r3^2 == -2xx2 + 2xx3 + x2^2 - x3^2 - 2yy2 + 2yy3 +2}]
解出来有两组解,运行结果为:
{x1 -> -(2770/109), x2 -> -(481/109), y1 -> 4973/109, y2 -> 722/109}, {x1 -> -8, x2 -> 13, y1 -> 55, y2 -> 16}}
首先内置解有好几组,你按照这个输入应该可以算出函数一律是首字母大写的。
其次这个方程组挺复杂的,解不出来也没什么奇怪的。Reduce应该可以获得一些特殊情况的解,但也会耗很长时间,有什么约束条件尽量加上去。
类似以下格式,自己看吧,我Solve[{x(0.1605490.21372(1 - yExp[-2z]) - a) == 0.00137,估计你mathematica符号表达式用不来,建议借书看看,肯定有例题
x(0.2069490.21372(1 - yExp[-16z]) - a) == 0.00393,
x(0.346149非要用Solve的话:0.21372(1 - yExp[-109z]) - a) == 0.01332,
你这个方程只有在a==b的时候才有意义并且有无数组解啊,对此你可以用Reduce:
Reduce[x + y == a && x + y == b, {x, y}]
Solve[x + y ={{x1 -> 18, x2 -> -3, y1 -> -35, y2 -> 4}, {x1 -> 3860/109, x2 -> 1571/109, y1 -> (2793/109),= a && x + y == b, {x, y}, MaxExtraCond不能。这是个超越方程,没有办法得到解析表达式的解。itions -> All]
这样会有警告信息,当然这个无所谓。
版权声明:本文内容由互联。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容, 请发 a13828211729@163.com 邮箱删除。