\documentclass[tikz,border=15pt]{standalone}
\usepackage{luatexja}
\usetikzlibrary{arrows.meta}
\begin{document}
\begin{tikzpicture}[scale=0.5]
\draw[ultra thick,gray!70!black](2.5,-5.7)--(2.5,-2);
\fill[ball color=gray](2.5,-5.7)
circle[x radius=0.25,y radius=0.35];
\draw[rounded corners=4pt](2.25,1.5)--(2.25,-6)
--(2.75,-6)--(2.75,1.5);
\draw(2.5,1.75)circle(0.15)
(2.5,1.75)circle(0.32);
\draw[rounded corners=2pt](0.25,-3)--(0.25,1.5)
--(-2.5,0)--(-2.5,0.25)--(0.25,1.75)--(0.5,1.75)--(0.5,-3);
\fill[top color=white,bottom color=black](0.6,6.5)
--(0.6,7.75)--(2.4,7.75)--(2.4,6.5);
\draw(0.6,6.5)--(0.6,7.75)--(2.4,7.75)--(2.4,6.5);
%ガラス管のでかいほう
\draw(0,0)--(0,-10) (3,0)--(3,-10);
\draw(1.5,-12)circle[x radius=2.5,y radius=2.5,
start angle=60,end angle=120];
\draw[white,ultra thick](0.1,-9.8)--(2.9,-9.8)
(0.1,-9.9)--(2.9,-9.9) (0.1,-9.7)--(2.9,-9.7)
(0.1,-9.6)--(2.9,-9.6) (0.1,-9.5)--(2.9,-9.5);
\draw(2,0)--(2,-6) (1,0)--(1,-6);
\tikzset{arrow/.style={{<[scale=2]}-}}
\draw[arrow](2.1,-8.4)--(4,-8.4)node[right]{試料};
\draw(1.5,-8)circle[x radius=0.85,y radius=0.3];
\draw(1.5,-7.2)circle[x radius=1,y radius=1.5];
\draw[white,ultra thick](1,-6)--(2,-6)
(1.05,-5.9)--(1.95,-5.9) (1.05,-5.8)--(1.95,-5.8)
(1.1,-5.7)--(1.9,-5.7) (1.1,-5.6)--(1.9,-5.6);
\fill[top color=white,bottom color=black](0,0.5)
--(3,0.5)--(3,-0.5)--(0,-0.5);
\draw(0,0.5)--(3,0.5)--(3,-0.5)--(0,-0.5)--(0,0.5);
\draw[rounded corners=4pt](2,0.5)--(2,2.5)--(8,2.5)--(8,0)
(2,5.5)--(2,3)--(8,3)--(8,7)--(8.5,7)--(8.5,0)
(1,0.5)--(1,3.5)--(-2,4.5)--(-2,5)--(1,4)--(1,5.5);
\draw[rounded corners=2pt](1.9,3.2)--(1.9,3.5)
--(-3,5.25)--(-3,5)--(2,3.2);
\draw(1.5,-12)circle[x radius=2.5,y radius=1,
start angle=60,end angle=120];
\draw[arrow](2.6,-7.2)--(4,-7.2)
node[right]{ガラス小球};
\draw[rounded corners=4pt](1,5.5)--(0.5,6)--(0.5,6.5)
--(0.5,7.5)--(2.5,7.5)--(2.5,7)--(2.5,6)--(2,5.5);
\draw[arrow](1.5,-14.5)--(1.5,-16)node[below]{加熱};
\fill[white](7.75,4.75)--(8.75,4.75)
--(8.75,4)--(7.75,4)--(7.75,4.75);
\draw(7.75,4.75)--(8.75,4.75)--(8.75,4)
--(7.75,4)--(7.75,4.75)
(8.75,4.5)--(8.75,4.25)--(9.25,4.25)
--(9.25,4.5)--(8.75,4.5);
\fill[white](9.3,4.325)circle[x radius=0.25,y radius=0.5];
\draw(9.3,4.325)circle[x radius=0.25,y radius=0.5];
\fill[white](7.75,1.75)--(8.75,1.75)
--(8.75,1)--(7.75,1)--(7.75,1.75);
\draw(7.75,1.75)--(8.75,1.75)--(8.75,1)--(7.75,1)--(7.75,1.75)
(8.75,1.5)--(8.75,1.25)--(9.25,1.25)--(9.25,1.5)--(8.75,1.5);
\fill[white](9.3,1.325)circle[x radius=0.25,y radius=0.5];
\draw(9.3,1.325)circle[x radius=0.25,y radius=0.5];
\draw[rounded corners=4pt]
(8,0)--(7.75,-0.25)--(7.75,-12)--(8,-12.25)--(8.1,-13)
(8.5,0)--(8.75,-0.25)--(8.75,-12)--(8.5,-12.25)--(8.4,-13);
\draw(8.25,-4)circle[x radius=0.5,y radius=0.25];
\draw(8.1,-13)--(8.4,-13);
\foreach \y in {-1,-1.5,...,-11.5}
\draw (8.25,\y) arc[x radius=0.5, y radius=0.2,
start angle=270, end angle=180];
\draw(8.4,-13)arc[x radius=0.9,y radius=2.4,
start angle=200,end angle=340]
(8.1,-13)arc[x radius=1.2,y radius=3,
start angle=200,end angle=340];
\draw[rounded corners=4pt](9.74,0)--(9.75,-0.25)
--(9.75,-12)--(10,-12.25)--(10.1,-13)
(10.76,0)--(10.75,-0.25)--(10.75,-12)
--(10.5,-12.25)--(10.4,-13);
\draw(10.1,-13)--(10.4,-13);
\draw(10.25,-3)circle[x radius=0.5,y radius=0.25];
\draw[arrow](7.75,-2.1)--(7.25,-2.1)
node[left]{ビュレット};
\draw[arrow](-0.8,-13)--(-2,-13)
node[left]{水(もしくは試料より沸点の高い液体)};
\draw[arrow](2.7,1)--(3.5,1)node[right]{温度計};
\end{tikzpicture}
\end{document}