Plots of 3D Functions

Initialization

SetOptions[Plot,PlotStyle-> {RGBColor[0,0,0],RGBColor[1,0,0],{Dashing[{0.05,0.05}],RGBColor[0,1,0]},RGBColor[0,0,1],RGBColor[1,1,0],RGBColor[0,1,1],RGBColor[1,0,1]}];

Nice Trigonometric Functions

Plot3D[Sin[x] Cos[y],{x,0,4 π},{y,0,4 π},PlotPoints->30]

Ugly Trigonometric Functions

Plot3D[Sin[(1/x)] Cos[y],{x,0.01`,0.1`},{y,0,π},PlotPoints->{200,10}]