Annulus
更多信息和选项
- Annulus 也被称作空心圆盘.
- Annulus 可以用作几何区域和图形基元.
- Annulus[] 等价于 Annulus[{0,0},{1/2,1}].
- Annulus[r] 等价于 Annulus[{0,0},{r/2,r}].
- Annulus[{rinner,router}] 等价于 Annulus[{0,0},{rinner,router}].
- Annulus 表示填充的区域
或
. - Annulus 允许
和
. - 角度从正 x 方向按逆时针方向以弧度度量.
- Annulus 可用于 Graphics.
- 在图形中,点 {xi,yi} 可以是 Dynamic 表达式.
- 图形渲染受诸如 FaceForm、EdgeForm 和颜色等指令的影响.
范例
打开所有单元 关闭所有单元基本范例 (4)
Annulus[]Graphics[Annulus[]]Graphics[{Orange, Annulus[{0, 0}, {1 / 2, 1}, {0, 3Pi / 2}]}]{Graphics[{Pink, Annulus[]}], Graphics[{EdgeForm[Thick], Pink, Annulus[]}], Graphics[{EdgeForm[Dashed], Pink, Annulus[]}], Graphics[{EdgeForm[Directive[Thick, Dashed, Blue]], Pink, Annulus[]}]}得到圆环的 Area:
Area[Annulus[{0, 0}, {1 / 2, 1}]]Area[Annulus[{0, 0}, {r / 2, r}, {0, 3Pi / 2}]]范围 (17)
图形 (7)
规范 (4)
Graphics[{Red, Annulus[1], Green, Annulus[3], Blue, Annulus[7]}]Graphics[{Red, Annulus[{0, 0}, {1, 2}], Green, Annulus[{1, 1}, {1, 2}], Blue, Annulus[{2, 2}, {1, 2}]}]Graphics[Annulus[{0, 0}, {1, 2}, {0, 3Pi / 2}]]Graphics[Annulus[{0, 0}, {1, 2}, {-2Pi / 3, -1Pi / 3}]]Graphics[Annulus[], Frame -> True]样式 (2)
Table[Graphics[{c, Annulus[]}], {c, {Red, Green, Blue, Yellow}}]FaceForm 和 EdgeForm 可用于指定内部和边界的样式:
Graphics[{FaceForm[Pink], EdgeForm[Directive[Dashed, Thick, Blue]], Annulus[]}]Graphics[{Yellow, EdgeForm[Directive[Thick, Blue]], Annulus[]}]坐标 (1)
点可以是 Dynamic:
DynamicModule[{x}, {Slider[Dynamic[x], {-.7, .7}], Graphics[{Annulus[], Annulus[Dynamic[{x, 2}], 1 / 4]}]}]区域 (10)
RegionEmbeddingDimension[Annulus[{``x``, ``y``}, {Subscript[``r``, ``inner``], Subscript[``r``, ``outer``]}]]RegionDimension[Annulus[{``x``, ``y``}, {Subscript[``r``, ``inner``], Subscript[``r``, ``outer``]}]]{RegionMember[Annulus[], {0, 0}], RegionMember[Annulus[], {0, 1}]}RegionMember[Annulus[{Subscript[x, 0], Subscript[y, 0]}, {Subscript[``r``, ``inner``], Subscript[``r``, ``outer``]}], {x, y}]ℛ = Annulus[];{Area[ℛ], RegionMeasure[ℛ]}c = RegionCentroid[ℛ]Graphics[{{Pink, ℛ}, {Blue, Point[c]}}]ℛ = Annulus[];{RegionDistance[ℛ, {1, 2}], RegionDistance[ℛ, {0, 0}]}{Plot3D[Evaluate@RegionDistance[ℛ, {x, y}], {x, -2, 2}, {y, -2, 2}, MeshFunctions -> {#3&}, Mesh -> 5, Exclusions -> Norm[{x, y}] == 1], ContourPlot[Evaluate@RegionDistance[ℛ, {x, y}], {x, -3, 3}, {y, -3, 3}, Contours -> {{0.5, Red}, {1, Green}, {1.5, Blue}}]}ℛ = Annulus[];{SignedRegionDistance[ℛ, {1, 2}], SignedRegionDistance[ℛ, {0, 0}]}Plot3D[SignedRegionDistance[ℛ, {x, y}], {x, -2, 2}, {y, -2, 2}, MeshFunctions -> {#3&}, Mesh -> {{0}}, MeshShading -> {Red, Green}, Exclusions -> Norm[{x, y}] == 1]ℛ = Annulus[{1, 2}, {1, 2}, {0, 3Pi / 2}];RegionNearest[ℛ, {5, 6}]pts = Table[{1, 2} + 5{Cos[k 2 π / 16], Sin[k 2π / 16]}, {k, 0., 15}];
nst = RegionNearest[ℛ, #]& /@ pts;Legended[Graphics[{{Gray, ℛ}, {Thin, Gray, Line[Transpose[{pts, nst}]]}, {Red, Point[pts]}, {Blue, Point[nst]}}], PointLegend[{Red, Blue}, {"start", "nearest"}]]ℛ = Annulus[{1, 1}, {2, 3}];BoundedRegionQ[ℛ]rr = RegionBounds[ℛ]Graphics[{Gray, ℛ, {EdgeForm[{Dashed, Red}], Opacity[0.1, Yellow], Cuboid@@Transpose[rr]}}]ℛ = Annulus[{Subscript[x, 0], Subscript[y, 0]}, {Subscript[r, 1], Subscript[r, 2]}];Integrate[x y, {x, y}∈ℛ]ℛ = Annulus[];{MinValue[{x y - x, {x, y}∈ℛ}, {x, y}], ArgMin[{x y - x, {x, y}∈ℛ}, {x, y}]}ℛ = Annulus[{1, 2}, {3, 4}];Solve[x^2 + y^2 == 3 && x y == 1 && {x, y}∈ℛ, {x, y}]Show[{Graphics[{{Green, ℛ}, {Blue, Circle[{0, 0}, Sqrt[3]]}}], Plot[1 / x, {x, -3, 5}, PlotRange -> {{-3, 5}, {-3, 6}}], Graphics[{PointSize[Large], Red, Point[{x, y}] /. %}]}, Axes -> True]应用 (4)
Plot3D[Sin[x + Cos[y]], {x, y}∈Annulus[]]电容器本质上是一对中间有绝缘体的导电板. 电容器的电容是导电板分离和重合面积的函数,它允许创建由一组由半圆环制成的可变电容器,通过旋转这些圆环可以改变它们之间的重叠部分. 制作一个函数,返回两个同心圆环重叠的圆弧:
overlaparc[arc1_, arc2_] :=
IntervalIntersection[Interval[arc1], Interval[arc2]][[1]]overlaparea[ri_, angle_] := Area[Annulus[{0, 0}, {ri, 1}, overlaparc[{0, Pi}, {angle, angle + Pi}]]]capacitance[area_, distance_, dielectricconstant_] := dielectricconstant * Quantity["ElectricConstant"] * Quantity[area, "Centimeters" ^ 2] / Quantity[distance, "Centimeters"]Manipulate[Graphics[{Blue, Annulus[{0, 0}, {ri, 1}, {0, Pi}], Red, Annulus[{0, 0}, {ri, 1}, {a, a + Pi}]}, PlotLabel -> UnitConvert[capacitance[overlaparea[ri, a], d, 1], "Picofarads"], PlotRange -> 1],
{{a, Pi / 2, "Offset Angle"}, 0, Pi - .01}, {{ri, .5, "Inner Radius (cm)"}, 0.01, .9}, {{d, .1, "Separation Distance (cm)"}, 0.01, 1}, SaveDefinitions -> True]随着树的成长,它的横截面根据每年的气候产生不同宽度的年轮. 可以使用圆环创建类似年轮的图案. 首先,生成随机但相邻的内径和外径的列表:
numberofrings = 50;radii = (Transpose@({PadLeft[#, numberofrings + 2], PadRight[#, numberofrings + 2]}&@Accumulate[RandomReal[{0, 1}, numberofrings + 1]]))[[2 ;; -2]];annuluses = Table[{x = RandomReal[{-.2, .4}];RGBColor[x + .6, x + .4, x + .2], Annulus[{0, 0}, radii[[i]]]}, {i, Length[radii]}];Graphics[{Brown, Disk[{0, 0}, radii[[1, 1]]], annuluses}]在某些情况下,可能会发生日环食. 这个术语(Annular)源自圆环(Annulus),因为太阳和月亮在天空中的相对大小使得太阳(日冕)的一部分绕月可见,形成一个明亮的环. 可以将这种现象进行互动演示,并制作一个明亮的白环,使其出现在日环食的时刻:
sun[x_] := {Blend[{White, Yellow}, Abs[x]], Disk[{0, 0}, 2]};
moon[x_] := {GrayLevel[Abs[x / 10]], Disk[{x, 0}, 1.95]};
annulareclipse[x_] := {If[x == 0, {White, Annulus[{0, 0}, {1.95, 2.2}]}, {}]};Manipulate[Graphics[{sun[x],
moon[x], annulareclipse[x]},
PlotRange -> {{-3, 3}, {-2.2, 2.3}}, Background -> Black],
{{x, -3, "Move the Moon:"}, -3, 3, .1}, SaveDefinitions -> True]属性和关系 (6)
Manipulate[Graphics[{Disk[], Annulus[{2, 0}, {ri, 1}]}, PlotRange -> {{-1, 3}, {-1, 1}}, ImageSize -> Small], {{ri, .5}, .5, .00001}]Manipulate[Graphics[{Circle[], Annulus[{2, 0}, {ri, 1}]}, PlotRange -> {{-1, 3}, {-1, 1}}, ImageSize -> Small], {{ri, .5}, .5, .99}]圆环是两个同心 Disk 区域之间 RegionDifference 的封闭区域:
Subscript[ℛ, 1] = RegionUnion[RegionDifference[Disk[{0, 0}, 2], Disk[{0, 0}, 1]], Circle[{0, 0}, 1]];
Subscript[ℛ, 2] = Annulus[{0, 0}, {1, 2}];RegionEqual[Subscript[ℛ, 1], Subscript[ℛ, 2]]ImplicitRegion 可以表示任何 Annulus:
Subscript[ℛ, 1] = ImplicitRegion[0 < Subscript[r, inner] < Subscript[r, outer] && Subsuperscript[r, inner, 2] ≤ (x - Subscript[c, 1])^2 + (y - Subscript[c, 2])^2 ≤ Subsuperscript[r, outer, 2], {x, y}];Subscript[ℛ, 2] = Annulus[{Subscript[c, 1], Subscript[c, 2]}, {Subscript[r, inner], Subscript[r, outer]}];RegionEqual[Subscript[ℛ, 1], Subscript[ℛ, 2]]ParametricRegion 可以表示 Annulus:
Subscript[ℛ, 1] = ParametricRegion[{r Cos[θ], r Sin[θ]}, {{θ, 0, 2π}, {r, 1, 2}}];
Subscript[ℛ, 2] = Annulus[{0, 0}, {1, 2}];Region[Subscript[ℛ, 1]]RegionEqual[Subscript[ℛ, 1], Subscript[ℛ, 2]]Annulus 半径为
的圆上小于
的点:
Subscript[ℛ, 1] = Circle[{x, y}, (Subscript[``r``, ``outer``] + Subscript[``r``, ``inner``]) / 2];
Subscript[ℛ, 2] = Annulus[{x, y}, {Subscript[``r``, ``inner``], Subscript[``r``, ``outer``]}];Reduce[Subscript[∀, {Subscript[r, inner], Subscript[r, outer]}, 0 < Subscript[r, inner] < Subscript[r, outer]](RegionDistance[Subscript[ℛ, 1], {x, y}] ≤ (1/2) (Subscript[r, outer] - Subscript[r, inner])⧦RegionMember[Subscript[ℛ, 2], {x, y}]), {x, y}, Reals]巧妙范例 (3)
Graphics[Table[{EdgeForm[Black], Hue[RandomReal[]], Annulus[RandomReal[4, {2}], RandomReal[1]]}, {40}]]Graphics[Table[{Hue[t / 30, 1, .9, .3], Annulus[{Cos[2Pi t / 30], Sin[2Pi t / 30]}, 1]}, {t, 30}]]Graphics[Table[{EdgeForm[Opacity[.6]], Hue[(-11 + q + 10 r) / 72], Annulus[(8 - r){Cos[2Pi q / 12], Sin[2Pi q / 12]}, (8 - r) / 3]}, {r, 6}, {q, 12}]]相关指南
文本
Wolfram Research (2015),Annulus,Wolfram 语言函数,https://reference.wolfram.com/language/ref/Annulus.html.
CMS
Wolfram 语言. 2015. "Annulus." Wolfram 语言与系统参考资料中心. Wolfram Research. https://reference.wolfram.com/language/ref/Annulus.html.
APA
Wolfram 语言. (2015). Annulus. Wolfram 语言与系统参考资料中心. 追溯自 https://reference.wolfram.com/language/ref/Annulus.html 年
BibTeX
@misc{reference.wolfram_2026_annulus, author="Wolfram Research", title="{Annulus}", year="2015", howpublished="\url{https://reference.wolfram.com/language/ref/Annulus.html}", note=[Accessed: 19-August-2026]}
BibLaTeX
@online{reference.wolfram_2026_annulus, organization={Wolfram Research}, title={Annulus}, year={2015}, url={https://reference.wolfram.com/language/ref/Annulus.html}, note=[Accessed: 19-August-2026]}