/width 500 def
/xmin -.2 def
/xmax 2.5 def
/ymin -.01 def
/ymax .005 def
/xmkstep 2 def % les marques sur Ox
/ymkstep .005 def % les marques sur Oy
/xtkstep .5 def % les ticks sur Ox
/ytkstep .005 def % les ticks sur Oy
/xsubtkstep .1 def % les subticks sur Ox
/ysubtkstep .001 def % les subticks sur Oy
/f {
dup
4 mul Sin exch
-3 mul Exp mul
-.02 mul
} def
/xA -1 def
/xB 1 def
/yA xA f def
/yB xB f def
%quadrillage
tracerepere
marks
.002 ymark
1.5 xmark
.5 xmark
pi 4 div xtick
pi 2 div xtick
0 0 point
.23 xtick
.23 dup f dashpoint
1.02 xtick
1.02 dup f dashpoint
medium setlinewidth
0 xmax (f) Courbe
setTimesItalic
(O) O dltext
(t) 1.02 0 drtext
(2) indice
(t) .23 0 drtext
(1) indice
setSymbol
(p/2) pi 2 div .05 sub 0 urtext
(p/4) pi 4 div .05 sub 0 drtext
|