Dostupna je vektorska inačica (SVG) ove slike. Trebala bi se koristiti umjesto ove rasterske slike ako je kvalitetnija. File:Paraboloid of Revolution.png → File:Paraboloid of Revolution.svg Za više informacija o vektorskoj grafici, pročitajte o prelasku Zajedničkog poslužitelja na SVG. Također pročitajte informacije o podršci MediaWiki softvera slikama u SVG formatu. Na drugim jezicima Alemannisch ∙ Bahasa Indonesia ∙ Bahasa Melayu ∙ British English ∙ català ∙ čeština ∙ dansk ∙ Deutsch ∙ eesti ∙ English ∙ español ∙ Esperanto ∙ euskara ∙ français ∙ Frysk ∙ galego ∙ hrvatski ∙ Ido ∙ italiano ∙ lietuvių ∙ magyar ∙ Nederlands ∙ norsk bokmål ∙ norsk nynorsk ∙ occitan ∙ Plattdüütsch ∙ polski ∙ português ∙ português do Brasil ∙ română ∙ Scots ∙ sicilianu ∙ slovenčina ∙ slovenščina ∙ suomi ∙ svenska ∙ Tiếng Việt ∙ Türkçe ∙ vèneto ∙ Ελληνικά ∙ беларуская (тарашкевіца) ∙ български ∙ македонски ∙ нохчийн ∙ русский ∙ српски / srpski ∙ татарча/tatarça ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−

 

Opis izmjene

OpisParaboloid of Revolution.png	A 3D rendering of the paraboloid given parametrically by: ${\displaystyle x={\sqrt {u}}\cos(v)\,}$ ${\displaystyle y={\sqrt {u}}\sin(v)\,}$ ${\displaystyle z=u\,}$
Datum	12. april 2007. (datum postavljanja)
Izvor	Self-made, using Mathematica 5.1.
Autor	Inductiveload
Dopuštenje (Ponovna upotreba ove datoteke)	Public domainPublic domainfalsefalse Ova slika je javno dobro („public domain“), jer sadrži samo opće informacije koje ne dostižu kreativni nivo potreban za copyright.

Mathematica Code

This code does not require any modules to be loaded. It uses Chris Hill's Anti-aliasing code.

gr = ParametricPlot3D[
      {Sqrt[u]Cos[v], Sqrt[u]Sin[v], u, {EdgeForm[AbsoluteThickness[4]]}},
      {u, 0, 1},
      {v, 0, 2π},
      BoxRatios -> {1, 1, 0.8},
      PlotPoints -> {10, 50},
      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]