/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