       Re: Plot3D, show and text

• To: mathgroup at smc.vnet.net
• Subject: [mg98324] Re: Plot3D, show and text
• From: dh <dh at metrohm.com>
• Date: Mon, 6 Apr 2009 05:00:42 -0400 (EDT)
• References: <gra1ph\$2i5\$1@smc.vnet.net>

```
Hi MArc,

try the following:

Show[Plot3D[-8*(x*x + y*y) + (x*x + y*y)*(x*x + y*y), {x, -3,

3}, {y, -3, 3}, BoxRatios -> {3, 4, 2}, Mesh -> None,

ClippingStyle -> None,

RegionFunction -> Function[{x, y, z}, x^2 + y^2 < 9 && x < 2],

Boxed -> False, Axes -> True, AxesOrigin -> {0, 0, -16.5}],

Graphics3D[{Text["abc", {1, 1, 2}], Text["def", {2, 2, 4}]}]]

Daniel

Marc ESCALIER wrote:

> Hello,

>

> Is there an expert over there, who would able to add, using mathematica:

> a text "abc" at position "1,1,2" and

> a text "def" at position "2,2,4", by :

>

> keeping same looking at the original plot (no changing of ratio x, y, z)

> keeping Show (because i need to put other stuff inside)

>

> Show[Plot3D[-8*(x*x+y*y)+(x*x+y*y)*(x*x+y*y),{x,-3,3},{y,-3,3},BoxRatios-=

>> {3,4,2},Mesh->None,ClippingStyle->None,RegionFunction->Function[{x,y,z},=

> x^2+y^2<9 && x<2],Boxed->False,Axes->True,AxesOrigin->{0,0,-16.5}]

>

> thank you

>

```