Ejer_vectT02

(%i1)

define( r( t),[ 2 * cos( t), sin( t), t]) $

El punto $[0,1,\frac{\pi}{2}]$ se corresponde con $t=\frac{\pi}{2}$

(%i2)

r( %pi / 2) ;

\begin{matrix} (%o2) & [0, 1, \frac{π}{2}] \end{matrix}

(%i5)

define( dr( t), diff( r( t), t)) ;
print( "La recta tangente en ", r( %pi / 2), "es") $
[ x, y, z] = r( %pi / 2) + t * dr( %pi / 2) ;

\begin{matrix} (%o3) & dr (t) := [- 2 \sin (t), \cos (t), 1] \\ La recta tangente en [0, 1, \frac{π}{2}] es \end{matrix}

\begin{matrix} (%o5) & [x, y, z] = [- 2 t, 1, t + \frac{π}{2}] \end{matrix}

Created with wxMaxima.