| 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: , |
|
