EPS files for w5_3-5.tex

To generate the eps files for w5_3-5.tex

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

Clear[wheel, reflector, angle];
wheel  =  
        ParametricPlot[{Cos[t], Sin[t]}, {t, 0, 2*Pi}, 
          AspectRatio -> Automatic, 
          PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}}, 
          DisplayFunction -> Identity];
Display["circle.eps", Show[wheel], "EPS"];

<<Graphics`Arrow`

Clear[wheel,reflector,angle,theta,arc,arclabel,coords,arcpoint];
theta=-1*Pi/3;
arc=Graphics[Circle[{0,0},.1, {0,theta}]];
arc=ParametricPlot[.1*{Cos[t],Sin[t]},{t,0,theta},DisplayFunction->Identity];
If[theta>0,arclabel=Graphics[{Text["O",{.15,.10}],Text["-",{.15,.10}]}]
,arclabel=Graphics[{Text["O",{.15,-.10}],Text["-",{.15,-.10}]}]];
reflector=Graphics[{PointSize[0.03],Point[{Cos[theta],Sin[theta]}]}];
angle=Graphics[Line[{{0,0},{Cos[theta],Sin[theta]}}]];
coords=Graphics[{Dashing[{0.02,0.01}],
      Line[{{Cos[theta],0},{Cos[theta],Sin[theta]}}],
      Line[{{0,Sin[theta]},{Cos[theta],Sin[theta]}}]}];
wheel = ParametricPlot[{Cos[t],Sin[t]},{t,0,2*Pi},AspectRatio->Automatic,
    PlotRange->{{-1.3,1.3},{-1.3,1.3}},DisplayFunction->Identity];
arcpoint=Graphics[
    Arrow[0.1*{Cos[.8*theta],Sin[.8*theta]},0.1*{Cos[theta],Sin[theta]},
      HeadScaling->Absolute,HeadCenter->1,HeadLength->4,HeadWidth->1.0]];
Display["unitcircle1.eps",Show[wheel,angle,reflector,arc,arclabel,coords,arcpoint,DisplayFunction->$DisplayFunction],"EPS"];

Clear[graph, x, xticks, i];
n = 5;
xticks = Table[i*Pi, {i, -1*n, n}];
graph = 
        Plot[100, {x, -1*n*Pi, n*Pi}, PlotRange -> {-1.5, 1.5}, 
          Ticks -> {None, None}, AspectRatio -> 1/2];
Display["nosine.eps", graph, "EPS"];

Clear[graph, x, xticks, i];
n = 5;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[Cos[x], {x, -1*n*Pi, n*Pi}, PlotRange -> {-1.5, 1.5}, 
          Ticks -> {xticks, {-1, 1}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=cos(x)",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["cosine.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 5;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[Sin[x], {x, -1*n*Pi, n*Pi}, 
          PlotRange -> {-1.5, 1.5}, Ticks -> {xticks, {-1, 1}}, 
          AspectRatio -> 1/3, PlotLabel -> "y=sin(x)",  
          AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sine.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 3;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[Sin[x], {x, -1*n*Pi, n*Pi}, 
          PlotRange -> 3*{-1.5, 1.5}, 
          Ticks -> {xticks, {-1, 1}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=sin(x)",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sinea.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 3;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[Sin[Pi*x/4], {x, -1*n*Pi, n*Pi}, 
          PlotRange -> 3*{-1.5, 1.5}, 
          Ticks -> {xticks, {-1, 1}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sine1.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 3;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[3*Sin[Pi*x/4], {x, -1*n*Pi, n*Pi}, 
          PlotRange -> 3*{-1.5, 1.5}, 
          Ticks -> {xticks, {-3, 3}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sine2.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 3;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[3*Sin[Pi*(x + 1)/4], {x, -1*n*Pi, n*Pi}, 
          PlotRange -> 3*{-1.5, 1.5}, 
          Ticks -> {xticks, {-3, 3}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sine3.eps", graph, "EPS"];

Clear[graph, x, xticks, i, n, x];
n = 3;
xticks = 
        Table[{i, If[Mod[i, 5] == 0, i, "  "]}, {i, -3*n, 
            3*n}];
graph = 
        Plot[3*Sin[Pi*(x + 1)/4] + 1.4, {x, -1*n*Pi, n*Pi}, 
          PlotRange -> 3*{-1.5, 1.5}, 
          Ticks -> {xticks, {-3 + 1.5, 3 + 1.5}}, AspectRatio -> 1/3, 
          PlotLabel -> "y=",  AxesLabel -> {x, None}, 
          FormatType -> OutputForm];
Display["sine4.eps", graph, "EPS"];

To save space, do NOT save when quitting.

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

        circle . eps\)\)
unitcircle . eps
nosine . eps
cosine . eps
sine . eps 
sinea . eps
sine1 . eps
sine2 . eps
sine3 . eps
sine4 . eps