% !TEX encoding = UTF-8 Unicode
% experiénce des trous d'young
% © J.Roussel 2017-10-10
%-------------------------------------------
\documentclass[11pt]{article}
\input{styles_ondes}
\begin{document}


\begin{tikzpicture}[scale=1.2,font=\footnotesize]
	\def \incidence{30};
	\def \refraction{20};
	\clip (-.9,1.5)rectangle (5.9,-2);
	\fill[lightgray!30!white](-1,.5)rectangle (6,-.5);
	\draw[ultra thick,verre] (-1,.5)--++(7,0);
	\draw[ultra thick,verre] (-1,-.5)--++(7,0);
	\draw[rayon,->](0,1.5)--++({\incidence-90}:{1/cos(\incidence)})--++({\refraction-90}:{1/cos(\refraction)})--++({\incidence-90}:{1/cos(\incidence)})node[below]{$\psi_1$};
	\draw[rayon,->,shift={({tan(\incidence)+tan(\refraction)},-.5)}](0,0)--++({90-\refraction}:{1/cos(\refraction)})--++({\refraction-90}:{1/cos(\refraction)})--++({\incidence-90}:{1/cos(\incidence)})node[below]{$\psi_2$};
	\draw[rayon,->,shift={({tan(\incidence)+3*tan(\refraction)},-.5)}](0,0)--++({90-\refraction}:{1/cos(\refraction)})--++({\refraction-90}:{1/cos(\refraction)})--++({\incidence-90}:{1/cos(\incidence)})node[below]{$\psi_3$};
	\draw[rayon,->,shift={({tan(\incidence)+5*tan(\refraction)},-.5)}](0,0)--++({90-\refraction}:{1/cos(\refraction)})--++({\refraction-90}:{1/cos(\refraction)})--++({\incidence-90}:{1/cos(\incidence)})node[below]{$\psi_4$};
	\draw[rayon,->,shift={({tan(\incidence)+7*tan(\refraction)},-.5)}](0,0)--++({90-\refraction}:{1/cos(\refraction)})--++({\refraction-90}:{1/cos(\refraction)})--++({\incidence-90}:{1/cos(\incidence)})node[below right]{$\psi_5$\ldots};
	\draw[axis,shift={({tan(\incidence)},.5)}](0,.5)--++(0,-2);
	\draw[shift={({tan(\incidence)},.5)}](90:10pt)arc(90:{90+\incidence}:10pt);
	\draw[shift={({tan(\incidence)},.5)}](-90:12pt)arc(-90:{-90+\refraction}:12pt);
	\draw[shift={({tan(\incidence)},.5)}]({90+\incidence/2}:10pt)node[above]{$\theta_\textrm{i}$};
	\draw[shift={({tan(\incidence)},.5)}]({-90+\refraction/2}:12pt)node[below]{$\theta_\textrm{r}$};	
	% \draw (5,0)node[left]{\footnotesize $n$};
	\draw[|<->|] (0,.5)--++(0,-1)node[midway,left]{$e$};
	\draw[thin, ->,shift={(4.5,0.5)}](0,5pt)--++(0,-10pt)node[below]{$t_1$};
	\draw[thin, ->,shift={(4.5,-0.5)}](0,5pt)--++(0,-10pt)node[below]{$t_2$};
	\draw[thin, ->,shift={(5,-0.5)}](100:10pt)--++(-80:10pt)--++(80:10pt)node[right]{$r$};
	\draw[thin, ->,shift={(5.5,0.5)}](-100:10pt)--++(80:10pt)--++(-80:10pt)node[right]{$r$};
\end{tikzpicture}
\end{document}
