%% auteur : -3.5 7 setxrange -3 5 setyrange 40 setxunit 40 setyunit /quadrillagewidth[.7 .4 .1] def [1 1 .5 .5 .5 .5]{.7 setgray} Quadrillage /z{0 5} def /x{-3 -3} def /y{7 0} def /a{1 0} def /b{0 1} def /c{-0.5 -0.5} def /A{0 0} def /B{-1 -1} def /C{2 -1} def /D{3 0} def /E{0 4} def /F{-1 3} def /G{2 3} def /H{3 4} def %quadrillage .7 setlinewidth [O x](->) ligne [O y](->) ligne [O z](->) ligne 1.3 setlinewidth [E F G H] polygone [A B C D] polygone [F B C G] polygone [E H D A] polygone [O a](->) ligne [O b](->) ligne [O c](->) ligne $\vec \imath $ -.4 0.2 [1.5 dup] dctexlabel $\vec \jmath $ 0.6 -.5 [1.5 dup] ultexlabel $\vec k $ -.2 0.8 [1.5 dup] dctexlabel setTimes (A) O dtext (B) B ultext (C) C drtext (D) D urtext (E) E ultext (F) F ultext (B) G ultext (H) H urtext setTimesItalic (x) -2.6 -3 [1.5 dup] text (y) 6.5 -0.4 [1.5 dup] text (z) -0.4 4.5 [1.5 dup] text