Services & Resources / Wolfram Forums / MathGroup Archive
-----

MathGroup Archive 2009

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

Search the Archive

Re: Plot3D, show and text

  • To: mathgroup at smc.vnet.net
  • Subject: [mg98330] Re: Plot3D, show and text
  • From: Jens-Peer Kuska <kuska at informatik.uni-leipzig.de>
  • Date: Mon, 6 Apr 2009 05:01:47 -0400 (EDT)
  • References: <gra1ph$2i5$1@smc.vnet.net>

Hi,

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[Style["abc", "Section"], {1, 1, 2}],
    Text[Style["def", "Section"], {2, 2, 4}]}]
  ]

?

Regards
   Jens
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
> 


  • Prev by Date: Re: BarChart in v. 7
  • Next by Date: Re: Plot3D, show and text
  • Previous by thread: Re: Plot3D, show and text
  • Next by thread: Re: Plot3D, show and text