File:Paraboloid of Revolution.png
Từ Wikimedia Commons, kho lưu trữ phương tiện nội dung mở
Bước tới điều hướng
Bước tới tìm kiếm
Paraboloid_of_Revolution.png (625×520 điểm ảnh, kích thước tập tin: 76 kB, kiểu MIME: image/png)
Thông tin tập tin
Dữ liệu có cấu trúc
Chú thích
Miêu tả
[sửa]Miêu tảParaboloid of Revolution.png |
A 3D rendering of the paraboloid given parametrically by: |
|||
Ngày | 12 tháng 4 năm 2007 (upload date) | |||
Nguồn gốc | Self-made, using Mathematica 5.1. | |||
Tác giả | Inductiveload | |||
Giấy phép (Dùng lại tập tin) |
|
Mathematica Code
[sửa]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]
Lịch sử tập tin
Nhấn vào ngày/giờ để xem nội dung tập tin tại thời điểm đó.
Ngày/Giờ | Hình xem trước | Kích cỡ | Thành viên | Miêu tả | |
---|---|---|---|---|---|
hiện tại | 01:09, ngày 12 tháng 4 năm 2007 | 625×520 (76 kB) | Inductiveload (thảo luận | đóng góp) | == Summary == {{Information |Description=A 3D rendering of the paraboloid given parametrically by:<br> <math>x=\sqrt{u} \cos(v)\,</math><br> <math>y=\sqrt{u} \sin(v)\,</math><br> <math>z=u\,</math><br> |Source=Self-made, using Mathematica 5.1. |Date=12/04 |
Bạn không được phép ghi đè tập tin này.
Trang sử dụng tập tin
Trang sau sử dụng tập tin này:
Sử dụng tập tin toàn cục
Những wiki sau đang sử dụng tập tin này:
- Trang sử dụng tại fr.wikibooks.org
- Trang sử dụng tại fr.wikiversity.org
- Trang sử dụng tại hr.wikipedia.org
- Trang sử dụng tại hy.wikipedia.org
- Trang sử dụng tại ja.wikipedia.org
- Trang sử dụng tại lt.wikipedia.org
- Trang sử dụng tại lv.wikipedia.org
- Trang sử dụng tại nn.wikipedia.org
- Trang sử dụng tại no.wikipedia.org
- Trang sử dụng tại sh.wikipedia.org
- Trang sử dụng tại sl.wikipedia.org
- Trang sử dụng tại sr.wikipedia.org
- Trang sử dụng tại sv.wikipedia.org
- Trang sử dụng tại ta.wikipedia.org
- Trang sử dụng tại th.wikipedia.org
- Trang sử dụng tại uk.wikipedia.org
- Trang sử dụng tại vi.wikipedia.org