EPS files for w1_4-5.tex

To generate the eps files for w1_4-5.tex

\(\(\( (*\ 
      Just\ highlight\ the\ bracket\ on\ the\ far\ right
	\ \ and\ shift - \(\(return\)\(.\)\)\ *) \)\(\ \)\(
\)\( (*\ And\ YES, \ 
      you\ want\ to\ initialize, \ if\ \(\(asked\)\(.\)\)\ *) \)\)\)

*********************************
Number line from -10 to 10 (realline.eps)
*********************************

Display["realline.eps", 
        Plot[0, {x, -10, 10}, PlotRange -> {-1, 1}, 
          Axes -> {True,  False}, 
          AspectRatio -> 1/6], "EPS"];

*********************************
Number line from -10 to 2 (real02.eps)
*********************************

Display["real02.eps", 
        Plot[0, {x, -10, 2}, PlotRange -> {-1, 1}, 
          Axes -> {True,  False}, 
          AspectRatio -> 1/6], "EPS"];

*********************************
Number line from 2 to 10 (real2+.eps)
*********************************

Display["real2+.eps", 
        Plot[0, {x, 2, 10}, PlotRange -> {-1, 1}, 
          Axes -> {True,  False}, 
          AspectRatio -> 1/6], "EPS"];

*********************************
X-Y axes, no scale (xyaxes.eps)
*********************************

Clear[xticks, i, fred];
xticks =  Table[{i, " ",  .02}, {i, -5, 5}];
fred  =  
        Plot[100, {x, -5, 5}, PlotRange -> {-5, 5}, 
          Axes -> {True,  True}, AspectRatio -> 1, 
          Ticks -> {xticks,  xticks}, AxesLabel -> {x, y}];
Display["xyaxes.eps", fred, "EPS"];

To save space, do NOT save when quitting.

\(Executing\ this\ notebook\ creates\ the\ following\ 
      \(files : 
realline . eps\)\)real02 . epsreal2 +  . eps\(xyaxes . eps
\)