From 1ed828da721157115f5620c23b15662a2fb0de05 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Andreas=20M=C3=BCller?= Date: Mon, 3 Jan 2022 16:56:27 +0100 Subject: Mantellinien zur Kegelschnittgraphik --- .../030-geometrie/images/kegelschnitte.jpg | Bin 158373 -> 174074 bytes .../030-geometrie/images/kegelschnitte.pdf | Bin 179256 -> 194994 bytes .../030-geometrie/images/kegelschnitte.pov | 46 ++++++++++- .../030-geometrie/images/kegelschnitte.tex | 88 +++++++++++++-------- buch/chapters/030-geometrie/laenge.tex | 10 ++- 5 files changed, 109 insertions(+), 35 deletions(-) (limited to 'buch/chapters/030-geometrie') diff --git a/buch/chapters/030-geometrie/images/kegelschnitte.jpg b/buch/chapters/030-geometrie/images/kegelschnitte.jpg index 5d0b329..75fc133 100644 Binary files a/buch/chapters/030-geometrie/images/kegelschnitte.jpg and b/buch/chapters/030-geometrie/images/kegelschnitte.jpg differ diff --git a/buch/chapters/030-geometrie/images/kegelschnitte.pdf b/buch/chapters/030-geometrie/images/kegelschnitte.pdf index aa697f4..c2205bf 100644 Binary files a/buch/chapters/030-geometrie/images/kegelschnitte.pdf and b/buch/chapters/030-geometrie/images/kegelschnitte.pdf differ diff --git a/buch/chapters/030-geometrie/images/kegelschnitte.pov b/buch/chapters/030-geometrie/images/kegelschnitte.pov index 60e6964..6b6388b 100644 --- a/buch/chapters/030-geometrie/images/kegelschnitte.pov +++ b/buch/chapters/030-geometrie/images/kegelschnitte.pov @@ -13,6 +13,7 @@ global_settings { #declare imagescale = 0.090; #declare r = 0.03; #declare R = 1.3 * r; +#declare rkurve = 0.6 * r; camera { location <-33, 20, 50> @@ -77,6 +78,7 @@ union { #declare kurvenfarbe = rgb<0.4,0.8,0>; #declare leitfarbe = rgb<0.8,0.2,0.8>; #declare ebenenfarbe = rgbt<0.6,0.4,0.2,0.0>; +#declare mantelfarbe = rgb<0.2,0.6,1.0>; #declare kegelhoehe = 3; #declare kegelradius = 1.4; @@ -150,6 +152,32 @@ intersection { } } +#declare ymantel = kegelradius - 1; +#declare xmantel = sqrt(kegelradius*kegelradius-ymantel*ymantel); + +union { + cylinder { + <3+xmantel,-kegelhoehe,ymantel>, + <3-xmantel,kegelhoehe,-ymantel>, + 0.5 * rkurve + } + sphere { <3+xmantel,-kegelhoehe,ymantel>, 0.5 * rkurve } + sphere { <3-xmantel,kegelhoehe,-ymantel>, 0.5 * rkurve } + cylinder { + <3-xmantel,-kegelhoehe,ymantel>, + <3+xmantel,kegelhoehe,-ymantel>, + 0.5 * rkurve + } + sphere { <3-xmantel,-kegelhoehe,ymantel>, 0.5 * rkurve } + sphere { <3+xmantel,kegelhoehe,-ymantel>, 0.5 * rkurve } + pigment { + color mantelfarbe + } + finish { + specular 0.5 + metallic + } +} #declare e3 = <0, 1, 0>; #declare tunten = -offsethyperbel / vdot(nparabel-nhyperbel, e3); @@ -185,7 +213,6 @@ intersection { Origin + (-a * cosh(s) * xaxis + b * sinh(s) * yaxis) #end -#declare rkurve = 0.6 * r; // Hyperbel union { @@ -279,6 +306,23 @@ intersection { } } +union { + cylinder { + <0,-kegelhoehe,kegelradius>, + <0,kegelhoehe,-kegelradius>, + 0.5 * rkurve + } + sphere { <0,-kegelhoehe,kegelradius>, 0.5 * rkurve } + sphere { <0,kegelhoehe,-kegelradius>, 0.5 * rkurve } + pigment { + color mantelfarbe + } + finish { + specular 0.5 + metallic + } +} + ebene(0, nparabel, offsetparabel, 0.5) #declare tcenter = 0.5 * offsetparabel / vdot(nparabel, e3); diff --git a/buch/chapters/030-geometrie/images/kegelschnitte.tex b/buch/chapters/030-geometrie/images/kegelschnitte.tex index b8067ad..bb91d0d 100644 --- a/buch/chapters/030-geometrie/images/kegelschnitte.tex +++ b/buch/chapters/030-geometrie/images/kegelschnitte.tex @@ -18,6 +18,7 @@ \definecolor{fokusfarbe}{rgb}{0.8,0.0,0.0} \definecolor{scheitelfarbe}{rgb}{0,0.6,0} \definecolor{leitfarbe}{rgb}{0.8,0.2,0.8} +\definecolor{mantelfarbe}{rgb}{0.2,0.6,1.0} \newboolean{showgrid} \setboolean{showgrid}{false} @@ -37,38 +38,56 @@ \fill (0,0) circle[radius=0.05]; }{} +% +% Lage der Schnittebene +% \begin{scope}[yshift=-7.5cm] - -\begin{scope} -\clip (-2,-2.5) rectangle (2,1.5); -\fill[color=kegelfarbe!40] - (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; -\begin{scope}[xshift=0.5cm] -\draw[color=ebenenfarbe,line width=1.4pt] - (-1.4,-3) -- (1.4,3); -\end{scope} -\end{scope} - -\begin{scope}[xshift=-4.5cm] -\clip (-2,-2.5) rectangle (2,1.5); -\fill[color=kegelfarbe!40] - (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; -\begin{scope}[xshift=-0.3cm] -\draw[color=ebenenfarbe,line width=1.4pt] (-0.4,-3) -- (0.4,3); -\end{scope} -\end{scope} - -\begin{scope}[xshift=4.5cm] -\clip (-2,-2.5) rectangle (2,1.5); -\fill[color=kegelfarbe!40] - (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; -\begin{scope}[xshift=0.9cm] -\draw[color=ebenenfarbe,line width=1.4pt] (-3.4,-3) -- (3.4,3); -\end{scope} -\end{scope} + % Hyperbel + \begin{scope}[xshift=-4.5cm] + \clip (-2,-2.5) rectangle (2,1.5); + \fill[color=kegelfarbe!40] + (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; + \begin{scope}[xshift=-0.3cm] + \draw[color=ebenenfarbe,line width=1.4pt] + (-0.4,-3) -- (0.4,3); + \end{scope} + \begin{scope} + \draw[color=mantelfarbe,line width=1.2pt] + (-0.4,-3) -- (0.4,3); + \end{scope} + \end{scope} + + % Parabel + \begin{scope} + \clip (-2,-2.5) rectangle (2,1.5); + \fill[color=kegelfarbe!40] + (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; + \begin{scope}[xshift=0.5cm] + \draw[color=ebenenfarbe,line width=1.4pt] + (-1.4,-3) -- (1.4,3); + \end{scope} + \begin{scope} + \draw[color=mantelfarbe,line width=1.2pt] + (-1.4,-3) -- (1.4,3); + \end{scope} + \end{scope} + + % Ellipse + \begin{scope}[xshift=4.5cm] + \clip (-2,-2.5) rectangle (2,1.5); + \fill[color=kegelfarbe!40] + (-1.4,-3) -- (1.4,-3) -- (-1.4,3) -- (1.4,3) -- cycle; + \begin{scope}[xshift=0.9cm] + \draw[color=ebenenfarbe,line width=1.4pt] + (-3.4,-3) -- (3.4,3); + \end{scope} + \end{scope} \end{scope} +% +% Beschriftung der 3D-Abbildung +% \def\marke#1#2#3#4{ \fill[color=white,opacity=0.5] ({#1-0.25},{#2-0.2}) rectangle ({#1+0.20},{#2+0.2}); @@ -97,15 +116,18 @@ \marke{5.3}{-0.0}{scheitelfarbe}{$S_2$} \node[color=yellow] at (4.8,-2.7) [below right] {$P$}; +% +% Beschriftung und geometrische Örter +% \begin{scope}[yshift=-5.5cm] -\node at (-4.5,0) + \node at (-4.5,0) {Hyperbel: $\overline{F_1P}-\overline{F_2P}=\text{const}$\strut}; -\fill[color=white,opacity=0.7] (-1.3,-0.25) rectangle (1.3,0.25); -\node at (0,0) {Parabel: $\overline{FP}=\overline{lP}$\strut}; + \fill[color=white,opacity=0.7] (-1.3,-0.25) rectangle (1.3,0.25); + \node at (0,0) {Parabel: $\overline{FP}=\overline{lP}$\strut}; -\fill[color=white,opacity=0.7] (2.4,-0.25) rectangle (6.6,0.25); -\node at (4.5,0) + \fill[color=white,opacity=0.7] (2.4,-0.25) rectangle (6.6,0.25); + \node at (4.5,0) {Ellipse: $\overline{F_1P}+\overline{F_2P}=\text{const}$\strut}; \end{scope} diff --git a/buch/chapters/030-geometrie/laenge.tex b/buch/chapters/030-geometrie/laenge.tex index e82577f..93cba0a 100644 --- a/buch/chapters/030-geometrie/laenge.tex +++ b/buch/chapters/030-geometrie/laenge.tex @@ -286,7 +286,15 @@ was mit der Integralformel~\ref{buch:geometrie:eqn:kreislaenge} \centering \includegraphics{chapters/030-geometrie/images/kegelschnitte.pdf} \caption{Hyperbeln, Parabeln und Ellipsen sind die Schnittkurven einer -Ebene mit einem Kegel +Ebene mit einem Kegel. +Der Winkel zwischen der Achse des Kegels und der Schnittebene bestimmt, +welche Art von Schnittkurve entsteht. +Wenn keine der Mantellinien des Kegels parallel ist zur Ebene, dann +entsteht eine Ellipse (rechts). +In der Mitte ist genau eine Mantellinie (hellblau) parallel zur Ebene, +es ensteht eine Parabel und links gibt es genau zwei verschiedene +Mantellinien des Kegels (hellblau), die zur Ebene parallel sind, +es entsteht eine Hyperbel. \label{buch:geometrie:laenge:fig:kegelschnitte}} \end{figure} Eine Hyperbel entsteht durch Schneiden eines geraden Kreiskegels mit -- cgit v1.2.1