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

Next Comment >Help | Reply To Topic
Author Comment/Response
Kevin Osborn
10/25/99 07:53am

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]\), '';''}]\)

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
Next Comment >Help | Reply To Topic