Quantos pontos "inteiros" tem uma esfera de raio r?
Passo 1: Criar um controle
deslizante(r) variando de 0 a 10, com incremento 1;
Passo
2: Definir a função f(x,y)=sqrt(r² - x² -
y²);
Passo
3: Criar a seguinte lista:
l1=Sequência(Sequência(ListaDeIteração((x(A), y(A), z(A) + 1), A, {(i, j, 0)},
floor(f(i, j))), i, -r, r), j, -r, r);
Passo
4: Usar o comando Concatenar para lista de
lista anterior, visando criar apenas uma lista de pontos:
l2=Concatenar(Concatenar(l1));
Passo
5: l7=ManterSe(f(x(k),
y(k)) ≥ 0, k, l2);
Passo
6: l7'=Girar(l7,
180°,EixoX );
Passo
7: l3=ManterSe(z(k)<0, k, l7');
Passo
8: l4=Concatenar(l7, l3 );
Passo
9: a=Comprimento( l4 )
Passo
10: Por fim, escrevi: Uma esfera com centro em (0,0,0) e raio medindo r,
possui a pontos
com coordenadas inteiras.