6 Maret 2024

Elemen volume koordinat bola

 

Elemen volume pada sistem koordinat bola.

\begin{tikzpicture}[every node/.style={font=\large}] \usetikzlibrary{calc,intersections} \draw (0,0,0) node [inner sep=0pt](O){} to (3,0,0) node [right]{$y$}; \draw (0,0,0) to (0,3,0) node [above]{$z$}; \draw (0,0,0) to (0,0,4.5) node [shift={(-2mm,-2mm)}]{$x$}; \draw [name path=lingkaranluar] (0,0) circle (2cm); \draw [name path=elipshorizontal, dashed] (0,0) ellipse (2cm and 0.6cm); \draw [name path=elipsvertikal, dashed] (0,0) ellipse (0.9cm and 2cm); \draw [name path=elipsvertikal2, dashed] (0,0) ellipse (1.4cm and 2cm); \draw [name path=elipsatas, dashed] (0,1.5) ellipse (1.25cm and 0.25cm); \draw [name path=elipsatas2, dashed] (0,1.1) ellipse (1.65cm and 0.25cm); \draw [name path=OR, name intersections={of=elipshorizontal and elipsvertikal}] (O) to (intersection-4) node [inner sep=0pt](R){}; \draw [name path=OP,name intersections={of=elipsatas and elipsvertikal},dashed] (0,0) to (intersection-4) coordinate (P); \draw [name path=OP2,name intersections={of=elipsatas2 and elipsvertikal},dashed] (0,0) to (intersection-4) coordinate (P2); \draw [name path=OP3,name intersections={of=elipsatas2 and elipsvertikal2},dashed] (0,0) to (intersection-4) coordinate (P3); \draw [name path=OP4,name intersections={of=elipsatas and elipsvertikal2},dashed] (0,0) to (intersection-4) coordinate (P4); \draw (O) to ($(O)!1.4!(P)$) coordinate(Q); \draw (O) to ($(O)!1.45!(P2)$) coordinate (Q2); \draw (O) to ($(O)!1.35!(P3)$) coordinate(Q3); \draw (O) to ($(O)!1.3!(P4)$) coordinate (Q4); \coordinate (kontrolQQ2) at ($(Q)!0.5!(Q2)+(0.3mm,0)$); \coordinate (kontrolQ2Q3) at ($(Q2)!0.5!(Q3)+(0,-0.3mm)$); \coordinate (kontrolQ3Q4) at ($(Q3)!0.5!(Q4)+(0.15mm,0.9mm)$); \draw [fill=gray!50,opacity=0.6] (P) --(P2) -- (Q2) ..controls (kontrolQQ2).. (Q) -- (P); \draw [fill=gray!50,opacity=0.6] (P2) -- (P3) -- (Q3) ..controls (kontrolQ2Q3).. (Q2) -- (P2); \draw [fill=gray!50,opacity=0.6] (Q) ..controls (kontrolQQ2).. (Q2) ..controls (kontrolQ2Q3).. (Q3) ..controls (kontrolQ3Q4).. (Q4) to (Q); \end{tikzpicture}

ditulis oleh pada

Tidak ada komentar:

Posting Komentar

Langganan: Posting Komentar (Atom)