Para resolver el problema necesitamos la derivada implícita:

(%i5) f( x, y) : = x * y - y ^ 2 - 2 * y ^ 3 $
define( fx( x, y), diff( f( x, y), x)) ;
define( fy( x, y), diff( f( x, y), y)) ;
define( dy( x, y), - fx( x, y) / fy( x, y)) ; /* derivada implícita */
rat(( y + 1) = dy( 1, - 1) *( x - 1), x, y) ; /* recta tangente */
(%o2) fx ⁡ ( x , y ) := y (%o3) fy ⁡ ( x , y ) := − 6 ⁢ y 2 − 2 ⁢ y + x (%o4) dy ⁡ ( x , y ) := − y − 6 ⁢ y 2 − 2 ⁢ y + x (%o5)/R/ y + 1 = − x − 1 3

Created with wxMaxima.