Re: problems with using graphics objects in arrowheads
- To: mathgroup at smc.vnet.net
- Subject: [mg101757] Re: problems with using graphics objects in arrowheads
- From: "Charles E. Oelsner" <c.oelsner at att.net>
- Date: Thu, 16 Jul 2009 08:18:59 -0400 (EDT)
I use Inset to annotate arrows with text (as a kind of graphic). Here is an example from my calculus notes about slicing a solid of revolution.
Charles
Clear[r, R];
r = 2;
R = 4;
imsize = 20;
Show[{
RegionPlot[r^2 <= x^2 + y^2 <= R^2, {x, -R, R}, {y, -R, R},
Frame -> False, PlotStyle -> LightGray, BoundaryStyle -> Black],
Graphics[{
Arrowheads[
{
{.01, .5,
Graphics[Inset[Style["R = f(x)", imsize], {Center, Top}]]},
{.05, 1}
}
],
Arrow[{{0, 0}, {R/2, (R Sqrt[3])/2}}],
Arrowheads[
{
{.01, .5,
Graphics[Inset[Style["r = g(x)", imsize], {Center, Top}]]},
{.05, 1}
}
],
Arrow[{{0, 0}, {r/2 Sqrt[3], -(r/2)}}]}
]}]