Mathematica Graphics Plot[Log[Exp[Sin[x]]], {x, 0, 10}] (* Axes names *) Plot[Sin[x], {x, 0, 10}, PlotRange -> {0.01, 1}, AxesLabel -> {"variable", "function"}] (* Multiple plot of functions *) Plot[{Log[10,Exp[Sin[x]]],Exp[Sin[x]],Sin[x]}, {x, 0, 10}] (* Each style element in the list applies to a new function*) Plot[{Sin[x],Sin[2*x]},{x, 0, 10}, PlotStyle -> {Thickness[0.01], Dashing[{0.01, 0.04, 0.05 0.04}]}] Plot[ {Sin[x],Sin[2*x]},{x, 0, 10}, PlotStyle -> { {Thickness[0.01],Dashing[{0.01, 0.04, 0.05 0.04}]}, Dashing[{0.01, 0.04, 0.05 0.04}] } ] (* Plot of point lists *) ListPlot [{{0,1},{1,1.5},{2,3},{3,3},{4,5},{5,6}, {6,6.5},{7,7.5},{8,9},{9,10},{10,10}}, PlotStyle -> {PointSize[0.01]}] plist= {{0,1},{1,1.5},{2,3},{3,3},{4,5},{5,6}, {6,6.5},{7,7.5},{8,9},{9,10},{10,10}} ListPlot [ plist, PlotStyle -> {PointSize[0.01]}] (* Continuous line *) ListPlot [ plist, PlotJoined -> True] Plot0 = ListPlot[{{0,0},{1,0.75},{2,1},{3,0.5},{4,-0.75}, {5,-1},{6,0},{7,0.5},{8,1},{9,0.5},{10,-0.5}}, PlotStyle -> {PointSize[0.01]}]; Plot1=Plot[0.1 Sin[x],{x,1,10},PlotStyle -> {GrayLevel[0.5]}]; Show[{Plot0, Plot1}, PlotRange->All] (* Three Dim Graphics *) f[x_,y_]:=-(1./Cos[x]+1./Sin[x]- 1./Sqrt[1-Cos[y] Sin[2 x]]); ThisPlot = Plot3D[f[x,y], {x, 0.01, 1.57},{y, 0.01, 0.2}, PlotRange{-10, 20}, PlotPoints ->20] Show[ThisPlot, ViewPoint -> {0, -1, 1}] Show[ Graphics3D [{PointSize[0.05],Point[{1,1,1}], Point[{2,1,2}], Point[{3,1,3}], Point[{4,1,4}]}]]