fig01.tex

\documentclass[11pt,a4paper]{article}
\usepackage[T1]{fontenc}
\usepackage[ansinew]{inputenc}%
\usepackage[frenchb]{babel}
\usepackage{pst-circ,pst-rlcl}%
%\usepackage[a4paper]{geometry}
\usepackage{amsmath,amssymb}
\usepackage[baw,pstricks]{fvrb-ex}
\fvset{gobble=0,numbers=none,frame=single,labelposition=topline}
\headheight=13.6pt
\usepackage{fancyhdr}
\renewcommand{\headrulewidth}{0pt}
\renewcommand{\footrulewidth}{1pt}
\fancyhf{}
\fancyhead[C]{\thepage}
\fancyfoot[L]{\texttt{PSTricks}}
\fancyfoot[C]{février 2 003}
\fancyfoot[R]{Oscillations libres}
%re-définition d'enumerate
\renewcommand{\labelenumi}{\bf\theenumi)}
\renewcommand{\labelenumii}{\bf\theenumii)}
\renewcommand{\labelenumiii}{\theenumiii)}
\makeatletter
\def\greek#1{\expandafter\@greek\csname c@#1\endcsname}
\def\@greek#1{\ifcase#1\or$\ALPHA$\or$\BETA$\or$\GAMMA$\or$\DELTA$\fi}%
\renewcommand{\theenumiii}{\greek{enumiii}}
% fin enumerate
\makeatother
\pagestyle{empty}
\newpsstyle{MonStyleY11}{plotpoints=1000,linecolor=red}
\newpsstyle{MonStyleY12}{plotpoints=1000,linecolor=blue}
\newpsstyle{MonStyleY13}{plotpoints=1000,linecolor=green}
\newpsstyle{MonStyleY14}{plotpoints=1000,linecolor=yellow}
\newpsstyle{couleurVide}{fillstyle=none,framearc=0.05,linestyle=none}
\begin{document}
\begin{pspicture}(-4,-0.5)(5,5)
\pnode(0,0){M}
\ground(M)
\uput[135](M){M}
\pnode(-3,0){N}
\pnode(-3,4.5){P}
\pnode(3,0){B}
\node(B)
\uput[-90](B){B}
\pnode(3,4.5){B1}
\pnode(-0.5,4.5){K1}
\pnode(0,3.5){K}
\uput[90](K1){1}
\pnode(0.5,4.5){K2}
\uput[90](K2){2}
\pnode(0,3){A}
\node(A)
\uput[180](A){A}
\pnode(1.5,3){Y1}
\pnode(4.5,0){Y2}
\Ucc[tension,dipoleconvention=generator,labeloffset=1.2](N)(P){E}
\wire(P)(K1)
\wire(N)(M)
\wire(K2)(B1)
\resistor[intensitylabel=$i$,intensitylabeloffset=0.3,intensitywidth=0.5mm,%
tensionlabel=$u_R$,tensionoffset=-0.8,tensionlabeloffset=-1.1,dipoleconvention=generator](M)(B){$r'$}%
\capacitor[tensionlabel=$u_C$,tensionoffset=-0.8,tensionlabeloffset=-1.1,intensitylabel=$i$,intensitylabeloffset=0.3](K)(M){C}
\coil[intensitylabel=$i$,dipolestyle=curved,intensitylabeloffset=0.3,labeloffset=-1](B)(B1){$(L,r)$}
\Tswitch(K1)(K2)(K){K}
\pscurve[linecolor=red]{->}(A)(0.33,3.15)(0.66,2.85)(Y1)
\pscurve[linecolor=red]{->}(B)(3.25,0.25)(4,-0.2)(Y2)
\uput[0](Y1){$Y_1$}
\uput[0](Y2){$Y_2$}
\end{pspicture}
\end{document}