\( \DeclareMathOperator{\abs}{abs} \newcommand{\ensuremath}[1]{\mbox{$#1$}} \)
(%i2) |
define(
r(
t),[
2
*
t
^
2,
t
+
t
^
2,
3
*
t])
;
define( dr( t), diff( r( t), t)) ; |
Como el punto es [2,0,-3], impica \(t=-1\)
(%i3) | r( - 1) ; |
Ahora definimos la recta tangente y calculamos su módulo en \(t=1\)
(%i5) |
define(
rt(
t),
r(
-1)
+
t
*
dr(
-1))
$
sqrt( rt( 1). rt( 1)) ; |
Created with wxMaxima.
Definamos la función vectorial y su derivada: