Internal problem ID [12964]
Internal file name [OUTPUT/11617_Tuesday_November_07_2023_11_52_07_PM_93951882/index.tex
]
Book: DIFFERENTIAL EQUATIONS by Paul Blanchard, Robert L. Devaney, Glen R. Hall. 4th
edition. Brooks/Cole. Boston, USA. 2012
Section: Chapter 1. First-Order Differential Equations. Exercises section 1.6 page 89
Problem number: 4 and 16(ii).
ODE order: 1.
ODE degree: 1.
The type(s) of ODE detected by this program : "quadrature"
Maple gives the following as the ode type
[_quadrature]
\[ \boxed {w^{\prime }-w \cos \left (w\right )=0} \] With initial conditions \begin {align*} [w \left (3\right ) = 1] \end {align*}
This is non linear first order ODE. In canonical form it is written as \begin {align*} w^{\prime } &= f(t,w)\\ &= w \cos \left (w \right ) \end {align*}
The \(w\) domain of \(f(t,w)\) when \(t=3\) is \[
\{-\infty The \(w\) domain of \(\frac {\partial f}{\partial w}\) when \(t=3\) is \[
\{-\infty
Integrating both sides gives \begin {align*} \int _{0}^{w}\frac {1}{\textit {\_a} \cos \left (\textit {\_a} \right )}d \textit {\_a} +\int _{0}^{1}\frac {1}{w \cos \left (w \right )}d \textit {\_a} = t -3 \end {align*}
Summary
The solution(s) found are the following \begin{align*}
\tag{1} \int _{0}^{w}\frac {1}{\textit {\_a} \cos \left (\textit {\_a} \right )}d \textit {\_a} +\int _{0}^{1}\frac {1}{w \cos \left (w \right )}d \textit {\_a} &= t -3 \\
\end{align*} Verification of solutions
\[
\int _{0}^{w}\frac {1}{\textit {\_a} \cos \left (\textit {\_a} \right )}d \textit {\_a} +\int _{0}^{1}\frac {1}{w \cos \left (w \right )}d \textit {\_a} = t -3
\] Verified OK. Maple trace
✓ Solution by Maple
Time used: 0.407 (sec). Leaf size: 20
\[
w \left (t \right ) = \operatorname {RootOf}\left (\int _{\textit {\_Z}}^{1}\frac {\sec \left (\textit {\_a} \right )}{\textit {\_a}}d \textit {\_a} +t -3\right )
\]
✗ Solution by Mathematica
Time used: 0.0 (sec). Leaf size: 0
{}
5.15.2 Solving as quadrature ode
`Methods for first order ODEs:
--- Trying classification methods ---
trying a quadrature
trying 1st order linear
trying Bernoulli
trying separable
<- separable successful`
dsolve([diff(w(t),t)=w(t)*cos( w(t)),w(3) = 1],w(t), singsol=all)
DSolve[{w'[t]==w[t]*Cos[ w[t]],{w[3]==1}},w[t],t,IncludeSingularSolutions -> True]