WOLFRAM

Services & Resources / Wolfram Forums / MathGroup Archive

MathGroup Archive 2005

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

Search the Archive

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

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
  • Prev by Date: Re: a conflicting StringReplace
  • Next by Date: Eigensystem Eigenvalues fail for 34x34 sparse matric but not for 33x33
  • Previous by thread: Re: Re: Re: multiple 3d plots
  • Next by thread: Re: Re: Re: Re: Re: multiple 3d plots