EPS files for w7_1-3.tex

To generate the eps files for w7_1-3.tex

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

Clear[first,  second, third, word1, word2, word3, one, two, three, 
        four];
first  =  
        Graphics[
          Line[{{0, Sqrt[5]}, {0, 0}, {4, 0}, {0, 
                Sqrt[5]}}]];
second  =  
        Graphics[
          Line[{{-1, 2}, {0, 0}, {4, 0}, {-1, 
                2}}]];
third  =  
        Graphics[
          Line[{{1, 2}, {0, 0}, {4, 0}, {1, 
                2}}]];
word1 = 
        Graphics[{Text["a", {- .3, 1}], 
            Text["b", {1.6, - .3}]}];
word2 = 
        Graphics[{Text["a", {- .8, 1}], 
            Text["b", {1.6, - .3}]}];
word3 = 
        Graphics[{Text["a", { .2, 1}], 
            Text["b", {1.6, - .3}]}];
one = 
        Show[first,  second, third, AspectRatio -> Automatic, 
          PlotRange -> {{-2, 5}, {-1, 
                3}}];
two = 
        Show[first, word1, AspectRatio -> Automatic, 
          PlotRange -> {{-2, 5}, {-1, 
                3}}];
three = 
      Show[second,  word2, AspectRatio -> Automatic, 
        PlotRange -> {{-2, 5}, {-1, 3}}]; 
    four = Show[third,  word3, AspectRatio -> Automatic, 
        PlotRange -> {{-2, 5}, {-1, 
              3}}];
Display["triangles.eps", 
        Show[GraphicsArray[{{one, two}, {three,  
                four}}]], "EPS"];

To save space, do NOT save when quitting.

Executing this notebook creates the following file : 
triangles . eps