Cody

Problem 636. Spherical radius given four points

Solution 1976751

Submitted on 15 Oct 2019 by Cao Van Cuong
This solution is locked. To view this solution, you need to provide a solution of the same size or smaller.

Test Suite

Test Status Code Input and Output
1   Pass
pts=[0 3 2;1 -1 1;2 1 0;5 1 3]; % c(2 1 3) r=3 y_correct = 3; assert(isequal(Sphere_radius(pts),y_correct))

A = 0 6 4 -1 13 2 -2 2 -1 3 4 2 0 -1 5 10 2 6 -1 35 r = 3

2   Pass
pts=[1 0 0;0 1 0;0 0 1;-1 0 0]; % c(0 0 0) r=1 y_correct = 1; assert(isequal(Sphere_radius(pts),y_correct))

A = 2 0 0 -1 1 0 2 0 -1 1 0 0 2 -1 1 -2 0 0 -1 1 r = 1

3   Pass
pts=[1 0 -1;0 1 -1;0 0 0;-1 0 -1]; % c(0 0 -1) r=1 y_correct = 1; assert(isequal(Sphere_radius(pts),y_correct))

A = 2 0 -2 -1 2 0 2 -2 -1 2 0 0 0 -1 0 -2 0 -2 -1 2 r = 1

4   Pass
pts=[2 0 -2;0 2 -2;0 0 0;-2 0 -2]; % c(0 0 -2) r=2 y_correct = 2; assert(isequal(Sphere_radius(pts),y_correct))

A = 4 0 -4 -1 8 0 4 -4 -1 8 0 0 0 -1 0 -4 0 -4 -1 8 r = 2

5   Pass
pts=[-5 -1 -3;1 -1 -3;-2 -4 -3;-2 -1 0]; % c(-2 -1 -3) r=3 y_correct = 3; assert(isequal(Sphere_radius(pts),y_correct))

A = -10 -2 -6 -1 35 2 -2 -6 -1 11 -4 -8 -6 -1 29 -4 -2 0 -1 5 r = 3