EPS files for w5_1-2.tex

To generate the eps files for w5_1-2.tex

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

Clear[wheel, reflector, angle];
angle  =  Pi/3;
wheel  =  
        ParametricPlot[ .33*{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{- .4,  .4}, {- .4,  .4}}, 
          DisplayFunction -> Identity];
reflector  =  
        Graphics[Disk[ .25*{Cos[angle], Sin[angle]},  .02]];
\(\(Display["circle1.eps", 
        Show[wheel, \ reflector], "EPS"];\)
\)
Clear[wheel, reflector, angle];
angle  =  2*Pi/3;
wheel  =  
        ParametricPlot[ .33*{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{- .4,  .4}, {- .4,  .4}}, 
          DisplayFunction -> Identity];
reflector  =  
        Graphics[Disk[ .25*{Cos[angle], Sin[angle]},  .02]];
\(\(Display["circle2.eps", 
        Show[wheel, \ reflector], "EPS"];\)
\)
Clear[wheel, reflector, angle];
angle  =  3*Pi/3;
wheel  =  
        ParametricPlot[ .33*{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{- .4,  .4}, {- .4,  .4}}, 
          DisplayFunction -> Identity];
reflector  =  
        Graphics[Disk[ .25*{Cos[angle], Sin[angle]},  .02]];
\(\(Display["circle3.eps", 
        Show[wheel, \ reflector], "EPS"];\)
\)
Clear[wheel, reflector, angle];
angle  =  4*Pi/3;
wheel  =  
        ParametricPlot[ .33*{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{- .4,  .4}, {- .4,  .4}}, 
          DisplayFunction -> Identity];
reflector  =  
        Graphics[Disk[ .25*{Cos[angle], Sin[angle]},  .02]];
\(\(Display["circle4.eps", 
        Show[wheel, \ reflector], "EPS"];\)
\)
Clear[wheel, reflector, angle];
angle  =  5*Pi/3;
wheel  =  
        ParametricPlot[ .33*{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{- .4,  .4}, {- .4,  .4}}, 
          DisplayFunction -> Identity];
reflector  =  
        Graphics[Disk[ .25*{Cos[angle], Sin[angle]},  .02]];
Display["circle5.eps", 
        Show[wheel,  reflector], "EPS"];

Clear[triangle1, altitude, triangle2, words, theangle, angle, 
        thecircle, thedot];
triangle1 = 
        Graphics[
          Line[{{-1, 0}, {1, 0}, {0, Sqrt[3]}, {-1, 
                0}}]];
altitude = 
        Graphics[{Dashing[{0.05, 0.03}], 
            Line[{{0, 0}, {0, Sqrt[3]}}]}];
words = 
        Graphics[{Text["h", { .1,  .7}], Text["l", {- .6,  .85}], 
            Text["h", {4.6,  .7}], 
            Text["l", {3.9,  .85}]}];
theangle = 
        Graphics[{Text[
              FontForm["q", {"Greek", 
                  9}], {1.65,  .05}]}];
angle = 
        Graphics[{Text["O", {3.65,  .08}], 
            Text["-", {3.65,  .075}]}];
triangle2 = 
        Graphics[
          Line[{{3.5, 0}, {4.5, 0}, {4.5, Sqrt[3]}, {3.5, 0}}]];
thecircle = Graphics[Circle[{3.5, 0}, 2]];
thedot = 
        Graphics[{PointSize[ .01], Point[{4.5, Sqrt[3]}]}];
Display["equilateral.eps", 
        Show[triangle1, altitude, words, angle, triangle2, thecircle, thedot, 
          AspectRatio -> Automatic, 
          FormatType -> OutputForm], "EPS"];

To save space, do NOT save when quitting.

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

        circle1 . eps\)\)
circle2 . eps
circle3 . eps
circle4 . eps
circle5 . eps
equilateral . eps