\documentclass[11pt]{article}
\usepackage{amsfonts,amssymb,fancyheadings,graphics,amsmath}
\begin{document}
\input fig4tex.tex
\newcount\Figno
\Figno=0
% 1. Definition of characteristic points

\figinit{5pt}

%Paramètres.
%~~~~~~~~~~~
\def\ray{1}
\def\lon{5}
\def\Lcap{2}
\def\lcap{.8}
\def\rayii{1.5}

%Anneau du haut.
%~~~~~~~~~~~~~~~

%Premier bloc.
%Bobine.
\figpt 1:(0,0)

\figpt 2:(0,0)
\figpt 3:(\ray,0)
\figpt 4:(\ray,\ray)
\figpt 5:(1.75,-.6614378)
\figpthom 5:= 5 /1,\ray/

\figvectC 0 (1,0)
\figptstra 2=2,3,4,5/\lon,0/

\figvectC 0 (\ray,0)
\figptstra 6=3,4,5 /1.5,0/
\figptstra 9=6,7,8 /1.5,0/
\figpttra 11:=9/1,0/

\figvectC 0 (\lon,0)
\figpttra 12:=11/1,0/

%Condensateur.
\figvectC 0 (0,1)
\figpttra 13:=12/\Lcap,0/
\figpttra 14:=12/-\Lcap,0/

\figvectC 0 (1,0)
\figptstra 15=12,13,14 /\lcap,0/
\figpttra 18:=15/\lon,0/
\figptbary 19:[11,12;1,2]

%Deuxième bloc.
\figvectP 0 [1,18]
\figptstra 21=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19/1,0/
\figvectC 0 (1,0)
\figpttra 40:=38/\lon,0/
%Troisième bloc.
\figvectP 0 [1,18]
\figptstra 41=21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38,39/1.5,0/
\figvectC 0 (1,0)
\figpttra 60:=58/\lon,0/
\figptbary 181:[40,41;1,1]

%Branches.
%~~~~~~~~~

%Premier bloc.
\figptsrot 61=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,19/1,-90/
\figvectP 0 [1,18]
\figptstra 61=61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79/1,0/
\figvectC 0 (0,1)
\figpttra 183:=78/\rayii,0/
\figpttra 186:=78/-\rayii,0/
\figvectC 0 (2,0)
\figpttra 189:=183/\rayii,0/
\figpttra 192:=186/\rayii,0/

%Deuxième bloc.
\figvectP 0 [1,18]
\figptstra 81=61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79/1,0/
\figvectC 0 (0,1)
\figpttra 184:=98/\rayii,0/
\figpttra 187:=98/-\rayii,0/
\figvectC 0 (2,0)
\figpttra 190:=184/\rayii,0/
\figpttra 193:=187/\rayii,0/

%Troisième bloc.
\figvectP 0 [1,18]
\figptstra 101=61,62,63,64,65,66,67,68,69,70,71,72,73,74,75,76,77,78,79/2.5,0/
\figvectC 0 (0,1)
\figpttra 185:=118/\rayii,0/
\figpttra 188:=118/-\rayii,0/
\figvectC 0 (2,0)
\figpttra 191:=185/\rayii,0/
\figpttra 194:=188/\rayii,0/

%Anneau du bas.
%~~~~~~~~~~~~~~

\figvectP 0 [61,78]
\figptstra 121=1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18/1.2,0/
\figptbary 139:[131,132;3,1]
\figptstra 141=21,22,23,24,25,26,27,28,29,30,31,32,33,34,35,36,37,38/1.2,0/
\figvectC 0 (1,0)
\figpttra 160:=158/\lon,0/
\figvectP 0 [61,78]
\figptstra 161=41,42,43,44,45,46,47,48,49,50,51,52,53,54,55,56,57,58/1.2,0/
\figvectP 0 [1,18]
\figpttra 159:=139/1,0/
\figpttra 179:=139/2.5,0/
\figvectC 0 (1,0)
\figpttra 180:=178/\lon,0/
\figptbary 182:[160,161;1,1]

% 2. Creation of the graphical file

\psbeginfig{}

%Anneau du haut.
%~~~~~~~~~~~~~~~

%Premier bloc.
\psline[1,2]
\psarccircP 3 ; \ray [5,2]
\psarccircP 6 ; \ray [8,5]
\psarccircP 9 ; \ray [11,8]
\psline[11,12]
\psline[13,14]
\psline[16,17]
\psline[15,18]
\psset arrowhead (fillmode=yes)
\psarrowhead[11,19]

%Deuxième bloc.
\psline[21,22]
\psarccircP 23 ; \ray [25,22]
\psarccircP 26 ; \ray [28,25]
\psarccircP 29 ; \ray [31,28]
\psline[31,32]
\psline[33,34]
\psline[36,37]
\psline[35,38]
\psline[38,40]
\psarrowhead[31,39]

