Advertisement
Guest User

Untitled

a guest
Apr 27th, 2017
60
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.23 KB | None | 0 0
  1. In[1]:= AbsoluteTiming[
  2. h = 100.0;
  3. v = 20.0;
  4. g = 9.81;
  5. vol = Integrate[2 Pi x (h + v^2/(2 g) - g/2*x^2/v^2),
  6. {x, 0, (v Sqrt[2 g h + v^2])/g}];
  7. {IntegerPart[vol], N[FractionalPart[vol]]}]
  8.  
  9. Out[1]= {0.00168545, {1856532, 0.845528}}
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement