Group Abstract Group Abstract

Message Boards Message Boards

0
|
6.2K Views
|
6 Replies
|
3 Total Likes
View groups...
Share
Share this post:

How to simplify polynomial at my Taylor series ?

Posted 6 years ago
Attachment

Attachments:
POSTED BY: Pred Liu
6 Replies
Posted 6 years ago

I am not sure that I understand exactly what you are intended to do but you can pull the polynomial expression apart. First you temporarily replace the u by a variable v with positive integer exponents:

t3 = t2 /. Power[ u_, Rational[p_, m_]] -> Power[v, -(p/m + 1/2)]

Now you use CoefficientList to extract the coefficients:

t4 = CoefficientList[t3, {v}];

Finally you bring back u into a separate list. The result looks like

t5 = {v^Range[0, Length[t4] - 1] /. {Power[v, n_] -> 
     Power[u, -n - 1/2], v -> u^(-3/2)}, t4}

Here is a check that this decomposition corresponds in fact to T2

Total[Map[Apply[Times, #] &, t5\[Transpose]]] == t2

Hope that helps

POSTED BY: Michael Helmle
Posted 6 years ago
POSTED BY: Pred Liu
Posted 6 years ago
POSTED BY: Pred Liu
Posted 6 years ago
t1 = u^6 Sqrt[u^3]
{t1, (1/t1)} /. { 
  Power[Power[u_, n_], Rational[p_, m_]] -> Power[u, (p n)/m]}
POSTED BY: Michael Helmle
Posted 6 years ago
Hi, Michael

Thank you for your code . How can I show the function like that

enter image description here

POSTED BY: Pred Liu
Posted 6 years ago

Hope this helps. I used E2 etc instead of Eunderscore2

t2 = carlson[E2, 
     E3] /. {Power[Power[u_, n_], Rational[p_, m_]] -> 
      Power[u, ( p n)/m]} // Normal // Collect[#, {u}] &
POSTED BY: Michael Helmle
Reply to this discussion
Community posts can be styled and formatted using the Markdown syntax.
Reply Preview
Attachments
Remove
or Discard