### 12.13.5 Check if two lines or two spheres in space are orthogonal: is_orthogonal

See section 11.16.13 for checking for orthogonality in two-dimensional geometry.

The is_orthogonal command takes as arguments two lines, two spheres, two planes or a line and a plane.

is_orthogonal returns 1 is the objects are orthogonal; it returns 0 otherwise.

Input:

is_orthogonal(line([2,3,-2],[-1,-1,-1]),line([1,0,0],[1,2,8]))

Output:

1

Input:

is_orthogonal(line([2,3,-2],[-1,-1,-1]),
plane([-1,-1,-1],[-1,0,3],[-2,0,0]))

Output:

1

Input:

is_orthogonal(plane([0,0,0],[1,2,-3],[1,1,-2]),
plane([-1,-1,-1],[1,2,-3],[0,0,0]))

Output:

1

Input:

is_orthogonal(sphere([0,0,0],sqrt(2)),sphere([2,0,0],sqrt(2)))

Output:

1