Re: Plot3D, show and text

*To*: mathgroup at smc.vnet.net*Subject*: [mg98340] Re: [mg98311] Plot3D, show and text*From*: Bob Hanlon <hanlonr at cox.net>*Date*: Mon, 6 Apr 2009 05:03:35 -0400 (EDT)*Reply-to*: hanlonr at cox.net

Show[ Plot3D[ -8*(x*x + y*y) + (x*x + y*y)^2, {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}]}]] Bob Hanlon ---- Marc ESCALIER <marc.escalier at dbmail.com> 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