I've computed the intersection of a plane with some lines. It looks OK until I try to make a 3D graph from intersec_lines.
alpha = Pi/5;
r1 = 5;
r2 = 2;
h = 3;
n = 20;
plane = InfinitePlane[{{0, 0, 0}, {Cos[alpha], 0, Sin[alpha]}, {0, 1, 0}}];
lines =
Table[
InfiniteLine[
{r1*Cos[2*Pi*x/n], r1*Sin[2*Pi*x/n], 0},
{r2*Cos[2*Pi*x/n], r2*Sin[2*Pi*x/n], h}],
{x, n}];
intersec_points = NSolve[{x, y, z} ∈ plane && {x, y, z} ∈ #]& /@ lines
Does anyone know how to do it? It seem it should be pretty basic, but I'm just starting to use Mathematica.
_
in variable names, since_
has a special meaning in Mathematica. $\endgroup${x,y,z} /. Flatten[intersecPoints, 1]
to get a list of points. $\endgroup$