分子の双極子モーメント


分子の双極子モーメント

\documentclass[tikz,border=10pt]{standalone}
\usepackage{luatexja}
\usetikzlibrary{arrows.meta}
\begin{document}
\begin{tikzpicture}[scale=1.75] 
\coordinate(o)at(0,0);
\draw(o)circle(2cm);
\draw(-0.2,0.2)node{$O$};
\fill[ball color=blue](o)circle(1.5pt);%origin
\draw(o)--(56.7:0.4)arc(56.7:90.:0.4);%theta angle
\draw(0.18,0.6)node{$\theta$};
\draw(0.5,0.6)node{$\overrightarrow{l}$};
\draw(0.2,-0.15)to[out=220,in=180](-0.18,-0.15);%varphi angle
\draw(0.14,-0.38)node{$\phi$};
\draw[-{>[scale=2]}](1.96,1.45)--(-2.1,-1.5)
  node[above left]{$x$};%x
\draw[-{>[scale=2]}](-2.5,0.25)--(2.5,-0.25)
  node[above right]{$y$};%y
\draw[-{>[scale=2]}](0,-2.5)--(0,2.5)node[above]{$z$};
\draw[rotate around={0.:(0.,0.)},dash dot](0,0)
  ellipse(2cm and 0.7cm);%ellipse
\draw[->,thick](o)--(0.695,1.06);%state vector
\fill[pink!80!magenta,opacity=0.15](o)
  --(0.7,-0.46)--(0.7,1)--(0,1.46);
\draw[dotted](o)--(0.7,-0.46)--(0.7,1)--(0,1.46);%triangle
\draw[dash dot](0,1.38)circle[x radius=1.4,y radius=0.4];
\draw(0.7,1.07)circle(0.07);
\draw(0.695,1.06)node[above]{$+q$};
\draw[dotted](0.7,-0.46)--(1.18,-0.11);
\draw[dotted](0.7,-0.46)--(-0.32,-0.32);
 \fill[blue,opacity=0.1](o)--(1.18,-0.11)
   --(0.7,-0.46)--(-0.44,-0.3);
\draw(0.9,-0.56);
 \draw[fill](0.7,-0.46)circle(0.5pt);
\draw[fill](0,1.46)circle(0.5pt);
\draw[fill](-0.44,-0.3)circle(0.5pt);
\draw(1.5,2.5)node{ (0,0,$\overrightarrow{l}$cos$\theta$)};
\draw[fill](1.18,-0.11)circle(0.5pt);
\draw(3.3,-1)node{(0,$\overrightarrow{l}$sin$\theta$sin$\phi$,0)};
\draw[densely dotted](-2.3,1.1)--(-0.44,-0.3);
\draw(-3,1.2)node{($\overrightarrow{l}$sin$\theta$cos$\phi$,0,0)};
\draw[densely dotted](2.6,-0.9)--(1.18,-0.11);
\draw[densely dotted](1,2.4)--(0,1.46);
\fill[top color=red,bottom color=white](0.7,1.07)circle(0.07);
\draw[densely dotted](0,0)--(-0.5,-1);
\draw(-0.5,-1.1)node{$-q$};
\draw(0,0)circle(0.07);
\fill[top color=blue!25!cyan,bottom color=white](o)circle(2pt);
\end{tikzpicture}
\end{document}