2.3 problem Problem 3.7(c)

2.3.1 Solving as second order bessel ode ode

Internal problem ID [12411]
Internal file name [OUTPUT/11064_Wednesday_October_04_2023_07_06_10_PM_70418792/index.tex]

Book: Differential Equations, Linear, Nonlinear, Ordinary, Partial. A.C. King, J.Billingham, S.R.Otto. Cambridge Univ. Press 2003
Section: Chapter 3 Bessel functions. Problems page 89
Problem number: Problem 3.7(c).
ODE order: 2.
ODE degree: 1.

The type(s) of ODE detected by this program : "second_order_bessel_ode"

Maple gives the following as the ode type

[[_2nd_order, _with_linear_symmetries]]

\[ \boxed {x y^{\prime \prime }+\left (x +1\right )^{2} y=0} \]

2.3.1 Solving as second order bessel ode ode

Writing the ode as \begin {align*} x^{2} y^{\prime \prime }+\left (x^{3}+2 x^{2}+x \right ) y = 0\tag {1} \end {align*}

Bessel ode has the form \begin {align*} x^{2} y^{\prime \prime }+y^{\prime } x +\left (-n^{2}+x^{2}\right ) y = 0\tag {2} \end {align*}

The generalized form of Bessel ode is given by Bowman (1958) as the following \begin {align*} x^{2} y^{\prime \prime }+\left (1-2 \alpha \right ) x y^{\prime }+\left (\beta ^{2} \gamma ^{2} x^{2 \gamma }-n^{2} \gamma ^{2}+\alpha ^{2}\right ) y = 0\tag {3} \end {align*}

With the standard solution \begin {align*} y&=x^{\alpha } \left (c_{1} \operatorname {BesselJ}\left (n , \beta \,x^{\gamma }\right )+c_{2} \operatorname {BesselY}\left (n , \beta \,x^{\gamma }\right )\right )\tag {4} \end {align*}

Comparing (3) to (1) and solving for \(\alpha ,\beta ,n,\gamma \) gives \begin {align*} \alpha &= {\frac {1}{2}}\\ \beta &= 2\\ n &= -1\\ \gamma &= {\frac {1}{2}} \end {align*}

Substituting all the above into (4) gives the solution as \begin {align*} y = -c_{1} \sqrt {x}\, \operatorname {BesselJ}\left (1, 2 \sqrt {x}\right )-c_{2} \sqrt {x}\, \operatorname {BesselY}\left (1, 2 \sqrt {x}\right ) \end {align*}

Summary

The solution(s) found are the following \begin{align*} \tag{1} y &= -c_{1} \sqrt {x}\, \operatorname {BesselJ}\left (1, 2 \sqrt {x}\right )-c_{2} \sqrt {x}\, \operatorname {BesselY}\left (1, 2 \sqrt {x}\right ) \\ \end{align*}

Verification of solutions

\[ y = -c_{1} \sqrt {x}\, \operatorname {BesselJ}\left (1, 2 \sqrt {x}\right )-c_{2} \sqrt {x}\, \operatorname {BesselY}\left (1, 2 \sqrt {x}\right ) \] Verified OK.

Maple trace

`Methods for second order ODEs: 
--- Trying classification methods --- 
trying a quadrature 
checking if the LODE has constant coefficients 
checking if the LODE is of Euler type 
trying a symmetry of the form [xi=0, eta=F(x)] 
checking if the LODE is missing y 
-> Trying a Liouvillian solution using Kovacics algorithm 
<- No Liouvillian solutions exists 
-> Trying a solution in terms of special functions: 
   -> Bessel 
   -> elliptic 
   -> Legendre 
   -> Whittaker 
      -> hyper3: Equivalence to 1F1 under a power @ Moebius 
   -> hypergeometric 
      -> heuristic approach 
      -> hyper3: Equivalence to 2F1, 1F1 or 0F1 under a power @ Moebius 
   -> Mathieu 
      -> Equivalence to the rational form of Mathieu ODE under a power @ Moebius 
trying a solution in terms of MeijerG functions 
-> Heun: Equivalence to the GHE or one of its 4 confluent cases under a power @ Moebius 
-> trying a solution of the form r0(x) * Y + r1(x) * Y where Y = exp(int(r(x), dx)) * 2F1([a1, a2], [b1], f) 
   trying differential order: 2; exact nonlinear 
   trying symmetries linear in x and y(x) 
   trying to convert to a linear ODE with constant coefficients 
   trying to convert to an ODE of Bessel type 
   -> trying reduction of order to Riccati 
      trying Riccati sub-methods: 
         -> trying a symmetry pattern of the form [F(x)*G(y), 0] 
         -> trying a symmetry pattern of the form [0, F(x)*G(y)] 
         -> trying a symmetry pattern of the form [F(x),G(x)*y+H(x)] 
--- Trying Lie symmetry methods, 2nd order --- 
`, `-> Computing symmetries using: way = 3`[0, y]
 

Solution by Maple

dsolve(x*diff(y(x),x$2)+(x+1)^2*y(x)=0,y(x), singsol=all)
 

\[ \text {No solution found} \]

Solution by Mathematica

Time used: 0.0 (sec). Leaf size: 0

DSolve[x*y''[x]+(x+1)^2*y[x]==0,y[x],x,IncludeSingularSolutions -> True]
 

Not solved