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