Advanced Search

Question: How do I print all the equations of sphere in the form (x-a)^2 + (y-b)^2 + (z-c)^2-10^2=0?

Question:How do I print all the equations of sphere in the form (x-a)^2 + (y-b)^2 + (z-c)^2-10^2=0?

Laurenso 20 Maple
substitution sequence
November 06 2023
1

I am trying to print all the equations of sphere in the form (x-a)^2 + (y-b)^2 + (z-c)^2-10^2=0?
my code
restart;
n := 0;
for a to 5 do
    for b to 5 do for c to 5 do mysphere := (x - a)^2 + (y - b)^2 + (z - c)^2 - 10^2 = 0;
if a*b*c <> 0 and igcd(a, b, c) = 1 then n := n + 1; L[n] := [a, b, c];
end if;
end do;
end do;
end do;
L := convert(L, list);
map(mysphere, L);
print(mysphere);

I don't get the correct results. How can get correct results?
Please Wait...