Student Support Forum: 'Graphing a function and a tangent plane' topicStudent Support Forum > General > "Graphing a function and a tangent plane"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Ben Kovitz 10/18/04 12:36pm How can you generate multiple Plot3Ds without displaying each individual one, so you can then combine them into one big plot? I'm trying to display surfaces and their tangent planes, like this: Plot2[f_, tanf_, point_, range_] := {PlotSurface[ f, point, range], PlotTangent[tanf, point, range]} PlotSurface[f_, point_, range_] := Plot3D[f[x, y], {x, point[[1]] - range, point[[1]] + range}, {y, point[[2]] - range, point[[2]] + range}, ColorFunction -> (Hue[.4 + .2#] &)] PlotTangent[f_, point_, range_] := Plot3D[f[x, y], {x, point[[1]] - range, point[[1]] + range}, {y, point[[2]] - range, point[[2]] + range}, ColorFunction -> (Hue[.1 + .1#] &)] Show[Plot2[z, -5 + 3 #1 + 7 #2 &, {1, 1}, 1]] The output is three plots instead of just the combined one. URL: ,

 Subject (listing for 'Graphing a function and a tangent plane') Author Date Posted Graphing a function and a tangent plane Ben Kovitz 10/18/04 12:36pm Re: Graphing a function and a tangent plane Henry Lamb 10/21/04 01:30am Re: Graphing a function and a tangent plane Andrew DuBui... 10/21/04 7:29pm
 Next Comment > Help | Reply To Topic