Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Epilog/Plotlabel' topicStudent Support Forum > General > "Epilog/Plotlabel"

< Previous CommentHelp | Reply To Comment | Reply To Topic
Author Comment/Response
Palmer
11/01/12 00:08am

Manipulate[Graphics3D[
{
Blue, Table[
Arrow[{{Xq, Yq, Zq}, {x, Y + 1*((Y - Yq)/Abs[Y - Yq]), z}}], {x,
0, 10, 5/Q}, {z, 0, 10, 5/Q}],
Red, Arrow[{{5, Y, 5}, {5, Y + 3, 5}}],
Opacity[0.8], Yellow, Sphere[{Xq, Yq, Zq}, .20 + (Q/30)],
EdgeForm[Directive[Thick, Blue]],
Polygon[{{10, Y, 0}, {0, Y, 0}, {0, Y, 10}, {10, Y, 10}}]
},
Axes -> True,
AxesLabel -> {"X", "Y", "Z"},
Epilog ->
Text[Style["EPILOG TEXT HERE", FontSize -> 14,
FontColor -> Orange], {.5, .5}]
],
{Y, 1, 10, .1},
{{Xq, 5}, 0 - 10, 20, 1},
{Yq, 0, Y + 10, 1},
{{Zq, 5}, -10, 20, 1},
{{Q, 1, "Charge '+Q'"}, 5, .5}]

URL: ,

Subject (listing for 'Epilog/Plotlabel')
Author Date Posted
Epilog/Plotlabel Vritomos 10/13/09 10:20am
Reposting with code Vritomos 10/13/09 12:51pm
Re: Epilog/Plotlabel Palmer 11/01/12 00:08am
< Previous CommentHelp | Reply To Comment | Reply To Topic