Figure 2.4.7(a)   Graph of the curvature

Initialize

Loading Student:-VectorCalculus

$\mathrm{BasisFormat}\left(\mathrm{false}\right)\:$

$\mathbf{R}\=⟨p\,3 p^2\,p^3⟩$$\stackrel{\text{assign}}{\to }$

Obtain the curvature

$\mathbf{R}$

$\stackrel{\text{curvature}}{\to }$

$\frac{1}{2}\frac{\sqrt{\frac{{\left(36p^3\+72p\right)}^2}{{\left(9p^4\+36p^2\+1\right)}^3}\+4{\left(-\frac{3p\left(36p^3\+72p\right)}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}\+\frac{6}{\sqrt{9p^4\+36p^2\+1}}\right)}^2\+4{\left(-\frac{3}{2}\frac{p^2\left(36p^3\+72p\right)}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}\+\frac{6p}{\sqrt{9p^4\+36p^2\+1}}\right)}^2}}{\sqrt{9p^4\+36p^2\+1}}$

$\stackrel{\text{assuming positive}}{\to }$

$\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

Obtain the curvature as $\mathrm{\κ}\=\parallel \mathbf{R}\prime \times \mathbf{R}″\parallel \/{\mathrm{\ρ}}^3$ 

$\mathbf{R}\prime \=\frac{\ⅆ}{\ⅆ p} \mathbf{R}$$\stackrel{\text{assign}}{\to }$

$\mathbf{R}″\=\frac{{\ⅆ}^2}{{\ⅆ}^{}{p}^2} \mathbf{R}$$\stackrel{\text{assign}}{\to }$

$\mathrm{\ρ}\=\parallel \mathbf{R}\prime \parallel$$\stackrel{\text{assign}}{\to }$

$\frac{∥\mathbf{R}\prime \times \mathbf{R}″∥}{{\mathrm{\ρ}}^3}$ = $\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

Obtain the curvature as $\mathrm{\κ}\=∥\mathbf{T}\prime \left(s\right)∥$ then graph $\mathrm{\κ}$

$\mathbf{T}\=\mathbf{R}\prime \/\mathrm{\ρ}$$\stackrel{\text{assign}}{\to }$

$∥\left(\frac{\ⅆ}{\ⅆ p} \mathbf{T}\right)\/\mathrm{\ρ}∥$

$6\sqrt{\frac{9p^4\+p^2\+1}{{\left(9p^4\+36p^2\+1\right)}^3}}$

$\stackrel{\text{assuming positive}}{\to }$

$\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

$\to$

Display computed quantities

$\mathbf{R}\prime \,\mathbf{R}″\,\mathrm{\ρ}\,\mathbf{T}$

$\mathrm{with}\left(\mathrm{Student}:-\mathrm{VectorCalculus}\right)\:$

$\mathbf{R}≔⟨p\,3 p^2\,p^3⟩\:$

$\mathrm{simplify}\left(\mathrm{Curvature}\left(\mathbf{R}\,p\right)\right) assuming \mathrm{positive}$

$\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

$\mathbf{T}≔\mathrm{TangentVector}\left(\mathbf{R}\,p\,\mathrm{normalized}\right)\:$

$\mathrm{\ρ}≔\mathrm{Norm}\left(\mathrm{diff}\left(\mathbf{R}\,p\right)\right)\:$

Obtain the curvature as $\mathrm{\κ}\=\parallel \mathbf{R}\prime \times \mathbf{R}″\parallel \/{\mathrm{\ρ}}^3$ 

$\frac{\mathrm{Norm}\left(\mathrm{CrossProduct}\left(\mathrm{diff}\left(\mathbf{R}\,p\right)\,\mathrm{diff}\left(\mathbf{R}\,p\,p\right)\right)\right)}{{\mathrm{\ρ}}^3}$

$\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

Obtain the curvature as $\mathrm{\κ}\=∥\mathbf{T}\prime \left(s\right)∥$ 

Apply the diff, Norm, and simplify commands.

$\mathrm{\κ}≔\mathrm{simplify}\left(\mathrm{Norm}\left(\frac{\mathrm{diff}\left(\mathbf{T}\,p\right)}{\mathrm{\ρ}}\right)\right) assuming \mathrm{positive}$

$\frac{6\sqrt{9p^4\+p^2\+1}}{{\left(9p^4\+36p^2\+1\right)}^{3\/2}}$

Graph the curvature

$\mathrm{plot}\left(\mathrm{\κ}\,p\=-2..2\,\mathrm{size}\=\left[200\,200\right]\right)$