【記錄】幾何圖形及其方程
記錄一些方程及其圖形。
隱式方程:
極座標:
,a是引數
一些心形線圖形及其方程
極座標: rho = 2(1+costheta) a是引數
極座標:
,a是引數
極座標:
,a、b是引數
橢圓
極座標形式:
隱式方程:
,a是引數
隱式方程:
螺旋線 ,
,a是引數
極座標:
,a是引數
三葉草
,a是引數
四葉草
,a是引數
,a、b是引數
顯式:
引數式:
引數式:
引數式:
隱式
隱式
橢圓
極座標形式:
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
隱式
極座標
極座標
極座標
隱式
蘑菇,隱式
隱式:
隱式:
隱式
隱式
隱式
隱式:
鍋,隱式
隱式
按鈕,隱式
套環,引數式
海螺,引數式
ParametricPlot3D
[{
1。16
^
v
*
Cos
[
v
]
*
(
1
+
Cos
[
u
]),
-1。16
^
v
*
Sin
[
v
]
(
1
+
Cos
[
u
]),
-2
*
1。16
^
v
*
(
1
+
Sin
[
u
])},
{
u
,
0
,
2
Pi
},
{
v
,
-15
,
6
},
Mesh
->
All
,
PlotRange
->
All
]
喇叭,引數式
ParametricPlot3D[{v Cos[u], v Sin[u], 1/Abs[v Exp[I u]]}, {u, 0, 2 Pi}, {v, 0, 1}]
去掉網格的海螺,引數式
ParametricPlot3D[{1。16^v Cos[v] (1 + Cos[u]), -1。16^v Sin[v] (1 + Cos[u]), -2 1。16^v (1 + Sin[u])},
{u, 0, 2 Pi}, {v, -15, 6}, Mesh -> False, PlotRange -> All]
圓環,引數式
ParametricPlot3D[{(2 + Cos[v]) Cos[u], (2 + Cos[v]) Sin[u], Sin[v]}, {u, 0, 2 Pi}, {v, 0, 2 Pi}]
引數式
ParametricPlot3D[{Cos[t] (2 Sin[u] + Cos[u]), Sin[t] (2 Sin[u] + Cos[u]), Sin[u]}, {t, 0, 2 Pi}, {u, 0, 2 Pi},
AxesLabel -> z]
螺紋面,引數式
ParametricPlot3D[{u Sin[t], u Cos[t], t}, {t, 0, 8}, {u, -1, 1}, BoxRatios -> {1, 1, 1}]
球,引數式
ParametricPlot3D[{Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {u, 0, 2 Pi}, {v, 0, Pi}, WorkingPrecision -> 20]]
平面,引數式
{w1, w2} = {{1, 1, 0}, {0, 1, 1/2}};
ParametricPlot3D[{1, 1, 1} + u w1 + v w2, {u, -1, 1}, {v, -1, 1},
Mesh -> 5, BoundaryStyle -> Black, PlotStyle -> FaceForm[Red, Yellow]]
圓柱,引數式
ParametricPlot3D[{Cos[u], Sin[u], 2 v}, {u, 0, 2 Pi}, {v, 0, 1},
Mesh -> 5, BoundaryStyle -> Black, PlotStyle -> FaceForm[Red, Yellow]]
圓錐,引數式
ParametricPlot3D[{v Cos[u], v Sin[u], 2 v}, {u, 0, 2 Pi}, {v, 0, 1},
Mesh -> 5, BoundaryStyle -> Black, PlotStyle -> FaceForm[Red, Yellow]]
橢球,引數式
ParametricPlot3D[{2 Cos[u] Sin[v], Sin[u] Sin[v], Cos[v]}, {v, 0, Pi}, {u, 0, 2 Pi}, Mesh -> 5, BoundaryStyle -> Black, PlotStyle -> FaceForm[Red, Yellow]]
Möbius帶,引數式
旋轉曲面
RevolutionPlot3D
[
x
^
4
-
x
^
2
,
{
x
,
0
,
1
}]
引數式
ParametricPlot3D[{Cos[t] (2 Sin[u] + Cos[u]), Sin[t] (2 Sin[u] + Cos[u]), Sin[u]},
{t, 0, 2 Pi}, {u, 0, 2 Pi}, AxesLabel -> z]
引數式
RevolutionPlot3D[{Sin[t] + Sin[7 t]/10, Cos[t] + Cos[7 t]/10}, {t, 0, Pi}, Mesh -> All]
引數式
RevolutionPlot3D[1/t, {t, 0, 1}]
引數式
RevolutionPlot3D[{Sin[t] + Sin[9 t]/5, Cos[t] + Cos[9 t]/5}, {t, 0, Pi}, {\[Theta], 0, Pi}, Mesh -> 10]
兔子
data = ExampleData[{“Geometry3D”, “StanfordBunny”}, “VertexData”];
ListSurfacePlot3D[data, MaxPlotPoints -> 50]