作业帮 > 综合 > 作业

用mathematica软件在一张图里画一个曲面在一点的切平面,法线及曲面本身

来源:学生作业帮 编辑:作业帮 分类:综合作业 时间:2024/07/08 11:22:51
用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]]]