14.13.8  Checking if points in space are cospherical: is_cospherical

The is_cospherical command determines whether or not points are cospherical.

• is_cospherical takes one argument:
  L, a list or sequence of points.
• is_cospherical(L) returns 1 if the points in L all lie on the same sphere, and returns 0 otherwise.

Examples.

• Input:

  is_cospherical([2,0,0],[0,2,0],[sqrt(2),sqrt(2),0],

  [0,0,2],[2/sqrt(3),2/sqrt(3),2/sqrt(3)])

  Output:

  1

• Input:
  is_cospherical([2,0,0],[0,2,0],[1,1,0],[0,0,2],[1,1,1])
  Output:

  0