EPS files for w6_2-3.tex

To generate the eps files for w6_2-3.tex

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

Clear[x];
Plot[{3*x + 2, 1/2*x + 1}, {x, -5, 5}];

<< Graphics`Arrow`

Clear[arc1, arc2, arc3, t];
arc1 = 
        ParametricPlot[{3, 0} + {Cos[t], Sin[t]}, {t, 0, ArcTan[ .5]}, 
          DisplayFunction -> Identity];
arc2 = 
        ParametricPlot[{6, 0} + {Cos[t], Sin[t]}, {t, 0, ArcTan[1]}, 
          DisplayFunction -> Identity];
arc3 = 
        ParametricPlot[{9, 3} + 2*{Cos[t], Sin[t]}, {t, ArcTan[ .5], 
            ArcTan[1]}, 
          DisplayFunction -> Identity];

Clear[arclabel1, arclabel2, arclabel3];
arclabel1 = Graphics[{Text["s", {4.5,  .3}]}];
arclabel2 = Graphics[{Text["t", {7.5,  .4}]}];
arclabel3 = 
        Graphics[{Text["O", {11, 4.5}], 
            Text["-", {11, 
                4.5}]}];

Clear[linelabel];
linelabel = 
        Graphics[{Text["Line 1", {-2, -1.5}], 
            Text["Line 2", {-2, -6.5}]}];

Clear[x, graph];
graph  =  
        Plot[{ .5*(x - 3), (x - 6)}, {x, -1, 15}, 
          Ticks -> None, AspectRatio -> Automatic, 
          DisplayFunction -> Identity];
Display["lines-slopes.eps", 
Show[graph, arc1, 
          arc2, arc3, arclabel1, arclabel2, linelabel, arclabel3, 
          DisplayFunction -> $DisplayFunction, 
          PlotRange -> All], "EPS"];

To save space, do NOT save when quitting.

Executing this notebook creates the following file : 
lines - slopes . eps