Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Label Display Problems with Show Function' topicStudent Support Forum > General > Archives > "Label Display Problems with Show Function"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Forum Moderator
email me
10/28/99 10:03am

>When I try to superimpose two graphs, I have problems with the Labels. I have tried ''Showing'' after processing with both the ''Graphics'' and ''FullGraphics Functions. In the former case, a ''Show'' of p1graph and skewp2graph (see below), yields a missing right axes label and numbers. In the later case a ''Show'' of p1full and skewp2full (see below)yields vertical axis labels rotated to a horizontal orientation.
>
>Thanks in advance.
>-Kevin
>
>$TextStyle={FontSize\[Rule]14,FontWeight\[Rule]''Bold'',
> FontFamily\[Rule]''Times''};
>
>p1=Plot[Sin[x],{x,0,2Pi},Frame->True,Axes->False,
> FrameTicks\[Rule]{{0,2 Pi},{-1,0,1},None,None},
> FrameLabel\[Rule]{\[Theta],Sin[\[Theta]],'' '','' ''},PlotRange->All,
> RotateLabel\[Rule]True
>   ]
>p2=Plot[2Cos[x],{x,0,2 Pi},Frame->True,Axes->False,
> FrameTicks\[Rule]{ None,None ,None ,{-2,0,2}},
> FrameLabel\[Rule]{'' '','' '','' '',2 Cos[\[Theta]]},PlotRange->All]
>
>(*Plots using Graphics*)
>p1graph=Graphics[p1]
>p2graph=Graphics[p2]
>\!\(\*
> RowBox[{''skewp2graph'', '' '', ''='', '' '',
> RowBox[{''SkewGraphics'', ''['',
> RowBox[{''p2graph'', '','', '' '',
> RowBox[{''('', ''\[NegativeThinSpace]'', GridBox[{
> {''1'', ''0''},
> {''0'', ''0.5''}
> }], ''\[NegativeThinSpace]'', '')''}]}], '']''}]}]\)
>Show[p1graph,PlotRange->All]
>Show[skewp2graph,PlotRange->All]
>Show[p1graph,skewp2graph,PlotRange->All]
>
>(* Plots using Full Graphics *)
>
>p1full=p1//FullGraphics
>p2full=p2//FullGraphics
>
>\!\(\*
> RowBox[{
> RowBox[{''skewp2full'', '' '', ''='', '' '',
> RowBox[{''SkewGraphics'', ''['',
> RowBox[{''p2full'', '','', '' '',
> RowBox[{''('', ''\[NegativeThinSpace]'', GridBox[{
> {''1'', ''0''},
> {''0'', ''0.5''}
> }], ''\[NegativeThinSpace]'', '')''}]}], '']''}]}], '';'',
> \(Show[p1full, PlotRange -> All]\), '';'', '' '',
> \(Show[Skewp2full, PlotRange -> All]\), '';'',
> \(Show[{p1full, skewp2full}, PlotRange -> All]\), '';''}]\)

======
You might try dropping the FrameLabel options from the graphics and using the Text primitive to create your own FrameLabels, e.g.

Show[FullGraphics[p1], FullGraphics[p2],Graphics[Text[
''Sin[\[Theta]]'',
{-1.2, 0}, {-1, 0}, {0, 1}]],Graphics[Text[
''Cos[\[Theta]]'',
{6.4, 0}, {-1, 0}, {0, 1}]], PlotRange-> All]

Tom Zeller
Forum Moderator


URL: ,

Subject (listing for 'Label Display Problems with Show Function')
Author Date Posted
Label Display Problems with Show Function Kevin Osborn 10/25/99 07:53am
Re: Label Display Problems with Show Function Forum Modera... 10/28/99 10:03am
< Previous CommentHelp | Reply To Comment | Reply To Topic