MathGroup Archive 2007

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

Search the Archive

Placing axis origin at origin for 3D plots

  • To: mathgroup at smc.vnet.net
  • Subject: [mg80716] Placing axis origin at origin for 3D plots
  • From: chuck009 <dmilioto at comcast.com>
  • Date: Thu, 30 Aug 2007 02:28:45 -0400 (EDT)

Hello guys,

I'd like to place the axis origin for some of my 3D plots at the origin but do not see a nice way how to do this.  I can manually create some lines but then I won't have the tic marks and axis labels support that goes with the standard axes.  The code below does what I feel is a poor job of making axes and again, I didn't go through the effort of manually creating tic marks and labels.  Can anyone help?

axes = Graphics3D[{{Thickness[0.004], 
     Line[{{-4.5, 0, 0}, {4.5, 0, 0}}]}, 
         {Thickness[0.004], Line[{{0, -4, 0}, {0, 4, 0}}]}, 
         {Thickness[0.004], Line[{{0, 0, -5}, {0, 0, 2}}]}, 
         Text[StyleForm["x", FontSize -> 18, FontWeight -> "Heavy"], 
           {4.5, 0, 0}], Text[StyleForm["-y", FontSize -> 18, 
             FontWeight -> "Heavy"], {0, -4.5, 0}], 
         Text[StyleForm["y", FontSize -> 18, FontWeight -> "Heavy"], 
           {0, 4.5, 0}], Text[StyleForm["-z", FontSize -> 18, 
             FontWeight -> "Heavy"], {0, 0, -4.5}], 
         Text[StyleForm["z", FontSize -> 18, FontWeight -> "Heavy"], 
           {0, 0, 2.5}], Text[StyleForm["-x", FontSize -> 18, 
             FontWeight -> "Heavy"], {-4.5, 0, 0}]}]; 
Show[{Plot3D[Sin[x], {x, -5, 5}, {y, -5, 5}, Axes -> False, 
       Boxed -> False], axes}, PlotRange -> All]


  • Prev by Date: Re: subscripted local variables?
  • Next by Date: Re: {Precision@N[2^1024],N[2^1024]===$MaxMachineNumber}
  • Previous by thread: Re: Special characters in the axis label?
  • Next by thread: GraphicsGrid bug and work around