作业帮用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身我输的时这样的ContourPlot3D[{z - 2 x^2 - y^2 == 0, z - 4 x - 2 y + 3 == 0,(x - 1)/4 = (y - 1)/2 = (z - 3)/-1},{x,-5,5},{y,-5,5},{z,-5,5}]第一个方
来源：学生作业帮助网 编辑：作业帮 时间：2024/05/06 18:13:12
用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身我输的时这样的ContourPlot3D[{z - 2 x^2 - y^2 == 0, z - 4 x - 2 y + 3 == 0,(x - 1)/4 = (y - 1)/2 = (z - 3)/-1},{x,-5,5},{y,-5,5},{z,-5,5}]第一个方
用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身
我输的时这样的
ContourPlot3D[{z - 2 x^2 - y^2 == 0, z - 4 x - 2 y + 3 == 0,(x - 1)/4 = (y - 1)/2 = (z - 3)/-1},{x,-5,5},{y,-5,5},{z,-5,5}]
第一个方程是曲面,第二个是切平面,第三个是法线.可是显示出来法线不对啊!
用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身我输的时这样的ContourPlot3D[{z - 2 x^2 - y^2 == 0, z - 4 x - 2 y + 3 == 0,(x - 1)/4 = (y - 1)/2 = (z - 3)/-1},{x,-5,5},{y,-5,5},{z,-5,5}]第一个方
你程序中法线的表示法 (x - 1)/4 = (y - 1)/2 = (z - 3)/-1 在 Mathematica 中是不允许的,换言之,在 Mathematica 中是不能用这种方式来画直线的.在三维空间中直线可用参数方程表示,下面是我画图的程序与图形,仅供参考.
Show[ContourPlot3D[{z - 2 x^2 - y^2 == 0,
z - 4 x - 2 y + 3 == 0}, {x, -2, 2}, {y, -3, 3}, {z, 0, 5},
Mesh -> None,
ContourStyle -> {{Yellow, Opacity[0.8]}, {Red, Opacity[0.5]}}],
ParametricPlot3D[{4*k + 1, 2*k + 1, -k + 3}, {k, -5, 5},
PlotStyle -> Directive[Blue, Thick]]]