(** Nevin Raj  12/1/09  Mathematica Assignment: Demonstration Project \
**)
S1[u_, v_, w_] := 
  ContourPlot3D[ 
   u*x^2 + v*y^2 + z^2 == w, {x, -3, 3}, {y, -3, 3}, {z, -3, 3}, 
   Boxed -> False, Axes -> False];
S2[u_, v_] := 
  VectorPlot3D[{u*2 x, v*2 y, 2 z}, {x, -3, 3}, {y, -3, 3}, {z, -3, 
    3}, Boxed -> False, Axes -> False];
Manipulate[
 Show[{S1[u, v, w], S2[u, v]}], {u, -3, 3}, {v, -3, 3}, {w, 0, 2}, 
 ContinuousAction -> False]