Guest User

Untitled

a guest
May 20th, 2018
122
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.43 KB | None | 0 0
  1. f[[Theta]_] =
  2. Integrate[1/(Cot[[Theta]]^2 - Sin[[Theta]]^2)^((1/2)), [Theta]]
  3.  
  4. -(1/Sqrt[Cot[[Theta]]^2 - Sin[[Theta]]^2])
  5. 2 (-9 + 4 Sqrt[5]) Cos[[Theta]/2]^4 Csc[[Theta]] EllipticF[
  6. ArcSin[Sqrt[9 + 4 Sqrt[5]] Tan[[Theta]/2]^2],
  7. 1/(9 + 4 Sqrt[5])^2] Sqrt[9 + 4 Sqrt[5] - Tan[[Theta]/2]^4] Sqrt[
  8. 1 - (9 + 4 Sqrt[5]) Tan[[Theta]/2]^4]
  9.  
  10. InverseFunction[f][1]
  11.  
  12. [Theta]1[t_] := NSolve[f[[Theta]] == t, {[Theta]}]
  13. [Theta]1[1]
Add Comment
Please, Sign In to add comment