| 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: , |
|
