% Copyright

% Auteur : Hervé Darce

% Ce fichier source et l'image associée sont sous licence Creative Commons Attribution - Partage dans les Mêmes Conditions 4.0 International (https://creativecommons.org/licenses/by-sa/4.0)

% Transformer un fichier tex en svg :

% latex ${file}.tex && dvips ${file}.dvi && ps2eps ${file}.ps && eps2svg ${file}.eps

 \documentclass[a4paper]{slides}
 \usepackage[french]{babel}
 \usepackage[utf8]{inputenc}
 \usepackage[T1]{fontenc}
 \usepackage{pstricks}
 \usepackage{pst-eucl}
 \usepackage{amsmath}
 \usepackage{ccicons}
 \usepackage{pst-optic}
 
 \definecolor{BleuVerre}{cmyk}{0.2,0,0,0}
 \begin{document}
 \setlength{\unitlength}{1cm}
 \small
 \psset{unit=1cm}
 \begin{pspicture}(-6,-8)(9,5)

% initialisation

 \psset{arrowscale=3}

% points

 \pstGeonode[PointSymbol=none,PointName=none](9,0){M'_1}
 \pstGeonode[PointSymbol=none,PointName=none](-5,0){M'_2}
 \pstGeonode[PointSymbol=none,PointName=none](9,-7){M'_4}

 \pstGeonode[PointSymbol=none,PointName=none](-5,-7){M'_3}
 \pstGeonode[PointSymbol=none,PointName=none,PosAngle=180](-3,4){A}
 \pstGeonode[PosAngle=180](2,0){I}

% Surface

 \pstRotation[PointSymbol=none,PointName=none,RotAngle=0]{I}{M'_1}[M_1]
 \pstRotation[PointSymbol=none,PointName=none,RotAngle=0]{I}{M'_2}[M_2]
 \pstRotation[PointSymbol=none,PointName=none,RotAngle=0]{I}{M'_3}[M_3]
 \pstRotation[PointSymbol=none,PointName=none,RotAngle=0]{I}{M'_4}[M_4]
 \psset{HomCoef=0.15} 
 \pstHomO[PointSymbol=none,PointName=none]{M_1}{M_2}[T] %texte milieu

 \pspolygon[fillstyle=solid,fillcolor=BleuVerre](M_1)(M_2)(M_3)(M_4)

 \pstInterLC[PointSymbol=none,PointName=none]{A}{I}{I}{A}{RA1}{RA2}
 \pstProjection[PointSymbol=none,PointName=none]{M_1}{M_2}{RA2}[M_A]
 \psset{HomCoef=0.6} % n1/n2=HomCoef
 \pstHomO[PointSymbol=none,PointName=none,PosAngle=30]{I}{M_A}[M_A']
 \pstTranslation[PointSymbol=none,PointName=none,DistCoef=1]{M_A}{RA2}{M_A'}[RA3']
 \pstInterLC[PointSymbol=none,PointName=none]{RA3'}{M_A'}{I}{A}{A'}{RA1'}

 \pstLineAB[]{M_1}{M_2}
 \pstTranslation[PointSymbol=none,PosAngle=90,DistCoef=1]{A'}{M_A'}{I}[N]
 \pstTranslation[PointSymbol=none,PointName=none,PosAngle=0,DistCoef=1]{M_A'}{A'}{I}[N']

% construction A

 \pstLineAB[linecolor=red]{A}{I}
 \pstLineAB[linecolor=red,nodesep=3,]{-<}{I}{A}
 \pstLineAB[linestyle=dashed]{I}{N}
 \pstLineAB[linestyle=dashed]{I}{N'}

 \pstLineAB[linecolor=red]{A'}{I}
 \pstLineAB[linecolor=red,nodesep=3,]{-<}{A'}{I}

% Légende

 \uput{0.5}[90](T){Milieu 1 ($n_1$)}
 \uput{0.5}[-90](T){Milieu 2 ($n_2$)}
 \uput{0.5}[90](A){Rayon incident}
 \uput{0.4}[40](A'){Rayon réfracté}
 \uput{0.5}[-20](N){Normale}

%angle

\pstMarkAngle[Mark=MarkHash,LabelSep=3,MarkAngleRadius=2]{N}{I}{A}{$i_1$}
 \pstMarkAngle[Mark=MarkHashh,LabelSep=3,MarkAngleRadius=2]{N'}{I}{A'}{$i_2$}
 \end{pspicture}

 \ccbysa {\tiny Hervé Darce (commons.wikimedia.org)}

 \end{document}

Я, владелец авторских прав на это произведение, добровольно публикую его на условиях следующей лицензии:

Этот файл доступен по лицензии Creative Commons Attribution-Share Alike 4.0 International

Вы можете свободно:

• делиться произведением – копировать, распространять и передавать данное произведение
• создавать производные – переделывать данное произведение

При соблюдении следующих условий:

• атрибуция – Вы должны указать авторство, предоставить ссылку на лицензию и указать, внёс ли автор какие-либо изменения. Это можно сделать любым разумным способом, но не создавая впечатление, что лицензиат поддерживает вас или использование вами данного произведения.
• распространение на тех же условиях – Если вы изменяете, преобразуете или создаёте иное произведение на основе данного, то обязаны использовать лицензию исходного произведения или лицензию, совместимую с исходной.

https://creativecommons.org/licenses/by-sa/4.0CC BY-SA 4.0 Creative Commons Attribution-Share Alike 4.0 truetrue