Électrolyse d'une solution d'acide sulfurique : illustrations

\documentclass{article}
\usepackage[a4paper]{geometry}
\usepackage{pstricks,pst-plot}
\input random
\definecolor{Bluea}{cmyk}{.2,0,0,0}
\makeatletter
\newdimen{\BulleX}
\newdimen{\BulleY}
\newdimen{\hauteur}
\hauteur=2pt
\def\pstbulles#1{{%
  \multido{\iBulle=1+1}{#1}{%
    \setrandim{\BulleX}{-0.15pt}{0.15pt}
    \setrandim{\BulleY}{0pt}{\hauteur}
    \pst@dimh=\BulleY
    \ifdim\BulleY>1.25pt \pst@dimh=1pt \fi
    \psdot[dotscale=\pointless\pst@dimh,dotstyle=o](! \pointless\BulleX\space
  \pointless\BulleY\space 1 mul)}}}
\makeatother
\begin{document}
\begin{center}
\begin{pspicture}(-4,0)(4,10)
\psclip{\pspolygon[linestyle=none](-2,7)(-1.5,5)(1.5,5)(2,7)}
    \psframe[fillstyle=solid,fillcolor=Bluea](-3,4)(3,6.5)
    \endpsclip%
\psline[linewidth=2\pslinewidth](-2,7)(-1.5,5)(1.5,5)(2,7)
\psline[linewidth=2\pslinewidth](-0.75,5)(-1,4)
\psline[linewidth=2\pslinewidth](0.75,5)(1,4)
\psframe[linewidth=2\pslinewidth](-2,3.5)(2,4)
\pscustom[linewidth=2\pslinewidth]{%
     \psline(-0.8,5.25)(-0.8,9.5)
     \psarcn(-0.5,9.5){0.3}{180}{0}
     \psline(-0.2,9.5)(-0.2,5.25)
     \fill[fillstyle=solid,fillcolor=Bluea]}
\pscustom[linewidth=2\pslinewidth]{%
     \psline(0.2,5.25)(0.2,9.5)
     \psarcn(0.5,9.5){0.3}{180}{0}
\psline(0.8,9.5)(0.8,5.25)\fill[fillstyle=solid,fillcolor=Bluea]}
\psline[linewidth=4\pslinewidth,linearc=0.25](-1.5,4.6)(-1.5,4.8)(-3,4.8)(-3,2)
\psline[linewidth=4\pslinewidth,linearc=0.25](1.5,4.6)(1.5,4.8)(3,4.8)(3,2)
\psline[linewidth=3\pslinewidth,linecolor=red,linearc=0.25](-1.5,4.6)(-1.5,4.8)(-3,4.8)(-3,2)
\psframe*(-0.55,5)(-0.45,6)\psframe*(0.55,5)(0.45,6)
\psframe[fillstyle=solid,fillcolor=red](-1.8,4)(-1.2,4.2)
\psframe*(1.8,4)(1.2,4.2)
\psframe[fillstyle=solid,fillcolor=red](-1.6,4.2)(-1.4,4.6)
\psframe*(1.6,4.2)(1.4,4.6)
\psline[linestyle=dashed,linewidth=2\pslinewidth,linearc=0.25](-0.5,5)(-0.5,3.7)(-1.5,3.7)(-1.5,4)
\psline[linestyle=dashed,linewidth=2\pslinewidth,linearc=0.25](0.5,5)(0.5,3.7)(1.5,3.7)(1.5,4)
\psdots[dotsize=5\pslinewidth](-3,2)(3,2)
\psline(-3,2)(3,2)
\pscircle[fillstyle=solid](0,2){0.45}\rput(0,2){V}
\psline[linewidth=2\pslinewidth](-0.1,0.5)(-0.1,1.5)
\psline[linewidth=3\pslinewidth](0.1,0.75)(0.1,1.25)
\psdot(-1,1)
\psline(-2,1)(-3,1)(-3,2)
\psline(-1,1)(-0.1,1)
\psline(0.1,1)(3,1)(3,2)
\rput(-2,1){\psline[linewidth=2\pslinewidth](1;30)\pscircle[fillstyle=solid](0,0){0.1}}
\end{pspicture}

\begin{pspicture}(-4,0)(4,10)
\psclip{\pspolygon[linestyle=none](-2,7)(-1.5,5)(1.5,5)(2,7)}
    \psframe[fillstyle=solid,fillcolor=Bluea](-3,4)(3,6.5)
    \endpsclip%
