level 2
xxiaoliu
楼主
这是直接设定参数代码:
\[Theta] = 90 Degree
\[Phi] = 0 Degree
a = 0.1
b = 0.1
ParametricPlot[{x =
Cos[t] (1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 +
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/b^2 -
Sqrt[4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2),
y = Sin[t] (1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 +
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/b^2 +
Sqrt[4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2)}, {t, 0, 2 Pi}]
画出的图是这样的:

这是在交互式操作中设定参数的代码:
\[Theta] =. Degree
\[Phi] =. Degree
a =.
b =.
Manipulate[
Show[ParametricPlot[{x =
Cos[t]*(1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/
a^2 + Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2 - Sqrt[
4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2),
y = Sin[t]*(1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/
a^2 + Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2 + Sqrt[
4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2)}, {t, 0, 2 Pi},
PlotRange -> {-0.1, 0.1}],
ParametricPlot[{x = 0.089 Cos[m], y = 0.053 Sin[m]}, {m, 0, 2 Pi},
PlotRange -> {-0.1, 0.1}, PlotStyle -> Gray]], {\[Theta], 0.0001,
90}, {\[Phi], 0, 90}, {a, 0.0001, 0.2}, {b, 0.0001, 0.2}]
这是在交互式操作中设定同样的参数画出的图(蓝色那个):

一个是正圆,一个不是,这是为什么?
2024年04月05日 03点04分
1
\[Theta] = 90 Degree
\[Phi] = 0 Degree
a = 0.1
b = 0.1
ParametricPlot[{x =
Cos[t] (1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 +
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/b^2 -
Sqrt[4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2),
y = Sin[t] (1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 +
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/b^2 +
Sqrt[4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2)}, {t, 0, 2 Pi}]
画出的图是这样的:

这是在交互式操作中设定参数的代码:\[Theta] =. Degree
\[Phi] =. Degree
a =.
b =.
Manipulate[
Show[ParametricPlot[{x =
Cos[t]*(1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/
a^2 + Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2 - Sqrt[
4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2),
y = Sin[t]*(1/
2 (Cos[\[Phi]]^2/b^2 + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/
a^2 + Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2 + Sqrt[
4 (-((Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
a^2) + (Cos[\[Phi]] Csc[\[Theta]] Sin[\[Phi]])/
b^2)^2 + (-(Cos[\[Phi]]^2/
b^2) + (Cos[\[Phi]]^2 Csc[\[Theta]]^2)/a^2 -
Sin[\[Phi]]^2/a^2 + (Csc[\[Theta]]^2 Sin[\[Phi]]^2)/
b^2)^2]))^(-1/2)}, {t, 0, 2 Pi},
PlotRange -> {-0.1, 0.1}],
ParametricPlot[{x = 0.089 Cos[m], y = 0.053 Sin[m]}, {m, 0, 2 Pi},
PlotRange -> {-0.1, 0.1}, PlotStyle -> Gray]], {\[Theta], 0.0001,
90}, {\[Phi], 0, 90}, {a, 0.0001, 0.2}, {b, 0.0001, 0.2}]
这是在交互式操作中设定同样的参数画出的图(蓝色那个):

一个是正圆,一个不是,这是为什么?