\documentclass{book}
\usepackage[french]{babel}
\usepackage{colordvi}
\usepackage{fullpage}
\usepackage{isolatin1}
\usepackage{automata}

\begin{document}
\pagestyle{empty}

\begin{automate}[d]{0}{0}{l'ensemble des mots $1d^*(1d^*)?(1d^*)?$}{1}(10,5)

\etat[i]{50}{50}{}{a}
\etat[a]{50}{50}{}{a}
\etat[a]{100}{50}{}{b}
\etat[a]{150}{50}{}{c}
\etat[a]{200}{50}{}{d}

\boucle[t]{b}{d}
\boucle[t]{c}{d}
\boucle[t]{d}{d}

\trans{a}{b}{1}
\trans{b}{c}{1}
\trans{c}{d}{1}

\end{automate}

\end{document}
