Fichier 1214.jps — Modifié le 22 Mars 2007 à 17 h 58

1214.pdf
Source
%% auteur : 

% auteur : Mora

-3 16 setxrange
-5 8 setyrange
25 setxunit
25 setyunit


/A {-3 0} def
/B{1 3} def
/C{14 3} def
/D{10 0} def
/M{6 6} def
/N'{6 4} def
/M'{6 1.5} def
/N{6 10} def
/P{6 0} def
/Q{6 -4} def
/T{6 2} def
/K{9 1.5} def
K M' N' angledroit
/L{11 2} def
/U{9 7} def
pointilles
[K U] ligne
continu
[A B C D] polygone*
[N M'] ligne
[P Q] ligne
pointilles
[M' P] ligne
/dotscale {2 dup} def
continu

[K U] {times} plot
U K M' angledroit
2 setlinewidth
[N' M] (->) ligne
<tex>
$P$
</tex>
-1 0 [1.5 dup] ultexlabel

<tex>
$\vec{n}$
</tex>
M N' milieu  [2 dup] urtexlabel



<tex>
$A$
</tex>
U [1.3 dup] cltexlabel
<tex>
$H$
</tex>
K [1.3 dup] dctexlabel