Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- y[x_] = Cos[π*x];
- L = Integrate[Sqrt[1 + (y'[x])^2], {x, 0, 1/2}]
- X = NIntegrate[x*Sqrt[1 + (y'[x])^2], {x, 0, 1/2}]/L
- Y = Integrate[y[x]*Sqrt[1 + (y'[x])^2], {x, 0, 1/2}]/L
- {X, Y} // N
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement