|
本帖最后由 青青子衿 于 2019-5-30 14:43 编辑 已知椭球面\(\,\Sigma\colon\,\dfrac{x^2}{a^2}+\dfrac{y^2}{b^2}+\dfrac{z^2}{c^2}=1\,\),平面\(\,\Pi\colon\,\dfrac{Ax+By+Cz}{\sqrt{A^2+B^2+C^2}}=R\,\),求椭球面\(\,\Sigma\,\)与平面\(\,\Pi\,\)的截口曲线“直径”(主轴),即椭圆的长轴与短轴及其相关量。
若记\(\,\cos\alpha\,\)、\(\,\cos\beta\,\)、\(\,\cos\gamma\,\),则平面\(\,\Pi\,\)可以简化为\(\,\Pi\colon\,x\cos\alpha+y\cos\beta+z\cos\gamma=R\,\)
可以发现,有:\(\,\cos^2\alpha+\cos^2\beta+\cos^2\gamma=1\,\)
\begin{align*}
\left\{
\begin{split}
\cos\alpha=\dfrac{A}{\sqrt{A^2+B^2+C^2}}\\
\cos\beta=\dfrac{B}{\sqrt{A^2+B^2+C^2}}\\
\cos\gamma=\dfrac{C}{\sqrt{A^2+B^2+C^2}}\\
\end{split}
\right.
\end{align*}
...- AA = 1;
- BB = 1;
- CC = 3;
- R = 2;
- Show[ContourPlot3D[AA*x + BB*y + CC*z == R*Sqrt[AA^2 + BB^2 + CC^2],
- {x, -1/2, 3}, {y, -1/2, 3}, {z, -1/2, 3}, Mesh -> None],
- Graphics3D[{PointSize[Large],
- Point[{
- {AA*R/Sqrt[AA^2 + BB^2 + CC^2],
- BB*R/Sqrt[AA^2 + BB^2 + CC^2],
- CC*R/Sqrt[AA^2 + BB^2 + CC^2]},
- {0, 0, 0}}]
- }],
- ParametricPlot3D[{k, k, 3 k}, {k, -5, 5},
- PlotStyle -> Directive[Blue, Thick]]]
复制代码 |
|