dois discos em rotação em torno do eixo z usando tikz-3dplot?

Question

Sou iniciante no tikz-3dplot, quero desenhar esta figura

Usei a explicação dada emJohn Kormylo,

\documentclass[tikz]{standalone}
\usepackage{tikz,tikz-3dplot}
\usetikzlibrary{patterns}% comme shading pour remplir une surface
\begin{document}

%\pgfmathsetmacro{\iAngle}{0}
\tdplotsetmaincoords{70}{110}
\foreach \iAngle in {1,10,...,360}
{
\begin{tikzpicture}[scale=5,tdplot_main_coords]
\coordinate (O) at (0,0,0);
\draw[thick,->] (O) -- (1.5,0,0) node[anchor=north]{$x$};
\draw[thick,->] (O) -- (0,1,0) node[anchor=west]{$y$};
\draw[thick,->] (O) -- (0,0,1) node[anchor=south]{$z$};
\draw[thick, opacity=0.3]
  (0,0,0) -- (1.5,0,0) -- (1.5,1,0) -- (0,1,0) -- cycle;
\fill[pattern=dots,opacity=0.5]
  (0,0,0) -- (1.5,0,0) -- (1.5,1,0) -- (0,1,0) -- cycle; 

  \fill[red,thick] (0,0,0.3) circle (0.3pt) node[left] {$O_1$};

\tdplotsetrotatedcoords{\iAngle}{0}{0}
\begin{scope}[tdplot_rotated_coords]
\draw[red,thick, ->]
 (0.6,0,0.3) -- (1.5,0,0.3) node[above] {$x_1$};
\draw[red,thick, ->]
 (0,0,0.3) -- (0,1,0.3) node[above] {$y_1$};
 \draw[thick, dashed, opacity=1]
  (0,0,0) -- (1.5,0,0);
   \fill[blue,thick] (0.6,0,0.3) circle (0.3pt) node[above] {$A_1$};
    \fill[blue,thick] (1.2,0,0.3) circle (0.3pt) node[above] {$A_2$};
    \draw[pattern=north west lines, pattern color=blue, opacity=0.5 ] (0.6,0,0.3) circle (0.7); 
     \draw[pattern=north west lines, pattern color=green, opacity=0.5 ] (1.2,0,0.3) circle (0.7);
      \draw[thick, dashed, opacity=1]
  (0,0,0.3) -- (0.6,0,0.3);
  \draw[thick, line, opacity=1]
  (0.6,0,0.3) -- (1.2,0,0.3);
\end{scope}
\end{tikzpicture}
}
\end{document}

Eu tenho a seguinte figura, mas não está completa,

como posso corrigir as coordenadas principais na animação?

como adicionar vetores unitários relacionados a discos?

que ângulo pode me dar uma visão engraçada?

alguém pode me ajudar, para realizar este trabalho

Answer 1

Removi o lineargumento defeituoso, fiz uma caixa de bouding de modo que a imagem não saltasse e, o mais importante, fiz os círculos ortogonais aos eixos rotativos.

\documentclass[tikz]{standalone}
\usepackage{tikz,tikz-3dplot}
\usetikzlibrary{patterns}% comme shading pour remplir une surface
\begin{document}

\pgfmathsetmacro{\RelativeSpeed}{0.3}
\tdplotsetmaincoords{70}{110}
\foreach \iAngle in {1,5,...,360}
{
\begin{tikzpicture}[scale=5,tdplot_main_coords]
\useasboundingbox[tdplot_screen_coords] (-1.8,-1) rectangle (1.4,1.4);
\coordinate (O) at (0,0,0);
\draw[thick,->] (O) -- (1.5,0,0) node[anchor=north]{$x$};
\draw[thick,->] (O) -- (0,1,0) node[anchor=west]{$y$};
\draw[thick,->] (O) -- (0,0,1) node[anchor=south]{$z$};
\draw[thick, opacity=0.3]
  (0,0,0) -- (1.5,0,0) -- (1.5,1,0) -- (0,1,0) -- cycle;
\fill[pattern=dots,opacity=0.5]
  (0,0,0) -- (1.5,0,0) -- (1.5,1,0) -- (0,1,0) -- cycle; 

  \fill[red,thick] (0,0,0.3) circle (0.3pt) node[left] {$O_1$};

\tdplotsetrotatedcoords{\iAngle}{00}{0}
\begin{scope}[tdplot_rotated_coords]
\draw[red,thick, ->]
 (0.6,0,0.3) -- (1.5,0,0.3) node[above] {$x_1$};
\draw[red,thick, ->]
 (0,0,0.3) -- (0,1,0.3) node[above] {$y_1$};
 \draw[thick, dashed, opacity=1]
  (0,0,0) -- (1.5,0,0);
   \coordinate[label=above:$A_1$] (A1) at (0.6,0,0.3);
   \coordinate[label=above:$A_2$] (A2) at (1.2,0,0.3);
   \fill[blue,thick] (A1) circle (0.3pt);
   \fill[blue,thick] (A2) circle (0.3pt);
\end{scope}
\tdplotsetrotatedcoords{\iAngle}{90}{0}
\begin{scope}[tdplot_rotated_coords]
    \draw[pattern=north west lines, pattern color=blue, opacity=0.5 ] (A1) circle (0.7); 
    \draw[pattern=north west lines, pattern color=green, opacity=0.5 ] (A2) circle (0.7);
    \pgfmathsetmacro{\jAngle}{\RelativeSpeed*\iAngle}
    \draw[-latex,blue] (A1) -- ++({-0.7*cos(\jAngle)},{0.7*sin(\jAngle)},0)node[right]{$y_1'$}; 
    \draw[-latex,blue] (A1) -- ++({0.7*sin(\jAngle)},{0.7*cos(\jAngle)},0)node[right]{$x_1'$};  
    \draw[-latex,green] (A2) -- ++(-0.7,0,0)node[right]{$y_2'$};    
    \draw[-latex,green] (A2) -- ++(0,0.7,0)node[right]{$x_2'$}; 
\end{scope}
\tdplotsetrotatedcoords{\iAngle}{00}{0}
\begin{scope}[tdplot_rotated_coords]
      \draw[thick, dashed, opacity=1]
  (0,0,0.3) -- (0.6,0,0.3);
  \draw[thick, -, opacity=1]
  (0.6,0,0.3) -- (1.2,0,0.3);
\end{scope}
\end{tikzpicture}
}
\end{document}

ATUALIZAR: Espero ter atendido seus pedidos. Nesta versão, o quadro azul gira a 30% da velocidade de rotação do quadro grande. A velocidade relativa é definida pelo parâmetro \RelativeSpeed. Você pode usar o mesmo truque para girar a moldura verde ou girá-la com uma velocidade diferente. Na verdade, escrever o código é bastante simples, mas estou lutando para converter o PDF em um GIF animado. (Por que isso é tão complicado? Por que demora tanto?) Portanto, eu estaria ansioso para aprender uma maneira mais eficiente de fazer isso.