2.1.336 Problem 343

Solved as second order ode using Kovacic algorithm
Maple
Mathematica
Sympy

Internal problem ID [9508]
Book : Collection of Kovacic problems
Section : section 1
Problem number : 343
Date solved : Sunday, March 30, 2025 at 02:36:28 PM
CAS classification : [[_2nd_order, _with_linear_symmetries]]

Solved as second order ode using Kovacic algorithm

Time used: 0.076 (sec)

Writing the ode as

(1)y4xy+(4x22)y=0(2)Ay+By+Cy=0

Comparing (1) and (2) shows that

A=1(3)B=4xC=4x22

Applying the Liouville transformation on the dependent variable gives

z(x)=yeB2Adx

Then (2) becomes

(4)z(x)=rz(x)

Where r is given by

(5)r=st=2AB2BA+B24AC4A2

Substituting the values of A,B,C from (3) in the above and simplifying gives

(6)r=01

Comparing the above to (5) shows that

s=0t=1

Therefore eq. (4) becomes

(7)z(x)=0

Equation (7) is now solved. After finding z(x) then y is found using the inverse transformation

y=z(x)eB2Adx

The first step is to determine the case of Kovacic algorithm this ode belongs to. There are 3 cases depending on the order of poles of r and the order of r at . The following table summarizes these cases.

Case

Allowed pole order for r

Allowed value for O()

1

{0,1,2,4,6,8,}

{,6,4,2,0,2,3,4,5,6,}

2

Need to have at least one pole that is either order 2 or odd order greater than 2. Any other pole order is allowed as long as the above condition is satisfied. Hence the following set of pole orders are all allowed. {1,2},{1,3},{2},{3},{3,4},{1,2,5}.

no condition

3

{1,2}

{2,3,4,5,6,7,}

Table 2.336: Necessary conditions for each Kovacic case

The order of r at is the degree of t minus the degree of s. Therefore

O()=deg(t)deg(s)=0=

There are no poles in r. Therefore the set of poles Γ is empty. Since there is no odd order pole larger than 2 and the order at is infinity then the necessary conditions for case one are met. Therefore

L=[1]

Since r=0 is not a function of x, then there is no need run Kovacic algorithm to obtain a solution for transformed ode z=rz as one solution is

z1(x)=1

Using the above, the solution for the original ode can now be found. The first solution to the original ode in y is found from

y1=z1e12BAdx=z1e124x1dx=z1ex2=z1(ex2)

Which simplifies to

y1=ex2

The second solution y2 to the original ode is found using reduction of order

y2=y1eBAdxy12dx

Substituting gives

y2=y1e4x1dx(y1)2dx=y1e2x2(y1)2dx=y1(x)

Therefore the solution is

y=c1y1+c2y2=c1(ex2)+c2(ex2(x))

Will add steps showing solving for IC soon.

Maple. Time used: 0.003 (sec). Leaf size: 14
ode:=diff(diff(y(x),x),x)-4*diff(y(x),x)*x+(4*x^2-2)*y(x) = 0; 
dsolve(ode,y(x), singsol=all);
 
y=ex2(c2x+c1)

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 
   A Liouvillian solution exists 
   Reducible group (found an exponential solution) 
<- Kovacics algorithm successful
 

Maple step by step

Let’s solveddxddxy(x)4x(ddxy(x))+(4x22)y(x)=0Highest derivative means the order of the ODE is2ddxddxy(x)Assume series solution fory(x)y(x)=k=0akxkRewrite ODE with series expansionsConvertxmy(x)to series expansion form=0..2xmy(x)=k=max(0,m)akxk+mShift index usingk>kmxmy(x)=k=max(0,m)+makmxkConvertx(ddxy(x))to series expansionx(ddxy(x))=k=0akkxkConvertddxddxy(x)to series expansionddxddxy(x)=k=2akk(k1)xk2Shift index usingk>k+2ddxddxy(x)=k=0ak+2(k+2)(k+1)xkRewrite ODE with series expansions2a22a0+(6a36a1)x+(k=2(ak+2(k+2)(k+1)2ak(2k+1)+4ak2)xk)=0The coefficients of each power ofxmust be 0[2a22a0=0,6a36a1=0]Solve for the dependent coefficient(s){a2=a0,a3=a1}Each term in the series must be 0, giving the recursion relation(k2+3k+2)ak+24akk2ak+4ak2=0Shift index usingk>k+2((k+2)2+3k+8)ak+44ak+2(k+2)2ak+2+4ak=0Recursion relation that defines the series solution to the ODE[y(x)=k=0akxk,ak+4=2(2kak+22ak+5ak+2)k2+7k+12,a2=a0,a3=a1]
Mathematica. Time used: 0.02 (sec). Leaf size: 18
ode=D[y[x],{x,2}]-4*x*D[y[x],x]+(4*x^2-2)*y[x]==0; 
ic={}; 
DSolve[{ode,ic},y[x],x,IncludeSingularSolutions->True]
 
y(x)ex2(c2x+c1)
Sympy
from sympy import * 
x = symbols("x") 
y = Function("y") 
ode = Eq(-4*x*Derivative(y(x), x) + (4*x**2 - 2)*y(x) + Derivative(y(x), (x, 2)),0) 
ics = {} 
dsolve(ode,func=y(x),ics=ics)
 
False