用MMA绘制空间中平面上的点与空间直线

青青子衿

1. Subscript[x, 1] = 2; Subscript[y, 1] = 3; Subscript[z, 1] = 4;
   
2. Subscript[x, 2] = 1; Subscript[y, 2] = 5; Subscript[z, 2] = 2;
   
3. X = 3; Y = 4; Z = 2;
   
4. Show[ContourPlot3D[{Det[( {
   
5.        {x - Subscript[x, 1], y - Subscript[y, 1], z - Subscript[z, 1]},
   
6.        {x - Subscript[x, 2], y - Subscript[y, 2], z - Subscript[z, 2]},
   
7.        {X, Y, Z}
   
8.       } )] == 0, x y z == 0}, {x, 0, 9}, {y, 0, 9}, {z, 0, 9}],
   
9. ListPointPlot3D[{{Subscript[x, 1], Subscript[y, 1], Subscript[z, 1]},
   
10.       {Subscript[x, 2], Subscript[y, 2], Subscript[z, 2]}},
    
11.   PlotStyle -> PointSize[0.03]],
    
12. ParametricPlot3D[{3 t, 4 t, 2 t}, {t, 0, 20}]]

复制代码