Det finns en vektorversion av denna rasterbild (SVG). När vektorbilden är lämpligare ska den användas istället för rasterbilden. File:Paraboloid of Revolution.png → File:Paraboloid of Revolution.svg För mer information om vektorgrafik, se artikeln Commons transition to SVG (på engelska). På andra språk 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 ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−

 

Sammanfattning

BeskrivningParaboloid 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 (uppladdningsdatum)
Källa	Self-made, using Mathematica 5.1.
Skapare	Inductiveload
Tillstånd (Återanvändning av denna fil)	Public domainPublic domainfalsefalse Upphovsrätt kan inte tillämpas på detta verk som därmed hamnar i public domain; detta på grund av att verket enbart består av information som är allmän egendom och saknar verkshöjd.

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]