Guest User

Untitled

a guest
Jul 19th, 2018
74
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.15 KB | None | 0 0
  1. exp = a - b + (f - i g)/h + c (d - e/2);
  2. exp /. Power[a_, b_?NumericQ] :> Power[a, ToString[b]] /.
  3. x_?NumericQ :> 1 /. s_String :> ToExpression[s]
Add Comment
Please, Sign In to add comment