Re: Re: Re: Re: multiple 3d plots

*To*: mathgroup at smc.vnet.net*Subject*: [mg56412] Re: [mg56385] Re: [mg56347] Re: [mg56304] Re: multiple 3d plots*From*: Pratik Desai <pdesai1 at umbc.edu>*Date*: Sun, 24 Apr 2005 03:29:03 -0400 (EDT)*References*: <200504221023.GAA18819@smc.vnet.net> <200504230516.BAA03130@smc.vnet.net>*Sender*: owner-wri-mathgroup at wolfram.com

DrBob wrote: >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]; >> >> >> >> >> >> >> >> >> > > > > > Hi I downloaded the DrawGraphics package from David Parks website, but it does not seem to load on my computer. It keeps on giving me Needs["DrawGraphics`DrawingMaster`"] >>Cannot open DrawGraphics`DrawingMaster` >>Context DrawGraphics`DrawingMaster` was not created when Needs was evaluated I have saved the file in C:\Program Files\Wolfram Research\Mathematica\5.1\AddOns\Applications directory, in fact I have other packages by David Park which seem to load without a problem. Please advise Pratik Desai -- Pratik Desai Graduate Student UMBC Department of Mechanical Engineering Phone: 410 455 8134

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

**Re: Re: Re: multiple 3d plots***From:*DrBob <drbob@bigfoot.com>