Find the intersection of a line with a plane: Difference between revisions

Content added Content deleted
(→‎With a geometric algebra library: rephrasing De Morgan Law)
Line 1,510: Line 1,510:
my $plane = (5*$k + $l) ∧ ($i∧$j);
my $plane = (5*$k + $l) ∧ ($i∧$j);


# In dual space, the intersection is the join
# The meet is the dual of the join of the duals
my $LINE = $line*$I/$I2;
my $LINE = $line*$I/$I2;
my $PLANE = $plane*$I/$I2;
my $PLANE = $plane*$I/$I2;
my $M = $LINE∧$PLANE;
my $M = $LINE∧$PLANE;
⚫
y $m = $M*$I/$I2;

# switching back to normal space
⚫
my $m = $M*$I/$I2;


# Affine coordinates of (X, Y, Z, W) are (X/W, Y/W, Z/W)
# Affine coordinates of (X, Y, Z, W) are (X/W, Y/W, Z/W)
Retrieved from "https://rosettacode.org/wiki/Find_the_intersection_of_a_line_with_a_plane"