\psline[linewidth=2\pslinewidth](-2,7)(-1.5,5)(1.5,5)(2,7)
\psline[linewidth=2\pslinewidth](-0.75,5)(-1,4)
\psline[linewidth=2\pslinewidth](0.75,5)(1,4)
\psframe[linewidth=2\pslinewidth](-2,3.5)(2,4)
% les deux tubes
\psclip{\pscustom[linestyle=none]{%
     \psline(-0.8,5.25)(-0.8,9.7)
     \psarcn(-0.5,9.7){0.3}{180}{0}
     \psline(-0.2,9.7)(-0.2,5.25)}}
%\psframe[fillstyle=solid,fillcolor=Bluea](-1,5)(0,8.5)
\pscustom[fillstyle=solid,fillcolor=Bluea,linewidth=0.01]{%
    \psline(-1,8.5)(-1,5)(0,5)(0,8.5)
    \psplot[algebraic]{0}{-1}{0.025*sin(6.28*x/0.25)+8.5}}%
\endpsclip%
\pscustom[linewidth=2\pslinewidth]{
     \psline(-0.8,5.25)(-0.8,9.7)
     \psarcn(-0.5,9.7){0.3}{180}{0}
     \psline(-0.2,9.7)(-0.2,5.25)}%
\psclip{\pscustom[linestyle=none]{%
     \psline(0.8,5.25)(0.8,9.7)
     \psarcn(0.5,9.7){0.3}{180}{0}
     \psline(0.2,9.7)(0.2,5.25)}}
\pscustom[fillstyle=solid,fillcolor=Bluea,linewidth=0.01]{%
    \psline(0,7)(0,5)(1.,5)(1,7)
    \psplot[algebraic]{1}{0}{0.025*sin(6.28*x/0.25)+7}
}%
\endpsclip%
\pscustom[linewidth=2\pslinewidth]{%
     \psline(0.2,5.25)(0.2,9.7)
     \psarcn(0.5,9.7){0.3}{180}{0}
     \psline(0.8,9.7)(0.8,5.25)}
% les fils
\psline[linewidth=4\pslinewidth,linearc=0.25](-1.5,4.6)(-1.5,4.8)(-3,4.8)(-3,2)
\psline[linewidth=4\pslinewidth,linearc=0.25](1.5,4.6)(1.5,4.8)(3,4.8)(3,2)
\psline[linewidth=3\pslinewidth,linecolor=red,linearc=0.25](-1.5,4.6)(-1.5,4.8)(-3,4.8)(-3,2)
\psframe*(-0.55,5)(-0.45,6)\psframe*(0.55,5)(0.45,6)
\psframe[fillstyle=solid,fillcolor=red](-1.8,4)(-1.2,4.2)
\psframe*(1.8,4)(1.2,4.2)
\psframe[fillstyle=solid,fillcolor=red](-1.6,4.2)(-1.4,4.6)
\psframe*(1.6,4.2)(1.4,4.6)
\psline[linestyle=dashed,linewidth=2\pslinewidth,linearc=0.25](-0.5,5)(-0.5,3.7)(-1.5,3.7)(-1.5,4)
\psline[linestyle=dashed,linewidth=2\pslinewidth,linearc=0.25](0.5,5)(0.5,3.7)(1.5,3.7)(1.5,4)
\psdots[dotsize=5\pslinewidth](-3,2)(3,2)
\psline(-3,2)(3,2)
\pscircle[fillstyle=solid](0,2){0.45}\rput(0,2){V}
\psline[linewidth=2\pslinewidth](-0.1,0.5)(-0.1,1.5)
\psline[linewidth=3\pslinewidth](0.1,0.75)(0.1,1.25)
\psdot(-1,1)
\psline(-2,1)(-3,1)(-3,2)
\psline(-1,1)(-0.1,1)
\psline(0.1,1)(3,1)(3,2)
\rput(-2,1){\psline[linewidth=2\pslinewidth](1;0)\pscircle[fillstyle=solid](0,0){0.1}}
\randomi=12578452
\rput(.5,5){\pstbulles{50}}
\hauteur=3.65pt
\rput(-.5,5){\pstbulles{25}}
\hauteur=1.5pt
\rput(-.5,5){\pstbulles{10}}
\end{pspicture}
\end{center}
\end{document}