Advertisement
Guest User

Untitled

a guest
Jul 16th, 2019
77
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.37 KB | None | 0 0
  1. Integrate[(-1 - y'[x]^2 - 2 y[x] y''[x])/(
  2. 2 y[x]^(3/2) (1 + y'[x]^2)^(3/2)), {y[x], 0, 1}]
  3.  
  4. solut = DSolve[{D[#, y[x]] - D[D[#, y'[x]], x] == 0}, y[x], x] &@ Sqrt[(1 + y'[x]^2)/(4.428 y[x])]
  5. slt = ((y[x] /. solut) /. {C[1] -> 0, C[2] -> 0})
  6.  
  7. Plot[-slt, {x, -1 , 1}, AxesLabel -> {"x", "y(x)"}, PerformanceGoal -> "Speed"]
  8.  
  9. -slt[[2]] /. x -> 1
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement