ボルダの振り子の実験装置


ボルダの振り子の実験装置

\documentclass[tikz,border=10pt]{standalone}
\begin{document}
\begin{tikzpicture}[scale=0.1]
%ステージを乗せる部分の色
\fill[top color=white,bottom color=pink!83!cyan](-1,-5)--(-10,-12)
  --(-10,-13)--(2,-13)--(5,-10)--(5,-9)--(6,-9)--(9,-6)--(9,-5);
%ステージ
\fill[top color=white,bottom color=lightgray](3.5,-9)--(3.5,-9.5)
  --(2,-11)--(-7,-11)--(-7,-10.5)--(-1,-5.8)--(7,-5.8)
  --(7,-6.3)--(5.5,-7.8)--(0,-7.8)--(-1.3,-9);
\draw(-7,-10.5)--(2,-10.5) (-7,-11)--(2,-11) (2,-11)--(2,-10.5)
  (-7,-10.5)--(-7,-11) (-7,-10.5)--(-1,-5.8) (7,-5.8)--(-1,-5.8)
  (3.5,-9)--(2,-10.5) (3.5,-9.5)--(2,-11) (3.5,-9)--(3.5,-9.5)
  (7,-5.8)--(7,-6.3) (7,-5.8)--(5.5,-7.2) (5.5,-7.8)--(7,-6.3)
  (5.5,-7.2)--(5.5,-7.8) (3.5,-9)--(-2,-9) (0,-7.2)--(-2,-9)
  (0,-7.2)--(5.5,-7.2) (5.5,-7.8)--(0,-7.8) (0,-7.2)--(0,-7.8)
  (-1.3,-9)--(0,-7.8) (9,-11)--(4,-11) (0,0)--(10,0)
  (10,-10)--(9,-11) (-1,-1)--(9,-1) (10,0)--(9,-1) (10,0)--(10,-10)
  (9,-1)--(9,-11) (0,0)--(-1,-1) (6,-9)--(9,-6) (-1,-5)--(9,-5)
  (-1,-1)--(-1,-5) (9,-5)--(6,-8) (6,-8)--(6,-9) (-1,-5)--(-10,-12)
  (-10,-12)--(2,-12) (2,-12)--(2,-13) (-10,-13)--(2,-13)
  (-10,-12)--(-10,-13) (2,-13)--(5,-10) (2,-12)--(5,-9)
  (5,-10)--(5,-9) (0,-8)--(6,-8) (3,-9)--(6,-9)
  (0,-9)--(0,-8) (0,-8)--(-1,-9);

%滑り止めみたいなの
\draw(0,-7)--(3.5,-7)--(4,-6.5)--(0.5,-6.5)--(0,-7);
\fill[top color=gray,bottom color=black](0,-7)
  --(3.5,-7)--(4,-6.5)--(0.5,-6.5)--(0,-7);

\draw(-2.5,-9.75)--(1,-9.75)--(1.5,-9.25)
  --(-2,-9.25)--(-2.5,-9.75);
\fill[top color=gray,bottom color=black](-2.5,-9.75)
  --(1,-9.75)--(1.5,-9.25)--(-2,-9.25)--(-2.5,-9.75);

%ネジ
\fill[top color=white,bottom color=lightgray](4.8,-6)
  --(4.8,-6.8)--(5.2,-6.8)--(5.2,-6);
\draw(4.8,-6)--(4.8,-6.8)--(5.2,-6.8)--(5.2,-6);
\draw(1.7,-9)--(1.7,-9.8)--(1.3,-9.8)--(1.3,-9);
\fill[top color=white,bottom color=lightgray](-2.2,-7.5)
  --(-2.2,-8.3)--(-1.8,-8.3)--(-1.8,-7.5);
\draw(-2.2,-7.5)--(-2.2,-8.3)--(-1.8,-8.3)--(-1.8,-7.5);
\foreach \coord in {(5,-6),(-2,-7.5),(1.5,-9)}
  \fill[top color=white, bottom color=lightgray]
    \coord circle[x radius=0.8, y radius=0.4];
\foreach \coord in {(-2,-7.5),(1.5,-9),(5,-6)}
  \draw \coord circle[x radius=0.8, y radius=0.4];

%振り子の上の部分
\fill[top color=lightgray,bottom color=gray](2.75,-6.3)
  --(1.75,-6.3)--(-0.5,-8.7)--(0,-9.5)--(2.25,-7.25);
\draw(1.75,-6.3)--(2.75,-6.3)--(0.5,-8.7)--(-0.5,-8.7)--(1.75,-6.3);
\draw(0.5,-8.7)--(0,-9.5)--(-0.5,-8.7);
\draw(2.75,-6.3)--(2.25,-7.25);
\draw(0,-9.5)--(2.25,-7.25);
%振り子の上の部分の持ち手みたいなの

\fill[top color=lightgray,bottom color=gray](1.2,-6)
  --(1.2,-7.5)--(0.9,-7.5)--(0.9,-6);
