| Author |
Comment/Response |
Bill
|
 07/29/12 8:41pm
Hi:
Here are a couple of examples that you might find useful:
Ex 1.
gr1=Graphics[Polygon[Table[{Sin[2 n Pi/5],Cos[2 n Pi/5]},{n,0,5}]],Frame->True,FrameLabel->{"x","y"},PlotRange->{{-1.5,1.5},{-1.5,1.5}},ImagePadding->50];
p=Graphics[Translate[Rotate[Style[Text["P"],36,Italic,FontFamily->"Courier",Bold,Red],-30Degree],{.5,.8}]];
e=Graphics[Translate[Rotate[Style[Text["e"],24],-130Degree],{.9,-.3}]];
n=Graphics[Translate[Rotate[Style[Text["n"],24],-180Degree],{0,-1}]];
t=Graphics[Translate[Rotate[Style[Text["t"],24],120Degree],{-.9,-.3}]];
a=Graphics[Translate[Rotate[Style[Text["a"],24],30Degree],{-.6,.8}]];
Show[gr1,p,e,n,t,a]
Ex 2.
AnnotatedArrow[p_,q_,label_]:={Arrowheads[{{-.1,0},{.1,.5,Graphics[Inset[Style[label,Medium],{Center,Top}]]},{.1,1}}],Arrow[{p,q}]}
Graphics[{AnnotatedArrow[1/Sqrt[2]{-1,-1},1/Sqrt[2]{1,1},"d = 2"],Circle[]}]
Hth,
Bill
URL: , |
|
