Plot[FresnelC[x], {x, -5, 5}]

Plot[{FresnelC[x], FresnelS[x]}, {x, -5, 5}]

ParametricPlot[{FresnelC[x], FresnelS[x]}, {x, -5, 5}]

Plot[Exp[-x^2], {x, -5, 5}]

Plot[Exp[-x^2], {x, -5, 5}, 
      PlotRange -> {0, 1}]

Plot[Exp[-x^2], {x, -5, 5}, 
      PlotRange -> {{-2, 2}, {0, 1}}]

Plot[Exp[-x^2], {x, -5, 5}, 
      PlotRange -> {Automatic, {1, Automatic}}]

Plot[Exp[-x^2], {x, -5, 5}, 
      PlotRange -> {Automatic, {1, 0}}]

Plot[{FresnelC[x], FresnelS[x]}, {x, -5, 5}, 
      PlotStyle -> {{RGBColor[1, 0, 0]}, {RGBColor[0, 0, 
              1]}}]

Plot[{FresnelC[x], FresnelS[x]}, {x, -5, 5}, 
      PlotStyle -> {{Red}, {Blue}}]

Plot[{FresnelC[x], FresnelS[x]}, {x, -5, 5}, 
      PlotStyle -> {{Red, Dashing[{0.02, 0.02}]}, {Blue, 
            Dashing[{0.005, 0.005}]}}]

Limit[FresnelC[x], x -> Infinity]

Plot[{FresnelC[x], FresnelS[x], 1/2}, {x, 0, 10}, 
      PlotStyle -> {{Red}, {Blue}, Thickness[0.01]}, 
      PlotRange -> {0, 1}]

Plot[{AiryAi[x], BesselJ[x, 5]}, {x, -5, 5}, 
      PlotRange -> {-1, 1}, 
      PlotStyle -> {{Blue, 
            Dashing[{0.01, 0.01}]}, {RGBColor[0.2, 0.8, 1], 
            Dashing[{0.01, 0.005}]}}]

Export["~/BesselJ.eps", %]

Plot3D[FresnelC[x] FresnelS[y], {x, -3, 3}, {y, -3, 3}, 
      PlotPoints -> 50]

Export["~/plot3d.eps", %]

<< Graphics`

PolarPlot[2/(1 + 0.8  Cos[phi]), {phi, 0, 2 Pi}]

Export["elipsa.eps", %]

Plot[{Exp[x], Log[x + 1], x, x^3}, {x, 0.01, 10}, 
      PlotStyle -> {{Red}, {Blue}, {Green}, {Black}}, 
      PlotLegend -> {"Exp", "Log",  "x",  "x^3"}, 
      LegendPosition -> {-0.7, -0.3}]

Export["~/4plots.eps", %]

LogPlot[{Exp[x], Log[x + 1], x, x^3}, {x, 0.01, 10}, 
      PlotStyle -> {{Red}, {Blue}, {Green}, {Black}}]

Export["~/4plotsA.eps", %]

LogLogPlot[{Exp[x], Log[x + 1], x, x^3}, {x, 0.01, 10}, 
      PlotStyle -> {{Red}, {Blue}, {Green}, {Black}}]

Export["~/4plotsB.eps", %]

ImplicitPlot[
      x^2 + y^3 == 3 x y + (x - y)/3, {x, -5, 5}, {y, -5, 
        3}]

Export["implicit.eps", %]

CartesianMap[Identity, {-1.3, 1.3}, {-1.3, 1.3}]

CartesianMap[Tan, {-1.3, 1.3}, {-1.3, 1.3}]

GraphicsArray[{%%, %}]

Show[%]

Export["conformal.eps", %]

CartesianMap[Tan, {-1.5, 1.5}, {-1.5, 1.5}, 
      PlotPoints -> 100]

NIntegrate[Gamma[z], {z, 1 - I, 1 + I}, AccuracyGoal -> 50]/I/
      Pi

Plot[(NIntegrate[Gamma[z], {z, 1 - I, 1 + I}] + 
                NIntegrate[Gamma[z], {z, 1 + I, x}] + 
                NIntegrate[Gamma[z], {z, x, 1 - I}])/2 / Pi /
        I, {x, -10, 3}]

FullSimplify[%]

(I  - 3/2)!  // FullSimplify

Plot[Gamma[x], {x, -4, 4}]

Table[{-n,  1/n!, Residue[Gamma[z], {z, -n}]}, {n, 0, 
          10}] // TableForm