File:Moebius Surface 1 Display Small.png
Une page de Wikimedia Commons, la médiathèque libre.
Aller à la navigation
Aller à la recherche
- Fichier
- Historique du fichier
- Utilisations locales du fichier
- Utilisations du fichier sur d’autres wikis
Moebius_Surface_1_Display_Small.png (180 × 140 pixels, taille du fichier : 16 kio, type MIME : image/png)
Informations sur le fichier
Données structurées
Légendes
Légendes
Ajoutez en une ligne la description de ce que représente ce fichier
DescriptionMoebius Surface 1 Display Small.png |
A moebius strip parametrized by the following equations:
where n=1. This plot is for display purposes by itself as a thumbnail. If you are looking for the image that is part of the sequence from n=0 to 1, see below for the other verison, along with a larger version (800px) of this image |
|||
Date | ||||
Source |
Self-made, with Mathematica 5.1 ![]() Ce diagramme a été créé avec Mathematica |
|||
Auteur | Inductiveload | |||
Autorisation (Réutilisation de ce fichier) |
|
|||
Autres versions |
![]() | |
---|---|
Description | Moebius Strip, 1 half-turn (n=1) |
Equation | : |
Co-ordinate System | Cartesian (Parametric Plot) |
u Range | 0 .. 4π |
v Range | 0 .. 0.3 |
Mathematica Code
[modifier]![]() |
Please be aware that at the time of uploading (15:27, 19 June 2007 (UTC)), this code may take a significant amount of time to execute on a consumer-level computer. | ![]() |
![]() |
This uses Chris Hill's antialiasing code to average pixels and produce a less jagged image. The original code can be found here. | ![]() |
This code requires the following packages:
<<Graphics`Graphics`
MoebiusStrip[r_:1] = Function[ {u, v, n}, r {Cos[u] + v Cos[n u/2]Cos[u], Sin[u] + v Cos[n u/2]Sin[u], v Sin[n u/2], {EdgeForm[AbsoluteThickness[4]]}}]; aa[gr_] := Module[{siz, kersiz, ker, dat, as, ave, is, ar}, is = ImageSize /. Options[gr, ImageSize]; ar = AspectRatio /. Options[gr, AspectRatio]; If[! NumberQ[is], is = 288]; kersiz = 4; img = ImportString[ExportString[gr, "PNG", ImageSize -> ( is kersiz)], "PNG"]; siz = Reverse@Dimensions[img[[1, 1]]][[{1, 2}]]; ker = Table[N[1/kersiz^2], {kersiz}, {kersiz}]; dat = N[img[[1, 1]]]; as = Dimensions[dat]; ave = Partition[Transpose[Flatten[ListConvolve[ker, dat[[All, All, #]]]] \ & /@ Range[as[[3]]]], as[[2]] - kersiz + 1]; ave = Take[ave, Sequence @@ ({1, Dimensions[ave][[#]], kersiz} & /@ Range[Length[Dimensions[ave]] - 1])]; Show[Graphics[Raster[ave, {{0, 0}, siz/kersiz}, {0, 255}, ColorFunction -> RGBColor]], PlotRange -> {{0, siz[[1]]/kersiz}, { 0, siz[[2]]/kersiz}}, ImageSize -> is, AspectRatio -> ar] ] deg = 1; gr = ParametricPlot3D[Evaluate[MoebiusStrip[][u, v, deg]], {u, 0, 4π}, {v, 0, .3}, PlotPoints -> {99, 3}, PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}, {-0.7, 0.7}}, Boxed -> False, Axes -> False, ImageSize -> 220, PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}}, DisplayFunction -> Identity ]; finalgraphic = aa[gr]; Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]
Historique du fichier
Cliquer sur une date et heure pour voir le fichier tel qu'il était à ce moment-là.
Date et heure | Vignette | Dimensions | Utilisateur | Commentaire | |
---|---|---|---|---|---|
actuel | 19 juin 2007 à 15:31 | ![]() | 180 × 140 (16 kio) | Inductiveload (d | contributions) | |
19 juin 2007 à 15:30 | ![]() | 200 × 150 (18 kio) | Inductiveload (d | contributions) | ||
19 juin 2007 à 15:27 | ![]() | 200 × 150 (18 kio) | Inductiveload (d | contributions) | {{Information |Description=A moebius strip parametrized by the following equations: :<math>x = \cos u + v\cos\frac{nu}{2}\cos u</math> :<math>y = \sin u + v\cos\frac{nu}{2}\sin u</math> :<math>z = v\sin\frac{nu}{2}</math>, where ''n''=1. This plot is for |
Vous ne pouvez pas remplacer ce fichier.
Utilisations locales du fichier
La page suivante utilise ce fichier :
Utilisations du fichier sur d’autres wikis
Les autres wikis suivants utilisent ce fichier :
- Utilisation sur el.wikipedia.org
- Utilisation sur en.wikipedia.org
- Utilisation sur en.wikiversity.org
- Utilisation sur eo.wikipedia.org
- Utilisation sur es.wikipedia.org
- Utilisation sur et.wikipedia.org
- Utilisation sur fr.wikipedia.org
- Utilisation sur it.wikipedia.org
- Utilisation sur ja.wikipedia.org
- Utilisation sur ru.wikipedia.org
- Utilisation sur simple.wikipedia.org
- Utilisation sur zh.wikipedia.org