\draw(1.2,-6)--(1.2,-7.5)--(0.9,-7.5)--(0.9,-6);
\fill[top color=lightgray,bottom color=gray]
  (1,-6)circle[x radius=0.8,y radius=0.4];
\draw(1,-6)circle[x radius=0.8,y radius=0.4];
\fill[top color=lightgray,bottom color=gray](1.2,-5.9)
  --(1.2,-5.3)--(0.9,-5.3)--(0.9,-5.9)--(1.2,-5.9);

\draw(1.2,-5.9)--(1.2,-5.3)--(0.9,-5.3)--(0.9,-5.9)--(1.2,-5.9);

%締めネジ
\fill[top color=lightgray,bottom color=gray](0.7,-13.1)
  --(0.8,-13.5)--(1.1,-13.5)--(1.2,-13.1);
\draw(0.7,-13)--(0.8,-13.5)--(1.1,-13.5)--(1.2,-13);

%目盛
\fill[top color=white,bottom color=lightgray](-3,-25)--(11,-25)
  --(11,-23)--(-3,-23)--(-3,-25);
\draw(-3,-25)--(11,-25)--(11,-23)--(-3,-23)--(-3,-25);
\draw(-2,-23)--(-2,-24);
\draw(-1,-23)--(-1,-24);
\draw(0,-23)--(0,-24);
\draw(1,-23)--(1,-24);
\draw(2,-23)--(2,-24);
\draw(3,-23)--(3,-24);
\draw(4,-23)--(4,-24);
\draw(5,-23)--(5,-24);
\draw(6,-23)--(6,-24);
\draw(7,-23)--(7,-24);
\draw(8,-23)--(8,-24);
\draw(9,-23)--(9,-24);
\draw(10,-23)--(10,-24);

%望遠鏡
\draw(15,-25.5)--(25,-25);
\draw(15,-22)--(25,-22.5);
\draw(15,-23.8)circle[x radius=0.8,y radius=1.6];
\draw(25,-23.8)circle[x radius=0.6,y radius=1.2];
\fill[white](15.1,-23.8)circle[x radius=0.8,y radius=1.6];

%目
\draw(27,-23)to[out=80,in=100](32,-24);
\draw(27,-23)to[out=80,in=90](32,-24.8);
\draw(28.3,-23.7)circle(1.5);
\fill[ball color=black](28.3,-23.7)circle(1.5);
\draw(27.5,-21)to[out=120,in=250](27.5,-22.2);
\draw(26.5,-21)to[out=120,in=250](27.5,-22.2);
\draw(26,-21.5)to[out=200,in=300](27.5,-22.2);

%玉の台
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.95,-40.5)circle[x radius=1.8,y radius=1.2];
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.95,-41)circle[x radius=1.8,y radius=1.2];
\draw(0.95,-41)circle[x radius=1.8,y radius=1.2];
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.95,-40.5)circle[x radius=1.8,y radius=1.2];
\draw(0.95,-40.5)circle[x radius=1.8,y radius=1.2];
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.4,-39)--(0.4,-40.5)--(1.4,-40.5)--(1.4,-39);
\draw(0.4,-39)--(0.4,-40.5)--(1.4,-40.5)--(1.4,-39);
\fill[top color=white,bottom color=yellow!15!lightgray]
  (-4,-39)--(-4,-38)--(-2,-36)--(5,-36)--(5,-37)--(3,-39);
\draw(-4,-39)--(-4,-38) (3,-39)--(3,-38) (5,-37)--(5,-36)
  (-2,-36)--(-4,-38) (5,-36)--(3,-38) (5,-36)--(-2,-36)
  (3,-38)--(-4,-38) (-4,-39)--(3,-39)--(5,-37);
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.4,-33)--(1.4,-33)--(1.4,-37)--(0.4,-37)--(0.4,-33);
\draw(0.4,-33)--(1.4,-33)--(1.4,-37)--(0.4,-37)--(0.4,-33);
\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.95,-33.5)circle[x radius=1.8,y radius=1.2];

\draw(0.95,-33.5)circle[x radius=1.8,y radius=1.2];

\fill[top color=white,bottom color=yellow!15!lightgray]
  (0.95,-33)circle[x radius=1.8,y radius=1.2];
\draw(0.95,-33)circle[x radius=1.8,y radius=1.2];

%玉
\fill[ball color=white](7.2,-29)circle(2);
\fill[ball color=lightgray](0.95,-31)circle(2);
\draw[densely dotted](0.95,-13.5)--(6.5,-28);
\draw(0.95,-13.5)--(0.95,-30);
\draw(0.95,-31)circle(2);
\draw(2,-16)to[out=270,in=270](1,-16.5);
\draw(1.7,-18.2)node[font=\scriptsize]{$\theta $};
\fill[white,opacity=0.4](7.2,-29)circle(2);
\end{tikzpicture}
\end{document}