File:KleinBottle-Figure8-01.png
Summary
Description |
Figure-eight immersion of a Klein bottle into R3. Made with Mathematica. English: The "figure 8" immersion of the Klein bottle.
Italiano: L'immersione a "figura 8" della bottiglia di Klein.
Русский: Реализация бутылки Клейна в виде восьмерки |
||||
Date | 05/08/06 | ||||
Source | Own drawing, Mathematica 5.1 | ||||
Author | Fropuff, Inductiveload | ||||
Permission (Reusing this file) |
The original image was released into the public domain by Fropuff:
The derived, redrawn, edited image was released into the public domain by Inductiveload:
|
||||
Other versions | For a cut-away version see Image:KleinBottle-Figure8-02.png. |
![]() |
File:KleinBottle-Figure8-01.svg is a vector version of this file. It should be used in place of this PNG file when not inferior.Category:Vector version available
File:KleinBottle-Figure8-01.png → File:KleinBottle-Figure8-01.svg
For more information, see Help:SVG. |
Parameterization
This immersion of the Klein bottle into R3 is given by the following parameterization. Here the parameters u and v run from 0 to 2π and r is some fixed positive constant.
Mathematica source
Klein8[r_:2] = Function[{u, v}, { (r + Cos[u/2]Sin[v] - Sin[u/2]Sin[2v]) Cos[u], (r + Cos[u/2]Sin[v] - Sin[u/2]Sin[2v]) Sin[u], Sin[u/2]Sin[v] + Cos[u/2]Sin[2v] } ] ParametricPlot3D[Evaluate[Klein8[][u, v]], {u, 0, 2Pi}, {v, 0, 2Pi}, PlotPoints -> 60, Boxed -> False, Axes -> False, ImageSize -> 800]
This image was then antialised with Chris Hill's code, made transparent around the surface and had stray pixels removed in an image editor.
Category:Klein bottle Category:Images with Mathematica source code