- #1

Hepth

Gold Member

- 464

- 40

Code:

```
(PolyLog (2,(-1 + t)*pow (-1 + q2h,-1))*pow (q2h - t,-1)*pow (-1 + \
t,-1)*
(-8*pow (q2h,3)*pow (t,2) + pow (q2h,4)*(1 + pow (t,2)) -
8*q2h*pow (t,3)*(-3 + 8*t - 5*pow (t,2) + pow (t,3)) +
pow (q2h,2)*pow (t,2)*(-13 + 40*t - 16*pow (t,2) + pow (t,4)) +
pow (t,4)*(-10 + 24*t - 13*pow (t,2) + pow (t,4)))*
pow (q2h - pow (t,2),-3))/8. -
(PolyLog (2,-((q2h - t)*(q2h + (-1 + 2*ctf)*t)*pow (ctf,-1)*pow \
(t,-2))/2.)*
pow (q2h - t,-1)*pow (-1 + t,-1)*
(-8*pow (q2h,3)*pow (t,2) + pow (q2h,4)*(1 + pow (t,2)) -
8*q2h*pow (t,3)*(-3 + 8*t - 5*pow (t,2) + pow (t,3)) +
pow (q2h,2)*pow (t,2)*(-13 + 40*t - 16*pow (t,2) + pow (t,4)) +
pow (t,4)*(-10 + 24*t - 13*pow (t,2) + pow (t,4)))*
pow (q2h - pow (t,2),-3))/8.
```

I would like to import this back into Mathematica in an automatic way, as the true expressions are many pages long.

I tried by hand with things like : StringReplace[%, {"pow(t," ~~ Shortest[b__] ~~ ")" :> "Power[t," ~~ b ~~ "]"}];

but it gets ugly, and sometimes makes mistakes.

Is there a package or method that exists that would let me do this? Can Mathematica import C code at all, or convert it if its simple (like this)?

Thanks!

-Hepth