Calculation 6
​
Time and Polar Angle dependent GEONs with Discrete Spherical Energy Levels. Confinements of Electromagnetic Radiation within Polar Angle Regions.
In[]:=
SphericalPlot3D[(1+Cos[5θ])(1+Cos[5ϕ]),{θ,0,Pi},{ϕ,0,2Pi},PlotRange->{-4,4}]
Out[]=
In[]:=
With[{r=1},VectorPlot3D[{0,-y,x},{x,-r,r},{y,-r,r},{z,-1,1},VectorPoints->{10,10,10},VectorStyle->Arrowheads[0.02],VectorScale->{0.1,0.3,0.3},RegionFunction->Function[{x,y,z},x^2+y^2==r^2],VectorColorFunction->"Rainbow"]]​​
VectorPlot3D
:Value of option PlotPoints -> 1 is not an integer >= 2.
Out[]=
VectorPlot3D[{0,-y,x},{x,-1,1},{y,-1,1},{z,-1,1},VectorPoints{10,10,10},VectorStyleArrowheads[0.02],VectorScale{0.1,0.3,0.3},RegionFunctionFunction[{x$,y$,z$},
2
x$
+
2
y$

2
1
],VectorColorFunctionRainbow]
In[]:=
SphericalPlot3D[1+Sin[6θ],{θ,0,Pi},{ϕ,0,2Pi}]
Out[]=
In[]:=
SphericalPlot3D[Sin[4ϕ],{θ,0,Pi},{ϕ,0,2Pi}]
Out[]=
In[]:=
p1=SphericalPlot3D[{1,2,3},{θ,0,Pi},{ϕ,0,3Pi/2},PlotStyle->Opacity[0.9],PlotLabel->"Spherical Confinement of Light",AxesLabel->{"Radial Distance"}]
Out[]=
In[]:=
p51=SphericalPlot3D[{3},{θ,0,Pi},{ϕ,0,3Pi/2},φ]
SphericalPlot3D
:Options expected (instead of φ​) beyond position 3 in SphericalPlot3D{3},{θ,0,π},ϕ,0,
3π
2
,φ. An option must be a rule or a list of rules.
Out[]=
SphericalPlot3D{3},{θ,0,π},ϕ,0,
3π
2
,φ
In[]:=
p4=Plot[Sin[3x],{x,0,2π}]
Out[]=
1
2
3
4
5
6
-1.0
-0.5
0.5
1.0
In[]:=
p2=ComplexPlot3D[Sin[4θ],{θ,0,2π},{φ,0,π},PlotLabel->"Spherical Confinement of Light",AxesLabel->{"Polar Angle"}]
ComplexPlot3D
:Options expected (instead of {φ,0,π}​) beyond position 2 in ComplexPlot3D[Sin[4θ],{θ,0,2π},{φ,0,π},PlotLabelSpherical Confinement of Light,AxesLabel{Polar Angle}]. An option must be a rule or a list of rules.
Out[]=
ComplexPlot3D[Sin[4θ],{θ,0,2π},{φ,0,π},PlotLabelSpherical Confinement of Light,AxesLabel{Polar Angle}]
In[]:=
Plot3D[Sin[3θ],{θ,0,2π},{φ,0,π},PlotLabel"Standing Wave between two Polar Angular Regions",AxesLabel{"Polar Angle"}]
Out[]=
In[]:=
ComplexPlot3D[(z^2+1)/(z^2-1),{z,-2-2I,2+2I}]
Out[]=