Plot[{y=-x^3+27*x-20},{x,-6,6}]

Export["SampleGraph.eps",%]

f=Interpolation[{{-1,2}, {-1.1,2.3},{2,3},{2.1,3.4},{2.2,3.6},{2.4,3.7},{4,-5}}]

Plot[f[x],{x,-1.5,3.5}]

Export["SampleGraph1.eps",%]

Plot[{y=x^3+6*x^2 + 9*x},{x,-4,1}]

Export["SampleGraph1c.eps",%]

Plot[{y=(x-102)^2+26},{x,95,105},PlotRange->{{95,105},{-10,50}},PlotStyle->{Thickness[.005],Black}]

Graphics[{PointSize[Large],Black,Point[{100, 30}]}]

Show[%49,%10]

Export["Exam1Graph1.eps",%]

Plot[{y=-(x-102)^2+34},{x,95,105},PlotRange->{{95,105},{-10,50}},PlotStyle->{Thickness[.005],Black}]

Show[%52,%10]

Export["Exam1Graph2.eps",%]

Plot[{y=(x-102)^2-8},{x,95,105},PlotRange->{{95,105},{-10,10}},PlotStyle->{Thickness[.005],Black}]

Graphics[{PointSize[Large],Black,Point[{100, -4}]}]

Show[%45,%]

Export["Exam1Graph3.eps",%]

Plot[{y=-(x-102)^2},{x,95,105},PlotRange->{{95,105},{-10,10}},PlotStyle->{Thickness[.005],Black}]

Graphics[{PointSize[Large],Black,Point[{100, -4}]}]

Show[%42,%29]

Export["Exam1Graph4.eps",%]

Plot[{y=1},{x,0,2},PlotStyle->{Thickness[.02],Black},Axes->False]

ParametricPlot[{x=0, y=t},{t,0,1},PlotStyle->{Thickness[.02],Black},Axes->False]

Show[%11,%12]

Plot[{y=1},{x,0,2},PlotStyle->{Thickness[.02],Black},Axes->False]

ParametricPlot[{x=2, y=t},{t,0,1},PlotStyle->{Thickness[.02],Black},Axes->False]

Show[%13,%15]

ParametricPlot[{x=t, y=-.02},{t,0,2},PlotStyle->{Thickness[.005],Black},Axes->False]

Show[%16,%17]

Graphics[{FontStyle -> "Arial",Style[Text["x",{1,.09}],Black,Italic, 24],Style[Text["w",{.08,.5}],Black,Italic, 24]}]

Show[%18,%19]

Export["Exam1Fence.eps",%]

Plot[{y=-(x-98)^2+34},{x,95,105},PlotRange->{{95,105},{-10,50}},PlotStyle->{Thickness[.005],Black}]

Graphics[{PointSize[Large],Black,Point[{100, 30}]}]

Show[%3,%4]

Export["Exam1Graph3.eps",%]

Plot[{y=(x-98)^2+26},{x,95,105},PlotRange->{{95,105},{-10,50}},PlotStyle->{Thickness[.005],Black}]

Show[%7,%4]

Export["Exam1Graph4.eps",%]

Plot[{y=(1/10)*((x-2)^3-5*(x-2)^2-10*(x-2)+30)},{x,0,4}]

Graphics[{PointSize[Large],Black,Point[{2, 3}]}]

Show[%14,%10]

Plot[{y=(1/10)*((x-2)^3-5*(x-2)^2+10*(x-2)+30)},{x,0,4}]

Show[%16,%10]

Plot[{y=(1/10)*(-(x-2)^3+5*(x-2)^2-20*(x-2)+30)},{x,0,4}]

Show[%24,%10]

Plot[{y=(1/10)*(-.1*(x-2)^3+10*(x-2)^2+10*(x-2)+30)},{x,0,4},PlotRange->{{-.1,4.1},{-.3,9}}]

Show[%39,%10]

Export["Exam1G1.eps",%15]

Export["Exam1G2.eps",%16]

Export["Exam1G3.eps",%25]

Export["Exam1G4.eps",%40]

Show[%16,%10]

Export["Exam1G2.eps",%]

Show[%25]

Plot[{y=1},{x,0,2},PlotStyle->{Thickness[.02],Black},Axes->False]

Plot[{y=0},{x,0,2},PlotStyle->{Thickness[.02],Black},Axes->False]

Plot[{y, 0, 1},{x=0},PlotStyle->{Thickness[.02],Black},Axes->False]

ParametricPlot[{x=2, y=t},{t,0,1},PlotStyle->{Thickness[.02],Black},Axes->False]

ParametricPlot[{x=0, y=t},{t,0,1},PlotStyle->{Thickness[.02],Black},Axes->False]

Show[%48,%49,%51,%52]

Graphics[{FontStyle -> "TimesRoman",Style[Text["x",{1,.09}],Black,Italic, 24],Style[Text["w",{.08,.5}],Black,Italic, 24]}]

Show[%55,%53]

Export["Exam1Fence.eps",%]

ParametricPlot[{x=t,y=0},{t,0,1},Axes->False]

ParametricPlot[{x=1+.6*t,y=.8*t},{t,0,1},Axes->False]

Show[%60,%66]

ParametricPlot[{x=1,y=1.8*t},{t,0,1},Axes->False]

Show[%67,%68]

ParametricPlot[{x=0,y=1.8*t},{t,0,1},Axes->False]

Show[%69,%70]

ParametricPlot[{x=t,y=1.8},{t,0,1},Axes->False]

Show[%72,%71]

ParametricPlot[{x=1+.6*t,y=1.8+.8*t},{t,0,1},Axes->False]

Show[%74,%75]

ParametricPlot[{x=.8*t,y=1.8+1.8*t},{t,0,1},Axes->False]

Show[%77,%80]