Student Support Forum: 'Epilog/Plotlabel' topicStudent Support Forum > General > "Epilog/Plotlabel"

 Next Comment > Help | Reply To Topic
 Author Comment/Response Vritomos 10/13/09 10:20am Hi there, I'm trying to insert a label containing the result of a calculation in a Graphic3D. I've tried to use "Epilog" and "Plotlabel", but they always result in an error message or simply doesn't show anything at all. Anyone knows how to use it, or some other way to do it? The code follows below. Manipulate[ Show[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"}], {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}] The calculation i'm trying to insert is an Integral using Y,Yq,Xq and Zq as parameters, above the graphics. 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
 Next Comment > Help | Reply To Topic