3D Plot

Provavelmente, já viram esta figura geométrica em algum lado...

Hoje à tarde, na publicação sobre o Concurso BASIC Apascalado, o Zé Oliveira tentou convencer-nos que seria necessário ter um curso de engenharia para fazer um programa destes. Essa afirmação até parece verdade porque ele desenhou esta figura geométrica com um programa de 600 linhas. Se não acreditam, podem ver aqui neste blog.

Mas, na pré-história dos microcomputadores, as pessoas tinham que se desenrascar com um curso de programação com apenas seis meses de duração e com um computador sem modo gráfico.

Agora, observem esta imagem:

Se eu vos disser que em 1970 esta imagem podia ser gerada com apenas uma dúzia de linhas, provavelmente não iriam acreditar.

Mas, podem ver para crer: 

50 DEF FN A(Z)=30*EXP (-Z*Z/100)

110 FOR X=-30 TO 30 STEP 1.5

120 LET L=0

130 LET Y1=5*INT (SQR (900-X*X)/5)

140 FOR Y=Y1 TO -Y1 STEP -5

150 LET Z=INT (25+FN A(SQR (X*X+Y*Y))-.7*Y)

160 IF Z<=L THEN GO TO 190

170 LET L=Z

185 PLOT 100+x,Z

190 NEXT Y

210 NEXT X

Clicar aqui. para correr o programa de 1975.
Clicar aqui. para fazer o download do programa de 1975.

Clicar aqui. para correr a versão melhorada de 2024.
Clicar aqui. para fazer o download do programa de 2024.

O utilizador pode controlar a resolução da imagem com um número entre 1 e 100. Para visualizar a imagem completa é necessário introduzir 100.

PS: É aconselhável correr estes programas num emulador e acelerar a velocidade - caso contrário, será necessário esperar muito tempo para ver as imagens.