-4 4 setxrange
-1 5 setyrange
traceaxes
axesarrow

[-.5 1 2.5 4] {ymark} apply
[-3 -1 0 1 2 3] {xmark} apply

/f {
   setxvar
%%    269 72 div
%%    125 36 div x mul add 
%%    53 72 div x dup mul mul add
%%    x dup mul mul
   x 3 exp 3 x mul sub
} def

/A {-3 -.5} def
/A1 {-2 1} def
/A2 {-2.5 .5} def
/B {-1 1} def
/B2 {-.5 1} def
/B1 {-.5 0} def
/C {0 0} def
/C2 {.5 0} def
/C1 {.75 .75} def
/D {1 1} def
/D2 {1.25 1.35} def
/D1 {1.5 1.8} def
/E {2 2.5} def 
/E1 {2.5 3.3} def 
/F {3 4} def

/scurveto {
   3 {3 1 rollp
   yunit mul exch
   xunit mul exch
   } repeat
   curveto
} def

[A B C D E F] dashpoints

medium setlinewidth
newpath
A smoveto
A2 A1 B scurveto
B2 B1 C scurveto
C2 C1 D scurveto
D2 D1 E scurveto
E E1 F scurveto
stroke

%[A1 A2 B1 B2 C1 C2 D1 D2 E1] points
%[A B C D E F] (times) plot

setTimesItalic
   (x  ) xmax 0 ultext
   (y ) 0 ymax dltext