%% auteur : Abidi 50 setxunit -4 4 setxrange -2.5 1 setyrange /O {0 0} def /i {1 0} def /j {0 1} def vert \LARGE $0$ O dltexlabel O i vect \LARGE $1$ i drtexlabel O j vect \LARGE $i$ j dltexlabel /X {settvar t sin 3 exp} def /Y {settvar t cos t cos 4 exp neg add} def /X2 {settvar t cos 2.5 add} def /Y2 {settvar t sin 1 neg add} def 2 setlinewidth bleu 0 360 settrange {X} {Y} courbeparam -180 0 settrange {X2} {Y2} courbeparam [-3.5 0 -1.5 0] ligne [-2.5 0 -2.5 -2] ligne [-3.5 -2 -1.5 -2] ligne [1.5 0 1.5 -1] ligne [3.5 0 3.5 -1] ligne