Source de rapporteur_charpentier.tex

$Fichier TeX$
\documentclass{article}
\usepackage{pst-node}
\usepackage{multido}
\usepackage[latin1]{inputenc}%
\usepackage[a4paper]{geometry}
\author{Jean-Côme Charpentier}
\title{Rapporteur logarithmique}
\begin{document}
\maketitle
% Jean-Côme Charpentier

C'est parti ! J'ai un rapporteur logarithmique à vendre. Bon, mis à
part le fait que cela pourrait servir de règle à calcul circulaire, je
n'en vois pas trop l'intérêt : c'est juste pour le fun :-)


\begin{pspicture}(-5,-5)(5,5)
   \SpecialCoor
   \def\fct{ log 360 10 log div mul }
   \psset{linewidth=0.4pt}
   \pscircle(0,0){5}
   \pnode(0,0){Or}
   \psset{linewidth=0.2pt}
   \pscircle(0,0){4.3}
   \multido{\n=1+0.1}{90}{
     \pnode(!\n\space \fct cos 4.2 mul \n\space \fct sin 4.2 mul){B0}
     \pnode(!\n\space \fct cos 4.4 mul \n\space \fct sin 4.4 mul){E0}
     \ncline{B0}{E0}
   }
   \psset{linewidth=0.3pt}
   \multido{\n=1+0.5}{19}{
     \pnode(!\n\space \fct cos 4.1 mul \n\space \fct sin 4.1 mul){B0}
     \pnode(!\n\space \fct cos 4.5 mul \n\space \fct sin 4.5 mul){E0}
     \ncline{B0}{E0}
   }
   \psset{linewidth=0.4pt,npos=-0.3}
   \multido{\n=1+1}{9}{
     \pnode(!\n\space \fct cos 4.0 mul \n\space \fct sin 4.0 mul){B0}
     \pnode(!\n\space \fct cos 4.6 mul \n\space \fct sin 4.6 mul){E0}
     \ncline{B0}{E0}\ncput{\n}
     \ncline{E0}{B0}\ncput{\n}
   }
\end{pspicture}
\end{document}
— Syracuse — Dernière modification : 1 avril 2004 (0.08s - 3614309 - 8 octobre 2008)