Le wiki de Syracuse

Cette page est en lecture seule. Vous pouvez afficher le texte source, mais pas le modifier. Contactez votre administrateur si vous pensez qu'il s'agit d'une erreur.
===== Placer un texte sur une spirale =====

Pour placer un texte à un endroit précis d'une spirale, c'est relativement simple, comme dans l'exemple ci-dessous. Faire une commande à partir d'une liste de mots c'est une autre paire de manches, mais ça doit être possible : cela demande réflexion... 

{{ pstricks:ml20070927.png }}

<code latex>
\documentclass{article}
\usepackage[latin1]{inputenc}
\usepackage[T1]{fontenc}
\usepackage[charter]{mathdesign}
\usepackage{pst-plot}

\makeatletter

% D.G. addition - Jun.  9, 1998 - Polar plots using the \psplot macro
% Code added according the way suggested by Ulrich Dirr <udirr@das-team.com>

% For polar plots
\newif\ifpolarplot
\def\psset@polarplot#1{\@nameuse{polarplot#1}}
\psset@polarplot{false}

\def\psplot@i#1#2#3{%
  \pst@killglue
  \begingroup
    \use@par
    \@nameuse{beginplot@\psplotstyle}%
% D.G. modification begin - Jun.  9, 1998
    \ifpolarplot
      \addto@pscode{%
        \psplot@init
        /x #1 def
        /x1 #2 def
        /dx x1 x sub \psk@plotpoints div def
        /xy {% Adapted from \parametricplot@i
          #3 dup x cos mul exch x sin mul
          \pst@number\psxunit mul exch
          \pst@number\psyunit mul exch
        } def}%
    \else
% D.G. modification end
      \addto@pscode{%
        \psplot@init
        /x #1 def
        /x1 #2 def
        /dx x1 x sub \psk@plotpoints div def
        /xy {
          x \pst@number\psxunit mul
          #3 \pst@number\psyunit mul
        } def}%
% D.G. modification begin - Jun.  9, 1998
    \fi
% D.G. modification end
    \gdef\psplot@init{}%
    \@pstfalse
    \@nameuse{testqp@\psplotstyle}%
    \if@pst
      \psplot@ii
    \else
      \psplot@iii
    \fi
  \endgroup
  \ignorespaces}

\makeatother

\pagestyle{empty}
\SpecialCoor
\begin{document}
\psset{plotpoints=360}
\begin{center}
\begin{pspicture}(-5,-5)(5,5)
% 0<t<1440 en degrés
% r=k*(t+1)^2 avec k=0.01
% t en degrés -> x en degrés -> angle = x*0.01745 en radians
\newcommand\radius{0.01745 mul 1 add dup mul 0.01 mul }
\psplot[polarplot=true]{0}{1440}{x \radius}
\psline(7;60)
\begingroup
\psset{framesep=0pt}
\rput*(!/x 420 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{SUITES\\ ARITHMÉTIQUES}}
\rput*(!/x 780 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{SUITES\\ GÉOMÉTRIQUES}}
\rput*(!/x 1140 def x cos x \radius mul x sin x \radius mul ){\color{red}\shortstack{VARIATIONS\\ D'UNE SUITE}}
\endgroup
\rput*(7;60){\psframebox{\color{red}{SUITES}}}
\multido{\i=200+360,\I=400+360}{3}{%
\psplot[polarplot=true,arrows=->,arrowsize=0.2]{\i}{\I}{x \radius}}
\end{pspicture}
\end{center}
\end{document}
</code>

 --- //Jean-Michel Sarlat, 2007/09/27 11:21//
Le wiki de Syracuse

Outils d'utilisateurs

Outils du Site

Outils de la Page
