Services & ResourcesWolfram ForumsMathGroup Archive

[Date Index] [Thread Index] [Author Index]

Re: Re: Re: multiple 3d plots

• To: mathgroup at smc.vnet.net
• Subject: [mg56385] Re: [mg56347] Re: [mg56304] Re: multiple 3d plots
• From: DrBob <drbob at bigfoot.com>
• Date: Sat, 23 Apr 2005 01:16:18 -0400 (EDT)
• References: <200504221023.GAA18819@smc.vnet.net>
• Reply-to: drbob at bigfoot.com
• Sender: owner-wri-mathgroup at wolfram.com

Wow. That is gorgeous!

Bobby

On Fri, 22 Apr 2005 06:23:40 -0400 (EDT), David Park <djmp at earthlink.net> wrote:

> I had to try this with the DrawGraphics package from my web site. I will
> send you a .gif image separately so you can see the result if you don't have
> the package.
>
> This looks like much more work, but I think we get a nicer plot.
>
> First, let's solve for the intersection, which we can do in this case.
>
> Solve[x^2*y == 3*(x/y), y]
> {{y -> -(Sqrt[3]/Sqrt[x])}, {y -> Sqrt[3]/Sqrt[x]}}
>
> There are two solutions over a wider domain, so let's look at both
> solutions. We can calculate the z value for a given x by
>
> 3*(x/y) /. y -> Sqrt[3/x]
> Sqrt[3]/(1/x)^(3/2)
>
> with a similar expression for the negative solution. Then here is the plot.
>
> Needs["DrawGraphics`DrawingMaster`"]
>
> Draw3DItems[
>  {SurfaceColor[PaleGreen], EdgeForm[ColorMix[PaleGreen, Black][0.3]],
>   Draw3D[x^2*y, {x, 0, 6}, {y, -3, 3}, PlotPoints -> 20],
>
>   SurfaceColor[LightSteelBlue], EdgeForm[ColorMix[LightSteelBlue,
> Black][0.3]],
>   Draw3D[3*(x/y), {x, 0, 6}, {y, -3, -0.1}, PlotPoints -> 20],
>   Draw3D[3*(x/y), {x, 0, 6}, {y, 0.1, 3}, PlotPoints -> 20],
>
>   Red, AbsoluteThickness[2],
>   ParametricDraw3D[{x, Sqrt[3/x], Sqrt[3]/(1/x)^(3/2) + 1}, {x, 0.35, 6},
>     PlotPoints -> 20],
>   ParametricDraw3D[{x, -Sqrt[3/x], -(Sqrt[3]/(1/x)^(3/2)) + 1}, {x, 0.35,
> 6},
>    PlotPoints -> 20]},
>
>    NeutralLighting[0.3, 0.5, 0.1],
>    PlotRange -> {-40, 40},
>    BoxRatios -> {1, 1, 0.5},
>    BoxStyle -> Gray,
>    Axes -> True,
>    AxesLabel -> {x, y, ""},
>    Ticks -> {CustomTicks[Identity, {0, 6, 3, 3}],
>      CustomTicks[Identity, {-3, 3, 3, 3}], CustomTicks[Identity,
>       {-30, 30, 30, 3}]},
>    PlotLabel -> SequenceForm["Intersection of ", x^2*y," and ",3*(x/y)],
>    ViewPoint -> {2.493, -0.343, 2.262},
>    Background -> Linen,
>    ImageSize -> 450];
>
> I used two different colors for the two surfaces and NeutralLighting so the
> colors would not be overwhelmed by the regular color saturation of the
> lighting. The 3x/y surface was plotted in two parts to eliminate the 'return
> surface' at y = 0. The intersection was plotted with a thick red line and
> raised slightly so it would better display. EdgeForm was used to subdue the
> surface 'meshes' and make a different shade of the surface color.
>
> David Park
> djmp at earthlink.net
> http://home.earthlink.net/~djmp/
>
> From: juejung [mailto:juejung at indiana.edu]
To: mathgroup at smc.vnet.net
>
> okay, this seems to do the trick.
> but the show command doesn't use the color i specified for graph p2. any,
> idea?
>
>
> p1 = Plot3D[x^2*y, {x, 1, 2}, {y, 1, 2}];
> p2 = Plot3D[{3*x*(1/y),Hue[.4]}, {x, 1, 2}, {y, 1, 2}];
> Show[p1, p2];
>
>
>
>
>
>
>



-- 
DrBob at bigfoot.com

• Follow-Ups:
  • Re: Re: Re: Re: multiple 3d plots
    • From: Pratik Desai <pdesai1@umbc.edu>

• References:
  • Re: Re: multiple 3d plots
    • From: "David Park" <djmp@earthlink.net>