%Troisième bloc.
\psline[41,42]
\psarccircP 43 ; \ray [45,42]
\psarccircP 46 ; \ray [48,45]
\psarccircP 49 ; \ray [51,48]
\psline[51,52]
\psline[53,54]
\psline[56,57]
\psline[55,58]
\psline[58,60]
\psarrowhead[51,59]

%Branche.
%~~~~~~~~

%Premier bloc.
\psline[61,62]
\psarccircP 63 ; \ray [65,62]
\psarccircP 66 ; \ray [68,65]
\psarccircP 69 ; \ray [71,68]
\psline[71,72]
\psline[73,74]
\psline[76,77]
%\psline[75,78]
\psline[75,183]
\psline[186,138]
\pscirc 78(\rayii)
\psarrow[192,189]
\psarrowhead[71,79]

%Deuxième bloc.
\psline[81,82]
\psarccircP 83 ; \ray [85,82]
\psarccircP 86 ; \ray [88,85]
\psarccircP 89 ; \ray [91,88]
\psline[91,92]
\psline[93,94]
\psline[96,97]
%\psline[95,98]
\psline[95,184]
\psline[187,158]
\pscirc 98(\rayii)
\psarrow[193,190]
\psarrowhead[91,99]

%Troisième bloc.
\psline[101,102]
\psarccircP 103 ; \ray [105,102]
\psarccircP 106 ; \ray [108,105]
\psarccircP 109 ; \ray [111,108]
\psline[111,112]
\psline[113,114]
\psline[116,117]
%\psline[115,118]
\psline[115,185]
\psline[188,178]
\pscirc 118(\rayii)
\psarrow[194,191]
\psarrowhead[111,119]

%Anneau du bas.
%~~~~~~~~~~~~~~~

%Premier bloc.
\psline[121,122]
\psarccircP 123 ; \ray [125,122]
\psarccircP 126 ; \ray [128,125]
\psarccircP 129 ; \ray [131,128]
\psline[131,132]
\psline[133,134]
\psline[136,137]
\psline[135,138]
\psarrowhead[132,139]

%Deuxième bloc.
\psline[141,142]
\psarccircP 143 ; \ray [145,142]
\psarccircP 146 ; \ray [148,145]
\psarccircP 149 ; \ray [151,148]
\psline[151,152]
\psline[153,154]
\psline[156,157]
\psline[155,158]
\psline[158,160]
\psarrowhead[152,159]

%Troisième bloc.
\psline[161,162]
\psarccircP 163 ; \ray [165,162]
\psarccircP 166 ; \ray [168,165]
\psarccircP 169 ; \ray [171,168]
\psline[171,172]
\psline[173,174]
\psline[176,177]
\psline[175,178]
\psline[178,180]
\psarrowhead[172,179]

\psendfig

% 3. Writing text on the figure

\def\disti{3pt}
\def\distii{5pt}
\def\distiii{10pt}
\advance\Figno by 1
\edef\Nocircuit{\the\Figno}

\figvisu{\figBoxA}{{\sc Fig. \the\Figno}\ --\ Le circuit \'etudi\'e }{%
%\figshowpts[78,78]
\figwritene 16:$C_1$(\disti)
\figwritene 36:$C_1$(\disti)
\figwritene 56:$C_1$(\disti)
\figwritee 73:$C_2$(\distii)
\figwritee 93:$C_2$(\distii)
\figwritee 113:$C_2$(\distii)
\figwritese 137:$C_1$(\disti)
\figwritese 157:$C_1$(\disti)
\figwritese 177:$C_1$(\disti)
%
\figwriten 6:$La_{1,1}$(\distiii)
\figwriten 26:$La_{2,2}$(\distiii)
\figwriten 46:$La_{N,N}$(\distiii)
\figwrites 126:$La_{1,1}$(\distiii)
\figwrites 146:$La_{2,2}$(\distiii)
\figwrites 166:$La_{N,N}$(\distiii)
\figwritee 66:$Lb_{2,2}$(\distiii)
\figwritee 86:$Lb_{3,3}$(\distiii)
\figwritee 106:$Lb_{1,1}$(\distiii)
%
%\figwrites 19:$I_{1}\quad $(\distii)
%\figwrites 39:$I_{2}\quad $(\distii)
%\figwrites 59:$I_{N}\quad $(\distii)
%\figwritene 79:$\ I_{n-1}-I_n$(\disti)
%\figwritene 99:$\ I_{n}-I_{n+1}$(\disti)
%\figwriten 139:$\quad I_{n-1}$(\distii)
%\figwriten 159:$\quad I_{n}$(\distii)
%\figwriten 179:$\quad I_{n+1}$(\distii)
\figwriten 181:$\cdots$(0.1pt)
\figwriten 182:$\cdots$(0.1pt)
%
\figwrites 183:$\thicksim$(6pt)
\figwrites 184:$\thicksim$(6pt)
\figwrites 185:$\thicksim$(6pt)
%
\figsetmark{$\bullet$}
\figwritew 1:$A$(\disti)
\figwritee 60:$B$(\disti)
\figwritew 121:$C$(\disti)
\figwritee 180:$D$(\disti)
}
\box\figBoxA
\end{document}