(*particle of spin 1*)
Show[
SphericalPlot3D[Sqrt[2],{θ,0,Pi},{ϕ,0,3Pi/2},Background->Black,PlotStyle->Directive[Opacity[0.40]],BoxRatios->{1,1,1},Axes->False,Boxed->False],
RevolutionPlot3D[t,{t,0,1.},PlotPoints->121,PlotStyle->Directive[Opacity[0.70],RGBColor[0.7,0,1]],BoxRatios->{1,1,1}],
RevolutionPlot3D[-t,{t,0,1.},PlotPoints->121,PlotStyle->Directive[Opacity[0.70],RGBColor[0.7,0,1.]],BoxRatios->{1,1,1}],
Plot3D[0.,{x,-Sqrt[2],Sqrt[2]},{y,-Sqrt[2],Sqrt[2]},RegionFunction->Function[{x,y,z},x^2+y^2<2],BoxRatios->{1,1,1},Axes->False,PlotStyle->Directive[Opacity[0.70]]],
Plot3D[100y-2x,{x,0.,3.5},{y,-5,5},RegionFunction->Function[{x,y,z},y=0],BoxRatios->{1,1,1},Axes->False,PlotStyle->Directive[Opacity[0.20],Glow[Green]]],
Graphics3D[{Green,Thickness[0.010],Line[{{0,0,-Sqrt[2]},{0,0,Sqrt[2]}}]}],
Graphics3D[{Green,Thickness[0.006],Line[{{0,0,Sqrt[2]},{0.12,0,Sqrt[2]-0.20}}]}],
Graphics3D[{Green,Thickness[0.006],Line[{{0,0,Sqrt[2]},{-0.12,0,Sqrt[2]-0.23}}]}],
Graphics3D[{Yellow,PlotPoints->61,Thickness[0.010],Line[{{0.02,0,0.},{Sqrt[2],0,0.02}}]}],
Graphics3D[{Yellow,Thickness[0.003],Line[{{Sqrt[2]+0.02,0,0.02},{Sqrt[2]-0.3,0.2,0.0}}]}],
Graphics3D[{Yellow,Thickness[0.003],Line[{{Sqrt[2]+0.02,0,0.02},{Sqrt[2]-0.15,-0.10,0.0}}]}],
Graphics3D[{Yellow,PlotPoints->61,Thickness[0.010],Line[{{0.,0,-0.02},{1.02,0,0.98}}]}],
Graphics3D[{Yellow,Thickness[0.004],Line[{{1.04,0,1.02},{1.0,0,0.88}}]}],
Graphics3D[{Yellow,Thickness[0.004],Line[{{1.04,0,1.02},{0.87,0,0.88}}]}],
Graphics3D[{Yellow,PlotPoints->61,Thickness[0.010],Line[{{0.02,0,0.},{1.0,0,-0.98}}]}],
Graphics3D[{Yellow,Thickness[0.004],Line[{{1.02,0,-1.00},{1.0,0,-0.85}}]}],(**)
Graphics3D[{Green,Text[StyleForm["z",FontSize->60,FontWeight->"Bold"],{0.25,0.,1.2}]}],
Graphics3D[{Red,Text[StyleForm["ℏ",FontSize->40,FontWeight->"Bold"],{-0.35,0.,1.}]}],
Graphics3D[{Red,Text[StyleForm["0",FontSize->40,FontWeight->"Bold"],{-0.35,0.,0.}]}],
Graphics3D[{Red,Text[StyleForm["-ℏ",FontSize->40,FontWeight->"Bold"],{-0.35,0.,-1.}]}],
Graphics3D[{Yellow,Text[StyleForm["|𝕊|=(Sqrt[2])ℏ",FontSize->40,FontWeight->"Bold"],{1.5,0.,1.2}]}],
Graphics3D[{Yellow,Text[StyleForm["S=1",FontSize->60],{0.,0.,1.6}]}]
]