Re: Aligning 2 Sets of Axes at {0,0}; Rotated & Standard Position

*To*: mathgroup at smc.vnet.net*Subject*: [mg123174] Re: Aligning 2 Sets of Axes at {0,0}; Rotated & Standard Position*From*: DrMajorBob <btreat1 at austin.rr.com>*Date*: Fri, 25 Nov 2011 04:56:40 -0500 (EST)*Delivered-to*: l-mathgroup@mail-archive0.wolfram.com

I think this is a simpler way to eliminate text at zero: xaxis == DeleteCases[ XTickLine[{-30, 30, 0}, {-30, 30}, {-30, 30, 10}, 5], Text[0, __], Infinity] Bobby On Thu, 24 Nov 2011 05:56:44 -0600, David Park <djmpark at comcast.net> wrote: > Bill, > > There is an easy and natural way to do this with the Presentations > application. It has the routines XTickLine and YTickLine for drawing our > own > tick scales, (and also TickLine3D for raising these to Graphics3D > objects). > XTickLine has the form: > > XTickLine[{xmin,xmax,yloc},{rangemin,rangemax}, > {labelstart,labelend,increment},subdivisions] > > with a similar form for YTickLine. We can then specify your graphic as > follows: > > << Presentations` > > First specify the normal axes. > > xaxis = XTickLine[{-30, 30, 0}, {-30, 30}, {-30, 30, 10}, 5] /. > Text[0, __] -> Sequence[]; > > yaxis = YTickLine[{-30, 30, 0}, {-30, 30}, {-30, 30, 10}, 5] /. > Text[0, __] -> Sequence[]; > > where we eliminated the 0 tick value to prevent clutter around the > origin. > We then just draw one thing after another. We don't have to use Prolog, > Epilog, Show, graphics level jumping or Inset. > > Draw2D[ > {ContourDraw[ > 17*x^2 - 48*x*y + 31*y^2 + 49 == 0, {x, -30, 30}, {y, -30, 30}], > xaxis, yaxis, > {Red, xaxis, yaxis} // RotateOp[36.8699 \[Degree], {0, 0}]}, > ImageSize -> 300] > > RotateOp is just a convenient postfix form of Rotate. Rotate by default > rotates about the center of the graphics primitives, but a second > parameter > allows you to specify the rotation center. > > > David Park > djmpark at comcast.net > http://home.comcast.net/~djmpark/ > > > From: Bill [mailto:WDWNORWALK at aol.com] > > > Subj: Aligning Two Sets of Axes at {0,0}; Rotated and Standard Position > in > one plot. > > > Hi: > > I have the following Mathematica 8.0.4 code that gives me a satisfactory > plot: > > a=17;b=-48;c=31; > (ArcTan[b/(a-c)])/2; > N[(%)*(180/Pi)]; > Print["Majoraxis: Angle in Decimal Degrees= ",%] > axes=Graphics[Point[{0,0}],PlotRange->{{-12,12},{-12,12}},Axes->True,AxesSty > le->{Directive[{Red,Thin}],Directive[{Black,Thin}]},AxesLabel->{"'x","'y"},A > spectRatio->1,ImageSize->500]; > ContourPlot[17*x^2-48*x*y+31*y^2+49==0,{x,-12,12},{y,-12,12},AspectRatio->1, > Axes->True,AxesStyle->{Directive[{Red,Thin}],Directive[{Black,Thin}]},AxesLa > bel->{"X","Y"},Background->LightGray,ImageSize->500,Prolog->Inset[Rotate[Gra > phics[axes],36.8699Degree],{.1,.7}]] > > However, my objective here is to combine the two plots with the two sets > of > axes centered automatically. > As my code is now, I have to use a trial-and-error visual inspection > method, > and manually input the location of the rotated axes to match the main > plot > axes' center at standard position. > Ref: See {.1,.7} in > ...Inset[Rotate[Graphics[axes],36.8699Degree],{.1,.7}]] > (In another example using another equation that I ploted, the alignment > values were different yet. So for some reason, these numbers don't seem > to > be constants from one plot to another.) > > I have tried AxesOrigin->{0,0} in the plots, but this doesn't seem to > matter. Any help will be appreciated. > > > Tia, > > Bill > > -- DrMajorBob at yahoo.com