% Jeudi 27 Mai 2004 à 23:18:16

\opset{decimalsepsymbol={,}}
\newcommand\NbOr[1]{%
  \opcopy{1}{phi}%
  \count255=#1\relax
  \loop
  \ifnum\count255>1
    \opexpr{1+1/phi}{phi}%
    \advance\count255 by-1
  \repeat
}
Nombre d'or calculé par fraction continue:
\begin{itemize}
\item \NbOr{2}Deux itérations $\to$ \opprint{phi}
\item \NbOr{5}Cinq itérations $\to$ \opprint{phi}
\item \NbOr{10}Dix itérations $\to$ \opprint{phi}
\item \NbOr{15}Quinze itérations $\to$ \opprint{phi}
\item \NbOr{20}Vingt itérations $\to$ \opprint{phi}
\end{itemize}