File:Ripple Surface.png
Us Wikimedia Commons
Zur Navigation springen
Zur Suche springen
Ripple_Surface.png (800 × 527 Pixel, Dateigrößi: 214 KB, MIME-Typ: image/png)
Dateiinformationen
Strukturierte Daten
Bildtexte
Bschryybig[ändere]
BschryybigRipple Surface.png |
A 3D rendering of the surface given by: |
Datum | 12. April 2007 (Hochladedatum) |
Quälle | Self-made, using Mathematica 5.1. |
Urheber | Inductiveload |
Mathematica Code[ändere]
This code does not require any modules to be loaded. It uses Chris Hill's Anti-aliasing code.
gr = Plot3D[Cos[x^2 + y^2], {x, -4, 4}, {y, -4, 4}, PlotPoints -> 600, Mesh -> False, BoxRatios -> {2, 2, 0.2}, Ticks -> False, Axes -> False, Boxed -> False, ImageSize -> 800] 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] ] finalgraphic = aa[gr]
Lizänzierig[ändere]
Public domainPublic domainfalsefalse |
Ich, dr Urheberrächtsinhaber vu däm Wärch, tue s as gmeinfrej vereffentlige . Des giltet wältwyt. In mänke Staate chennt des rächtli nit megli syy. Wänn des imfall eso isch: Ich gib e jedem s bedingiglos Rächt, des Wärch jedwädere Zwäck z nutze, ußer s git gesetzlig erforderligi Bedingige. |
Dateiversione
Klick uf e Zytpunkt zu aazeige, wie s dert usgsäh het.
Version vom | Vorschaubild | Mäß | Benutzer | Kommentar | |
---|---|---|---|---|---|
aktuell | 00:03, 12. Apr. 2007 | 800 × 527 (214 KB) | Inductiveload (Diskussion | Byträg) | {{Information |Description=A 3D rendering of the surface given by:<br> <math>z=\cos \left(x^2+y^2\right)</math> |Source=Self-made, using Mathematica 5.1. |Date=12/04/2007 |Author=User:Inductiveload |other_versions= }} ==Mathematica Code== This code |
Du chasch die Datei nit iberschryybe.
Verwändig vu dr Datei
Die Syte bruucht die Datei:
Wältwyti Dateinutzig
Die andere Wikis bruche die Datei:
- Gebruch uf als.wikipedia.org
- Gebruch uf it.wikipedia.org
- Gebruch uf oc.wikipedia.org
- Gebruch uf pt.wikibooks.org
- Gebruch uf pt.wikiversity.org