Guest User

Untitled

a guest
Jun 18th, 2018
86
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 1.51 KB | None | 0 0
  1. expr = 0.00441039 (Sqrt[2 π] Abs[-6 + t]^3 + Sqrt[2 π] Abs[t]^3 + 18.7497 (-1. + t)^3 Sign[1. - 1. t] + 130.745 (-1.5 + 1. t)^3 Sign[1.5 - 1. t] - 896.268 (-2. + t)^3 Sign[2. - 1. t] + 2198.61 (-2.5 + 1. t)^3 Sign[2.5 - 1. t] - 2898.66 (-3. + t)^3 Sign[3. - 1. t] + 2198.61 (-3.5 + 1. t)^3 Sign[3.5 - 1. t] - 896.268 (-4. + t)^3 Sign[4. - 1. t] + 130.745 (-4.5 + 1. t)^3 Sign[4.5 - 1. t] + 18.7497 (-5. + t)^3 Sign[5. - 1. t])
  2.  
  3. FullSimplify[expr]
  4.  
  5. f = 0.00441039 (Sqrt[2 [Pi]] Abs[-6 + t]^3 +
  6. Sqrt[2 [Pi]] Abs[t]^3 + 18.7497 (-1. + t)^3 Sign[1. - 1. t] +
  7. 130.745 (-1.5 + 1. t)^3 Sign[1.5 - 1. t] -
  8. 896.268 (-2. + t)^3 Sign[2. - 1. t] +
  9. 2198.61 (-2.5 + 1. t)^3 Sign[2.5 - 1. t] -
  10. 2898.66 (-3. + t)^3 Sign[3. - 1. t] +
  11. 2198.61 (-3.5 + 1. t)^3 Sign[3.5 - 1. t] -
  12. 896.268 (-4. + t)^3 Sign[4. - 1. t] +
  13. 130.745 (-4.5 + 1. t)^3 Sign[4.5 - 1. t] +
  14. 18.7497 (-5. + t)^3 Sign[5. - 1. t]);
  15.  
  16. PiecewiseExpand[f, Reals] // Simplify
  17.  
  18. f2 = f /. Sign[u_] -> u/Sqrt[u^2] /. Abs[u_] -> Sqrt[u^2] // Simplify
  19.  
  20. f3 = Rationalize[f, 0];
  21.  
  22. f3 /. Sign[u_] -> u/Sqrt[u^2] /. Abs[u_] -> Sqrt[u^2] // FullSimplify
  23.  
  24. (* (1/1000000000000)441039 (-(653725/4) ((3 - 2 t)^2)^(3/2) -
  25. 5496525/2 ((5 - 2 t)^2)^(3/2) - 5496525/2 ((7 - 2 t)^2)^(3/2) -
  26. 653725/4 ((9 - 2 t)^2)^(3/2) +
  27. 10000 Sqrt[2 [Pi]] ((-6 + t)^2)^(3/2) -
  28. 187497 ((-5 + t)^2)^(3/2) + 8962680 ((-4 + t)^2)^(3/2) +
  29. 28986600 ((-3 + t)^2)^(3/2) + 8962680 ((-2 + t)^2)^(3/2) -
  30. 187497 ((-1 + t)^2)^(3/2) + 10000 Sqrt[2 [Pi]] (t^2)^(3/2)) *)
Add Comment
Please, Sign In to add comment