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

< Previous Comment | Next Comment >Help | Reply To Comment | Reply To Topic
Author Comment/Response
Vritomos
10/13/09 12:51pm

Just correcting, the right code is this:

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, .2}, {{Zq, 5}, -10, 20, 1}, {{Q, 1, "Charge +Q"}, 1, 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 Comment | Next Comment >Help | Reply To Comment | Reply To Topic