\documentclass[11pt]{article}
\usepackage{amsfonts,amssymb,fancyheadings,graphics,amsmath}
\usepackage{fig4tex}

\begin{document}
\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

\figdrawbegin{}

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

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

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

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

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

%Premier bloc.
\figdrawline[61,62]
\figdrawarccircP 63 ; \ray [65,62]
\figdrawarccircP 66 ; \ray [68,65]
\figdrawarccircP 69 ; \ray [71,68]
\figdrawline[71,72]
\figdrawline[73,74]
\figdrawline[76,77]
%\figdrawline[75,78]
\figdrawline[75,183]
\figdrawline[186,138]
\figdrawcirc 78(\rayii)
\figdrawarrow[192,189]
\figdrawarrowhead[71,79]

%Deuxième bloc.
\figdrawline[81,82]
\figdrawarccircP 83 ; \ray [85,82]
\figdrawarccircP 86 ; \ray [88,85]
\figdrawarccircP 89 ; \ray [91,88]
\figdrawline[91,92]
\figdrawline[93,94]
\figdrawline[96,97]
%\figdrawline[95,98]
\figdrawline[95,184]
\figdrawline[187,158]
\figdrawcirc 98(\rayii)
\figdrawarrow[193,190]
\figdrawarrowhead[91,99]

%Troisième bloc.
\figdrawline[101,102]
\figdrawarccircP 103 ; \ray [105,102]
\figdrawarccircP 106 ; \ray [108,105]
\figdrawarccircP 109 ; \ray [111,108]
\figdrawline[111,112]
\figdrawline[113,114]
\figdrawline[116,117]
%\figdrawline[115,118]
\figdrawline[115,185]
\figdrawline[188,178]
\figdrawcirc 118(\rayii)
\figdrawarrow[194,191]
\figdrawarrowhead[111,119]

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

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

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

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

\figdrawend

% 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)
%
\figset write(mark={$\bullet$})
\figwritew 1:$A$(\disti)
\figwritee 60:$B$(\disti)
\figwritew 121:$C$(\disti)
\figwritee 180:$D$(\disti)
}
\box\figBoxA
\end{document}