Community RSS Feed
http://community.wolfram.com
RSS Feed for Wolfram Community showing any discussions in tag Equation Solving sorted by activeUse Solve with a condition of a limit x is much less than D?
http://community.wolfram.com/groups/-/m/t/1106375
Greetings,
I am working on a very complicated equation that needs to be solved. To simplify the function I use a limit in which x is much less than D or ( x<<D). I cannot find much less/greater condition in Mathematica. I need to solve that equation symbolically and I know that I should get four solutions. By taking a limit manually I got something like A*x^4-B*x^2+C=0. Then using solve I was able to get four solution, but with coefficients that were very long. (In manual calculations, I was able to get shorter coefficients)
How do I solve equation with much less condition?
Just for the sake of example let say I want to solve
f(x)= sqrt( D^2 - ( x - z )^2 ) + x * cos(a) + x + z
after limit
f(x)= sqrt( D^2 - ( z )^2 ) + x * cos(a) + x + z
Is there a command in Mathematica to selectively simplify/factor/expand some terms instead all terms in equations?Adam Szewczyk2017-05-25T01:56:46ZIs this definite integral solvable?
http://community.wolfram.com/groups/-/m/t/1115089
I have been looking at the eccentricity in induction motor. Through using the Maxwell's equations I have arrived at the equation (1) in the attached file.
However, I cannot find a solution for the equation (2) in a closed form using Mathematica. I believe, that the solution can be greatly simplified as described in the attached file. Am I correct or not?Jan Krepela2017-06-05T23:14:49ZTake a solution that is independent of a parameter?
http://community.wolfram.com/groups/-/m/t/1121621
Hi everybody.
Please, I have to solve a system of equations with respect to a parameter and to take the only solution that is independent of another variable.
This is the code. I think i had to better define the parameter k but i don't know how.
This is the code
W[r_, l_] := e^2/(2*(l + 1)) - (l + 1)/r
V1[r_, l_] := W[r, l]^2 - D[W[r, l], r]
V2[r_, l_] := W[r, l]^2 + D[W[r, l], r]
a1 := l
a2[a1_] := a1 + k
Solve[D[V2[r, l] - V1[r, a2[a1]], r] == 0 && l >= 0 && r > 0 &&
D[k[a1], a1] == 0, k[a1], Reals]
Thank you for your attention.deimos19902017-06-16T17:09:08Z