Bug Reports: Mathematica 3.0 For Students
March 3, 1998
Van, Nick and Naomi Warren

Bug # 1

f[x_]  =  x

Plot[f[x],  {x, -2,  2},  AxesLabel  -> {x, y},  
      AxesLabel -> y]

Plot[{f[x]},  {x, -2,  2},  AxesLabel  -> {x, y},  
      AxesLabel -> y]

g[x_]  =  (x^2)

Plot[{g[x]},  {x, -2,  2},  AxesLabel  -> {x, y},  
      AxesLabel -> y]

Plot[{g[x]/f[x]},  {x, -3,  2},  AxesLabel  -> {x, y},  
      AxesLabel -> y]

h[x_,  y_]  = 1 - (Sqrt[(x^2) + (y^2)])

s[x_,  y_]  = Hue[(1/3) (Sqrt[(x^2) + (y^2)]), 0.6, 1 - Abs[y]/4]

Plot3D[{h[x, y], s[x, y]},  {x, -2,  2},  {y, -2,  2},  
      PlotPoints  -> 50,  Mesh -> False]

Plot3D[{Sin[x y]}, {x, -2, 2}, {y, -2, 2}, 
      AxesLabel -> {x, y, z}]