用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}]]

Copy the Code