% !TEX lualatex

\documentclass[margin=5mm]{standalone}
\usepackage[nonpgfplots]{tkz-grapheur}

\begin{document}

\begin{GraphiqueTikz}[x=4.25cm,y=2.75cm,Xmin=-0.25,Xmax=3.25,Xgrille=0.2,Xgrilles=0.2,Ymin=-0.85,Ymax=3.5,Ygrille=1,Ygrilles=1]
  %préparation de la fenêtre
  \TracerAxesGrilles[Derriere,Police=\small,Origine]{0.2}{1}
  \draw ([yshift={-\pflthickgrad}]{1},{0}) node[pflnoeud,below left,font={\useKV[GraphiqueTikzAxes]{Police}}] {1} ;
  %déf des fonctions avec nom courbe + nom fonction + expression (tracés à la fin !)
  \DefinirCourbe[Nom=cf,Debut=0.0005,Fin=3]< f >{x*(2*(ln(x))^2-3*ln(x)+2)}
  \DefinirCourbe[Nom=tb]< tb >{2*x-exp(1)}
  \DefinirCourbe[Nom=ta]< ta >{-x+3}
  %intégrale sous une courbe, avec intersection
  \TracerIntegrale[Couleurs=darkgray,Bornes=abs,Style=hachures,Type=fct/fct]{f(x)}[tb(x)]{1}{exp(1)}
  %tracé des courbes et des labels
  \TracerAsymptote[StyleTrace=densely dashed,Couleur=darkgray]{1}
  \TracerAsymptote[StyleTrace=densely dashed,Couleur=darkgray]{exp(1)}
  \TracerCourbe[Couleur=violet]{ta(x)}
  \TracerCourbe[Couleur=blue]{tb(x)}
  \TracerCourbe[Couleur=red,Debut=0.0005,Fin=3]{f(x)}
  \MarquerPts{(1,2)/A/above right,({exp(1)},{exp(1)})/B/above left,(3,0)/C/below left}
  \PlacerTexte[Couleur=red]{(0.2,2.6)}{$C_{f}$}
  \PlacerTexte[Couleur=violet]{(-0.1,3.25)}{$T_{A}$}
  \PlacerTexte[Couleur=blue]{(3.1,3.25)}{$T_{B}$}
  %surimpression des axes
  \TracerAxesGrilles[Devant,Origine]{0.2}{1}
\end{GraphiqueTikz}

\end{document}