نحوه رسم سطح مقطع مورب در کره با استفاده از Tikz

Question

با سلام و وقت بخیر.
با استفاده از بسته تیکز شکل مورد نظرم را رسم کردم و سطح مقطعهای مورد نظر را هم با استفاده از شکل بیضی قرار دادم. که در sample دیده میشوند. اما مطلوب نبود.
حال دارم با استفاده از دستور arc برای اینکه حجم کره درست دیده بشه، دستور را اصلاح میکنم. اما متاسفانه هیچ راهی برای اینکه صفحات مورب را بتونم قرار بدهم، بدست نیاوردم.

ممنون میشم از راهنمایتون.

Answer 1

کد زیر را ببینید. مقدار R برابر شعاع کُره است. h فاصله از مرکز کره و r شعاع دایره‌ای کوچکتر است که بر اساس R و h به دست می‌آید.

\documentclass[border=5mm]{standalone}
\usepackage{tikz}
\begin{document}
\begin{tikzpicture}
\pgfmathsetmacro{\R}{3}
\pgfmathsetmacro{\h}{1.5}
\pgfmathsetmacro{\r}{sqrt(\R^2-\h^2)}
\shadedraw[ball color=gray!40, opacity=0.4] (0,0) circle (\R);
\draw (0,0) circle (\R);
%
\draw[] (0,\R) arc (90:270: 0.6 and \R);
\draw[dashed] (0,\R) arc (90:270: -0.6 and \R);
\fill[black] (0,-\R) circle (2pt) node[below]{\tiny $E$};
\fill[black] (0,\R) circle (2pt) node[above]{\tiny $C$};
%
\draw[] (-\r,\h) arc (180:360:{\r} and 0.4);
\draw[dashed] (-\r,\h) arc (180:360:{\r} and -0.4);
\fill[black] (-\r,\h) circle (2pt) node [left] {\tiny $H$};
\fill[black] (\r,\h) circle (2pt) node [right] {\tiny $I$};
%
\draw[rotate=60] (\h,\r) arc (90:270: 0.4 and \r);
\draw[rotate=60,dashed] (\h,\r) arc (90:270: -0.4 and \r);
\fill[black] (120:\R) circle (2pt) node [above left] {\tiny $E_3$};
\fill[black] (0:\R) circle (2pt) node [below right] {\tiny $D_3$};
\end{tikzpicture}
\end{document}

Answer 2

سلام
این به دردتون می‌خوره؟

\documentclass[border=5mm]{standalone}
\usepackage{tikz}
\begin{document}
\begin{tikzpicture}
\shadedraw[ball color=gray!40, opacity=0.4] (0,0) circle (1.5cm);
\draw (0,0) circle (1.5cm);
\draw (-1.5,0) arc (180:360:1.5 and 0.4);
\draw[dashed] (1.5,0) arc (0:180:1.5 and 0.4);
\fill[fill=black] (-1.5,0) circle (2pt) node[above left]{{\tiny $E_{0}$}};
\fill[fill=black] (1.5,0) circle (2pt) node[below right]{{\tiny $E_{1}$}};
\draw (0,1.5) arc (90:270:0.4 and 1.5);
\draw[dashed] (0,1.5) arc (90:-90:0.4 and 1.5);
\fill (0,1.5) circle (2pt) node [above] {\tiny $ E_{0} $};
\fill (0,-1.5) circle (2pt) node [below] {\tiny $ E_{1} $};
\draw[rotate=45] (0,1.5) arc (90:270:0.4 and 1.5);
\draw[dashed, rotate=45] (0,1.5) arc (90:-90:0.4 and 1.5);
\fill[black] (135:1.5) circle (2pt) node [above left] {\tiny $ E_0 $};
\fill[black] (-45:1.5) circle (2pt) node [below right] {\tiny $ E_1 $};
\end{tikzpicture}
\end{document}

Comments

ممنونم، اما مشکل من سطح مقطع هایی هستند که از مرکز کره عبور نمیکنند.
رسم اونا را نمیدونم.