Guest User

Untitled

a guest
Mar 23rd, 2018
104
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 2.30 KB | None | 0 0
  1. DSolve[ (Sin[x1]^2 Sin[
  2. x2] ((-1 + l) (3 + l) q1[z] + 3 z Derivative[1][q1][z] -
  3. z^2 (q1^[Prime][Prime])[z]))/z^5 + (
  4. Sin[x1]^2 Sin[
  5. x2] ((1 - l) (3 + l) z^2 q1[z] - z^3 Derivative[1][q1][z] +
  6. z^4 (q1^[Prime][Prime])[z]))/(L^2 z^5) == 0, q1[z], z]
  7.  
  8. {{q1[z] ->
  9. I^(1 - l) L^(-1 + l) z^(1 - l)
  10. C[1] Hypergeometric2F1[-(l/2) -
  11. 1/2 Sqrt[-2 + 2 l + l^2], -(l/2) +
  12. 1/2 Sqrt[-2 + 2 l + l^2], -l, z^2/L^2] +
  13. I^(3 + l) L^(-3 - l) z^(3 + l)
  14. C[2] Hypergeometric2F1[1 + l/2 - 1/2 Sqrt[-2 + 2 l + l^2],
  15. 1 + l/2 + 1/2 Sqrt[-2 + 2 l + l^2], 2 + l, z^2/L^2]}}
  16.  
  17. q1[z_] :=
  18. I^(1 - l) L^(-1 + l) z^(1 - l)
  19. Hypergeometric2F1[-(l/2) - 1/2 Sqrt[-2 + 2 l + l^2], -(l/2) +
  20. 1/2 Sqrt[-2 + 2 l + l^2], -l, z^2/L^2] +
  21. I^(3 + l) L^(-3 - l) z^(3 + l)
  22. Hypergeometric2F1[1 + l/2 - 1/2 Sqrt[-2 + 2 l + l^2],
  23. 1 + l/2 + 1/2 Sqrt[-2 + 2 l + l^2], 2 + l, z^2/L^2]
  24. (Sin[x1]^2 Sin[
  25. x2] ((-1 + l) (3 + l) q1[z] + 3 z Derivative[1][q1][z] -
  26. z^2 (q1^[Prime][Prime])[z]))/z^5 + (
  27. Sin[x1]^2 Sin[
  28. x2] ((1 - l) (3 + l) z^2 q1[z] - z^3 Derivative[1][q1][z] +
  29. z^4 (q1^[Prime][Prime])[z]))/(L^2 z^5) == 0 //
  30. Factor // Simplify
  31.  
  32. (1/(l (2 + l)))
  33. I^-l L^(-1 - l)
  34. z^(-1 - l) (2 l (-2 + l + l^2) L^(6 + 2 l)
  35. Hypergeometric2F1[1/2 (-l - Sqrt[-2 + 2 l + l^2]),
  36. 1/2 (-l + Sqrt[-2 + 2 l + l^2]), -l, z^2/L^2] -
  37. 2 (-2 + l + l^2) L^(
  38. 4 + 2 l) (z^2 + l (L^2 - z^2)) Hypergeometric2F1[
  39. 1/2 (2 - l - Sqrt[-2 + 2 l + l^2]),
  40. 1/2 (2 - l + Sqrt[-2 + 2 l + l^2]), 1 - l, z^2/L^2] +
  41. z^2 (3 (-2 + l + l^2) L^(
  42. 2 + 2 l) (L^2 - z^2) Hypergeometric2F1[
  43. 1/2 (4 - l - Sqrt[-2 + 2 l + l^2]),
  44. 1/2 (4 - l + Sqrt[-2 + 2 l + l^2]), 2 - l, z^2/L^2] +
  45. I^(2 l) l (3 + l) z^(
  46. 2 l) (2 (2 + l) L^4 Hypergeometric2F1[
  47. 1/2 (2 + l - Sqrt[-2 + 2 l + l^2]),
  48. 1/2 (2 + l + Sqrt[-2 + 2 l + l^2]), 2 + l, z^2/L^2] +
  49. 2 L^2 (-(2 + l) L^2 + (3 + l) z^2) Hypergeometric2F1[
  50. 1/2 (4 + l - Sqrt[-2 + 2 l + l^2]),
  51. 1/2 (4 + l + Sqrt[-2 + 2 l + l^2]), 3 + l, z^2/L^2] +
  52. 3 z^2 (-L^2 + z^2) Hypergeometric2F1[
  53. 1/2 (6 + l - Sqrt[-2 + 2 l + l^2]),
  54. 1/2 (6 + l + Sqrt[-2 + 2 l + l^2]), 4 + l, z^2/
  55. L^2]))) Sin[x1] Sin[x2] == 0
Add Comment
Please, Sign In to add comment