/* [wxMaxima batch file version 1] [ DO NOT EDIT BY HAND! ]*/
/* [ Created by wxMaxima version 0.7.6 ] */

/* [wxMaxima: input   start ] */
solve([(11-m1)^2+(1-m2)^2+(1-m3)^2=r^2,(7-m1)^2+(1-m2)^2+(-7-m3)^2=r^2,(3-m1)^2+(
 -5-m2)^2+(-7-m3)^2=r^2,(3-m1)^2+(-8-m2)^2+(2-m3)^2=r^2],[m1,m2,m3,r]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
solve([(-1-m1)^2+(-2-m2)^2+(-8-m3)^2=r^2,(6-m1)^2+(2-m2)^2+(7-m3)^2=r^2,(3-m1)^2+(
 -5-m2)^2+(-1-m3)^2=r^2,(-9-m1)^2+(6-m2)^2+(10-m3)^2=r^2],[m1,m2,m3,r]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g1:(-1-m1)^2+(-2-m2)^2+(-8-m3)^2=r^2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g2:(6-m1)^2+(2-m2)^2+(7-m3)^2=r^2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g3:(3-m1)^2+(-5-m2)^2+(-1-m3)^2=r^2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g4:(-9-m1)^2+(6-m2)^2+(10-m3)^2=r^2;
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
ratsimp(%);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g5:ratsimp(g1-g2);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g6:ratsimp(g1-g3);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
g7:ratsimp(g1-g4);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M:matrix([14,8,30,20],[8,-6,14,-34],[-16,16,36,148]);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
G:gj(M);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M1:rowop(M,1,1,1-1/14);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M2:rowop(M1,2,1,8);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M3:rowop(M2,3,1,-16);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M4:rowop(M3,2,2,1+7/74);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M5:rowop(M4,3,2,176/7);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M6:rowop(M5,3,3,1-37/2324);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M7:rowop(M6,2,3,11/37);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M8:rowop(M7,1,3,15/7);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
M9:rowop(M8,1,2,4/7);
/* [wxMaxima: input   end   ] */

/* [wxMaxima: input   start ] */
(-1--3)^2+(-2-4)^2+(-8-1)^2=r^2;
/* [wxMaxima: input   end   ] */

/* Maxima can't load/batch files which end with a comment! */
"Created with wxMaxima"$