Guest User

Untitled

a guest
Jun 17th, 2018
90
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.48 KB | None | 0 0
  1. f = 0.00441039 (Sqrt[2 [Pi]] Abs[-6 + t]^3 +
  2. Sqrt[2 [Pi]] Abs[t]^3 + 18.7497 (-1. + t)^3 Sign[1. - 1. t] +
  3. 130.745 (-1.5 + 1. t)^3 Sign[1.5 - 1. t] -
  4. 896.268 (-2. + t)^3 Sign[2. - 1. t] +
  5. 2198.61 (-2.5 + 1. t)^3 Sign[2.5 - 1. t] -
  6. 2898.66 (-3. + t)^3 Sign[3. - 1. t] +
  7. 2198.61 (-3.5 + 1. t)^3 Sign[3.5 - 1. t] -
  8. 896.268 (-4. + t)^3 Sign[4. - 1. t] +
  9. 130.745 (-4.5 + 1. t)^3 Sign[4.5 - 1. t] +
  10. 18.7497 (-5. + t)^3 Sign[5. - 1. t]);
  11.  
  12. PiecewiseExpand[f, Reals] // FullSimplify
Add Comment
Please, Sign In to add comment