Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Graphing a function and a tangent plane' topicStudent Support Forum > General > Archives > "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