xrange = {a, b} = {0, 2} ;

yrange = {c, d} = {0, 3} ;

Plot[d , {x, a, b}, PlotRange-> {xrange, yrange}, AspectRatio->Automatic, GridLines->Automatic] ;

[Graphics:../HTMLFiles/index_43.gif]

Created by Mathematica  (August 3, 2006) Valid XHTML 1.1!