Flux

Manipulate[Graphics3D[{Opacity[.5],LightBlue,Polygon[{{-1,-1,0},{-1,1,0},{1,1,0},{1,-1,0}}],EdgeForm[],Polygon[{{-10,-10,0},{-10,10,0},{10,10,0},{10,-10,0}}],Red,Arrow[{{0,0,0},{0,0,1}}],Blue,Table[Arrow[{{x -Sin[θ],y-Sin[ϕ] ,-Cos[θ]Cos[ϕ]},{x +Sin[θ],y+Sin[ϕ] ,Cos[θ]Cos[ϕ]}}],{x,-1,1,δ(1+Abs@Tan[θ])},{y,-1,1,δ(1+Abs@Tan[ϕ])}]},Background->LightYellow,Boxed->False,SphericalRegion->True,PlotRange->{{-2,2},{-2,2},{-1,1}}],{{θ,.5,"first angle"},-π/2,π/2},{{ϕ,1,"second angle"},-π/2,π/2},{{δ,.5,"density flux"},.2,1}]

THIS NOTEBOOK IS THE SOURCE CODE FROM

"Flux" from The Wolfram Demonstrations Project
 http://demonstrations.wolfram.com/Flux/

Contributed by: Enrique Zeleny

A full-function Wolfram Mathematica system (Version 6 or higher) is required to edit this notebook.
GET WOLFRAM MATHEMATICA »

© The Wolfram Demonstrations Project & Contributors   |   Terms of Use   |   Make a new version of this Demonstration »