\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i2) |
define(
r(
t),[
t
^
3
+
3
*
t,
t
^
2
+
1,
3
*
t
+
4])
$
define( T( t), diff( r( t), t) / sqrt( diff( r( t), t). diff( r( t), t))) ; |
Ahora solo nos resta sustituir en \(t=1\):
(%i3) | T( 1) ; |
Created with wxMaxima.
El vector tangente unitario de una función vectorial \(\textbf{r}(t)\) es el vector \[\textbf{T}(t)=\frac{\textbf{r}'(t)}{||\textbf{r}'(t)||}\]
Por tanto,