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,

(%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))) ;
(%o2) T ( t ) := [ 3 t 2 + 3 ( 3 t 2 + 3 ) 2 + 4 t 2 + 9 , 2 t ( 3 t 2 + 3 ) 2 + 4 t 2 + 9 , 3 ( 3 t 2 + 3 ) 2 + 4 t 2 + 9 ]

Ahora solo nos resta sustituir en \(t=1\):

(%i3) T( 1) ;
(%o3) [ 6 7 , 2 7 , 3 7 ]

Created with wxMaxima.