Є векторний варіант цього зображення (SVG). Його слід використовувати замість цієї растрової версії для більш якісного відображення. File:Paraboloid of Revolution.png → File:Paraboloid of Revolution.svg Щоб дізнатися більше про векторну графіку, прочитайте статтю «Перетворення зображень у формат SVG». Також доступна інформація про підтримку формату SVG у MediaWiki. На інших мовах 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 ∙ українська ∙ ქართული ∙ հայերեն ∙ বাংলা ∙ தமிழ் ∙ മലയാളം ∙ ไทย ∙ 한국어 ∙ 日本語 ∙ 简体中文 ∙ 繁體中文 ∙ עברית ∙ العربية ∙ فارسی ∙ +/−

 

Опис файлу

ОписParaboloid 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\,}$
Час створення	12 квітня 2007 (дата завантаження)
Джерело	Self-made, using Mathematica 5.1.
Автор	Inductiveload
Ліцензія (Повторне використання цього файлу)	Public domainPublic domainfalsefalse Це зображення не захищається авторським правом, тому що є тривіальним, не несе художньої цінності, складається тільки із загальновідомих елементів, які не мають автора.

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]