跳转到内容

File:Moebius Surface 1 Display Small.png

页面内容不支持其他语言。
这个文件来自维基共享资源
维基百科,自由的百科全书

Moebius_Surface_1_Display_Small.png (180 × 140像素,文件大小:16 KB,MIME类型:image/png


File:Moebius strip.svg是此文件的矢量版本。 如果此文件质量不低于原点阵图,就应该将这个PNG格式文件替换为此文件。

File:Moebius Surface 1 Display Small.png → File:Moebius strip.svg

更多信息请参阅Help:SVG/zh

其他语言
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  українська  ქართული  հայերեն  বাংলা  தமிழ்  മലയാളം  ไทย  한국어  日本語  简体中文  繁體中文  עברית  العربية  فارسی  +/−
新SVG图片

描述

A moebius strip parametrized by the following equations:

,

where n=1.

This plot is for display purposes by itself as a thumbnail. If you are looking for the image that is part of the sequence from n=0 to 1, see below for the other verison, along with a larger version (800px) of this image
日期
来源

Self-made, with Mathematica 5.1

 
本PNG 位图由n使用Mathematica创作。
作者 Inductiveload
授权
(二次使用本文件)
Public domain 我,本作品著作权人,释出本作品至公有领域。这适用于全世界。
在一些国家这可能不合法;如果是这样的话,那么:
我无条件地授予任何人以任何目的使用本作品的权利,除非这些条件是法律规定所必需的。
其他版本
     Mathematical Function Plot
Description Moebius Strip, 1 half-turn (n=1)
Equation :
Co-ordinate System Cartesian (Parametric Plot)
u Range 0 .. 4π
v Range 0 .. 0.3

Mathematica Code

Please be aware that at the time of uploading (15:27, 19 June 2007 (UTC)), this code may take a significant amount of time to execute on a consumer-level computer.
This uses Chris Hill's antialiasing code to average pixels and produce a less jagged image. The original code can be found here.

This code requires the following packages:

<<Graphics`Graphics`
MoebiusStrip[r_:1] =
    Function[
      {u, v, n},
      r {Cos[u] + v Cos[n u/2]Cos[u],
          Sin[u] + v Cos[n u/2]Sin[u],
          v Sin[n u/2],
          {EdgeForm[AbsoluteThickness[4]]}}];

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]
    ]

deg = 1;
gr = ParametricPlot3D[Evaluate[MoebiusStrip[][u, v, deg]],
      {u, 0, 4π},
      {v, 0, .3},
      PlotPoints -> {99, 3},
      PlotRange -> {{-1.3, 1.3}, {-1.3, 1.3}, {-0.7, 0.7}},
      Boxed -> False,
      Axes -> False,
      ImageSize -> 220,
      PlotRegion -> {{-0.22, 1.15}, {-0.5, 1.4}},
      DisplayFunction -> Identity
      ];
finalgraphic = aa[gr];

Export["Moebius Surface " <> ToString[deg] <> ".png", finalgraphic]

说明

添加一行文字以描述该文件所表现的内容

此文件中描述的项目

描绘内容

文件历史

点击某个日期/时间查看对应时刻的文件。

日期/时间缩⁠略⁠图大小用户备注
当前2007年6月19日 (二) 15:312007年6月19日 (二) 15:31版本的缩略图180 × 140(16 KB)Inductiveload
2007年6月19日 (二) 15:302007年6月19日 (二) 15:30版本的缩略图200 × 150(18 KB)Inductiveload
2007年6月19日 (二) 15:272007年6月19日 (二) 15:27版本的缩略图200 × 150(18 KB)Inductiveload{{Information |Description=A moebius strip parametrized by the following equations: :<math>x = \cos u + v\cos\frac{nu}{2}\cos u</math> :<math>y = \sin u + v\cos\frac{nu}{2}\sin u</math> :<math>z = v\sin\frac{nu}{2}</math>, where ''n''=1. This plot is for

以下页面使用本文件:

全域文件用途

以下其他wiki使用此文件: