3.435 problem 1441

Internal problem ID [9768]
Internal file name [OUTPUT/8710_Monday_June_06_2022_05_17_15_AM_27579997/index.tex]

Book: Differential Gleichungen, E. Kamke, 3rd ed. Chelsea Pub. NY, 1948
Section: Chapter 2, linear second order
Problem number: 1441.
ODE order: 2.
ODE degree: 1.

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

Maple gives the following as the ode type

[[_2nd_order, _with_linear_symmetries]]

Unable to solve or complete the solution.

\[ \boxed {y^{\prime \prime }-\frac {2 \,\operatorname {JacobiSN}\left (x , k\right ) \operatorname {JacobiCN}\left (x , k\right ) \operatorname {JacobiDN}\left (x , k\right ) y^{\prime }-2 \left (1-2 \left (k^{2}+1\right ) \operatorname {JacobiSN}\left (a , k\right )^{2}+3 k^{2} \operatorname {JacobiSN}\left (a , k\right )^{4}\right ) y}{\operatorname {JacobiSN}\left (x , k\right )^{2}-\operatorname {JacobiSN}\left (a , k\right )}=0} \]

Maple trace

`Methods for second order ODEs: 
--- Trying classification methods --- 
trying a symmetry of the form [xi=0, eta=F(x)] 
checking if the LODE is missing y 
-> 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 changes of variables to rationalize or make the ODE simpler 
   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 
      -> Kummer 
         -> 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 a symmetry of the form [xi=0, eta=F(x)] 
      trying 2nd order exact linear 
      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 a symmetry of the form [xi=0, eta=F(x)] 
   checking if the LODE is missing y 
   -> Trying a solution in terms of special functions: 
      -> Bessel 
      -> elliptic 
      -> Legendre 
      -> Kummer 
         -> 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 
   -> Heun: Equivalence to the GHE or one of its 4 confluent cases under a power @ Moebius 
   -> 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 a symmetry of the form [xi=0, eta=F(x)] 
      trying 2nd order exact linear 
      trying symmetries linear in x and y(x) 
      trying to convert to a linear ODE with constant coefficients 
   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 
      -> Kummer 
         -> 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 a symmetry of the form [xi=0, eta=F(x)] 
      trying 2nd order exact linear 
      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)] 
   Attempts concluded. Rationalization is possible by changing variables: 
      [[x = InverseJacobiCN(t,k)], [x = InverseJacobiSN(t,k)]] 
   respectively leading to:`, `
 

Solution by Maple

dsolve(diff(diff(y(x),x),x) = (2*JacobiSN(x,k)*JacobiCN(x,k)*JacobiDN(x,k)*diff(y(x),x)-2*(1-2*(k^2+1)*JacobiSN(a,k)^2+3*k^2*JacobiSN(a,k)^4)*y(x))/(JacobiSN(x,k)^2-JacobiSN(a,k)),y(x), singsol=all)
 

\[ \text {No solution found} \]

Solution by Mathematica

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

DSolve[y''[x] == -(-JacobiSN[a, k]^2 + JacobiSN[x, k]^2)^(-1) - ((2 - 4*(1 + k^2)*JacobiSN[a, k]^2 + 6*k^2*JacobiSN[a, k]^4)*y[x])/(-JacobiSN[a, k]^2 + JacobiSN[x, k]^2) - ((-(JacobiCN[x, k]*JacobiDN[x, k]) - 2*JacobiSN[x, k])*y'[x])/(-JacobiSN[a, k]^2 + JacobiSN[x, k]^2),y[x],x,IncludeSingularSolutions -> True]
 

Not solved