13.13.8 Check if five points in space are cospherical:
is_cospherical
The is_cospherical command takes as arguments a list or
sequence of points.
is_cospherical returns 1 if the points are
cospherical, it returns 0 if they are not.
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