Существует векторная версия этого изображения. Её следует использовать, если качество её не хуже, чем эта растровая версия. 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]