Message Boards Message Boards

0
|
369 Views
|
4 Replies
|
1 Total Likes
View groups...
Share
Share this post:

Solving equation approximately

Look at this equation. Clearly this is not solvable. but a=c=0 reduces the equation which gives two solutions. now I want to find an approximate solution of the original equation which gives the same solution of the reduced equation after substituting a=c=0 in the solution. Is there any way to do that? Thanks in advance.

Attachments:
polynomial.nb
POSTED BY: Debojyoti Mondal
4 Replies
Sort By:

You may try AsymptoticSolve:

AsymptoticSolve[
 2   a   Q^4 + 5   r^4   (-4   Q^2 - 2   r   (-3   M + r) +
      3   c   r^(1 - 3  \[Omega])   (1 + \[Omega])) == 0,
 {r, 1/2   (3   M + Sqrt[9  M^2 - 8  Q^2])},
 {{a, c}, {0, 0}, 1}]
POSTED BY: Gianluca Gorni

This asymptoticsolve worked very well. Thank you very much.
POSTED BY: Debojyoti Mondal

I am not sure what you have in mind, but here is an attempt:

Manipulate[{NSolve[2  a  Q^4 + 5  r^4  (-4  Q^2 -
        2  r  (-3  M + r) + 
        3  c  r^(1 - 3 \[Omega])  (1 + \[Omega])) == 0,
   r, Reals],
  Style[{{r -> 1/2  (3  M - Sqrt[9 M^2 - 8 Q^2])},
    {r -> 1/2  (3  M + Sqrt[9 M^2 - 8 Q^2])}},
   Red]},
 {{a, 0}, -1, 1},
 {{c, 0}, -1, 1},
 {{M, 1}, 0, 2},
 {{Q, 1}, 0, 1},
 {\[Omega], 0, 1}]
POSTED BY: Gianluca Gorni

Thanks for the reply. I need analytical expression for r in terms of other variables. [omega] lies between -1 and -1/3. Other parameters may take any positive value. Even an approximate expression would do good.

POSTED BY: Debojyoti Mondal
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Tag limit exceeded
Note: Only the first five people you tag will receive an email notification; the other tagged names will appear as links to their profiles.
Reply Preview
Attachments
Remove
or Discard

Group Abstract Group Abstract