Área de sombreado entre la tangente normal y el eje x

Question

Me preguntaba si podría obtener ayuda para completar el área delimitada entre la tangente a la normal y el eje x (que es el triángulo). He leído bastante material e hilos, pero no logro descubrir cómo hacerlo con la forma en que tengo configurados mis gráficos actualmente.

\documentclass{article}
\usepackage{tikz}
\begin{document}

\begin{center}
\begin{tikzpicture}
    \draw (3,{0.06*exp(3)+1}) circle[radius=2pt] node[right] {$(a,f(a))$};
    \fill (3,{0.06*exp(3)+1}) circle[radius=2pt];
    \draw [<->] (-1,0) -- (7,0) node[right]{$x$};
    \draw [<->] (0,-1) -- (0,5)node[above]{$y$};
    \draw[domain=-1:4] [<->] plot (\x,{0.06*exp(\x)+1}) node[right] {$y = f(x)$};
    \draw[domain=0.5:4] [<->] plot (\x, {0.06*exp(3)*(\x-3)+0.06*exp(3)+1}) node[right] {$\ell_T$};

    \draw[domain=2:6.5] [<->] plot (\x, {-1/(0.06*exp(3))*(\x-3)+0.06*exp(3)+1}) node[right] {$\ell_N$};;
\end{tikzpicture}
\end{center} 

\end{document}

Esto es lo que parece hasta ahora.

Answer 1

Puedes hacer uso de la intersectionsbiblioteca (y también dejar que TikZ calcula la posición de (a,F(a)) por sí mismo):

\documentclass[tikz, border=10pt]{standalone}
\usetikzlibrary{intersections, backgrounds}
 
\begin{document}
\begin{tikzpicture}

    \draw[<->, name path=x-axis] (-1,0) -- (7,0) 
        node[right]{$x$};
    \draw[<->] (0,-1) -- (0,5) 
        node[above]{$y$};
    \draw[domain=-1:4, <->] 
        plot (\x,{0.06*exp(\x)+1}) 
        node[right] {$y = f(x)$};
    \draw[domain=0.5:4, <->, name path=tangent] 
        plot (\x, {0.06*exp(3)*(\x-3)+0.06*exp(3)+1}) 
        node[right] {$\ell_T$};
    \draw[domain=2:6.5, <->, name path=normal] 
        plot (\x, {-1/(0.06*exp(3))*(\x-3)+0.06*exp(3)+1}) 
        node[right] {$\ell_N$};

    \path[name intersections={of=normal and tangent}]
        (intersection-1) coordinate (a);
    \path[name intersections={of=normal and x-axis}]
        (intersection-1) coordinate (b);
    \path[name intersections={of=tangent and x-axis}]
        (intersection-1) coordinate (c);
        
    \filldraw (a) circle[radius=2pt] 
        node[right] {$(a,f(a))$};

    \begin{scope}[on background layer]
        \fill[red!10] (a) -- (b) -- (c) -- cycle;
    \end{scope}
    
\end{tikzpicture}
\end{document}

También podrías hacer uso delfillbetweenbibliotecaque viene con el pgfplotspaquete (tal vez un poco excesivo aquí, pero útil en entornos más complicados donde un límite es un gráfico, por ejemplo):

\documentclass[border=10pt]{standalone}
\usepackage{pgfplots}
\pgfplotsset{compat=1.18}
\usetikzlibrary{fillbetween, backgrounds}
 
\begin{document}
\begin{tikzpicture}

    \draw (3,{0.06*exp(3)+1}) circle[radius=2pt] 
        node[right] {$(a,f(a))$};
    \fill (3,{0.06*exp(3)+1}) circle[radius=2pt];
    \draw[<->, name path=x-axis] (-1,0) -- (7,0) 
        node[right]{$x$};
    \draw[<->] (0,-1) -- (0,5) 
        node[above]{$y$};
    \draw[domain=-1:4, <->] 
        plot (\x,{0.06*exp(\x)+1}) 
        node[right] {$y = f(x)$};
    \draw[domain=0.5:4, <->, name path=tangent] 
        plot (\x, {0.06*exp(3)*(\x-3)+0.06*exp(3)+1}) 
        node[right] {$\ell_T$};
    \draw[domain=2:6.5, <->, name path=normal] 
        plot (\x, {-1/(0.06*exp(3))*(\x-3)+0.06*exp(3)+1}) 
        node[right] {$\ell_N$};

    \path[
        name path=temp,
        intersection segments={
            of=normal and tangent,
            sequence={L2 -- R1}
        }
    ] -- cycle;

    \begin{scope}[on background layer]
        \fill[
            red!10,
            intersection segments={
                of=temp and x-axis,
                sequence={L1 -- R2}
            }
        ] -- cycle;
    \end{scope}
    
\end{tikzpicture}
\end{document}

Ambos dan como resultado el mismo resultado: