#18 page 751

> restart;

> y1:=x->sin(x^2);

[Maple Math]

> x*diff(y1(x),x,x)-diff(y1(x),x)+4*x^3*y1(x)=0;

[Maple Math]

> simplify(%);

[Maple Math]

> y2:=x->sin(x^2)*v(x);

[Maple Math]

> x*diff(y2(x),x,x)-diff(y2(x),x)+4*x^3*y2(x)=0;

[Maple Math]
[Maple Math]

>

> simplify(%);

[Maple Math]

> 4*cos(x^2)*x^2*z(x)+x*sin(x^2)*diff(z(x),x)-sin(x^2)*z(x) = 0;

[Maple Math]

> solve(%,diff(z(x),x));

[Maple Math]

> int(-1/z,z)=int(4*cot(x^2)*x-1/x,x);

[Maple Math]

> solve(%,z);

[Maple Math]

> int(%,x);

[Maple Math]

> %*sin(x^2);

[Maple Math]

> y2:=unapply(%,x);

[Maple Math]

> x*diff(y2(x),x,x)-diff(y2(x),x)+4*x^3*y2(x)=0;

[Maple Math]

> simplify(%);

[Maple Math]