Mathematica 9 is now available
Student Support Forum
-----
Student Support Forum: 'Epilog/Plotlabel' topicStudent Support Forum > General > Archives > "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