EPS files for w4_1.tex

To generate the eps files for w4_1.tex

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

Clear[f, x, t, T, y];

Clear[first, second, third, fourth, dots, xgrid, ygrid];
xgrid = Table[25*i, {i, 0, 10}];
ygrid = Table[25*i, {i, 0, 8}];
first  =  
        Plot[198*E^(-0.02*t) + 22, {t, 0, 250}, 
          DisplayFunction -> Identity, 
          PlotStyle -> {Thickness[0.01]}];
second  =  
        Plot[22, {t, 0, 250}, PlotStyle -> Dashing[{ .03,  .02}], 
          DisplayFunction -> Identity];
third  =  
        Graphics[{Text["A", {-10, 215}], 
            Text["B", {-10, 17}]}];
dots  =  
        Graphics[{{PointSize[0.02], Point[{0, 220}]}, {PointSize[0.02], 
              Point[{0, 22}]}}];
Display["yamout.eps", 
        Show[first, PlotRange -> {0, 225}, FormatType -> OutputForm, 
          PlotLabel -> "Yam Temperature", 
          AxesLabel -> {"t", "y=f(t)"}, GridLines -> {xgrid, ygrid}, 
          DisplayFunction -> $DisplayFunction, 
          GridLines -> Automatic], "EPS"];

Display["lines.eps", 
        Show[Graphics[{Thickness[0.01], 
              Line[{{-4, 6}, {0, 4}, {2, 0}, {8, -2}}]}], 
          Graphics[{PointSize[0.02], Point[{-4, 6}], Point[{0, 4}], 
              Point[{2, 0}], Point[{8, -2}]}], 
          Graphics[{Thickness[0.007], Line[{{0, -4}, {0, 8}}], 
              Line[{{-6, 0}, {10, 0}}]}], 
          GridLines -> {Table[2*i, {i, -3, 6}], 
              Table[2*i, {i, -2, 5}]}, Axes -> True, 
          PlotRange -> {{-6, 10}, {-4, 8}}, 
          Ticks -> {Table[2*i, {i, -3, 6}], Table[2*i, {i, -2, 5}]}, 
          AspectRatio -> Automatic, FormatType -> OutputForm, 
          AxesLabel -> {"x", "y=f(x)"}], "EPS"];

To save space, do NOT save when quitting.

\(Executing\ this\ notebook\ creates\ the\ following\ \(files : 

        yamout . eps\)\)
lines . eps