• Círculo

Warning, the name changecoords has been redefined

O comando é disk e tem mesma sintaxe que o comando para circunferências (rever agora) , sendo que neste a estrutura preparada é de um círculo.

O primero exemplo é de um círculo de centro (1, 1) e raio 5.

> c := disk([1,1], 5, color=red):
display(c,scaling=constrained);

>

O próximo exemplo é de uma sequência de círculos de raio 1 mas com centro sobre a curva . Preste atenção nos centros. Eles são da forma ( ) onde t varia de -5 até 5.

> s:=seq(disk([t,(t^2)/10],1/2,color=blue),t=-5..5):
display(s,scaling=constrained);

>

Podemos aproveitar a sequência criada e fazer uma animação. Compile o comando abaixo e ative o filme.

> display(s,insequence=true,scaling=constrained);

>

Agora uma sequência de círculos sobre o gráfico da função seno. Repare os centros são da forma ( ).

> s:=seq(disk([t/2,sin(t/2)],1/5,color=grey),t=1..30):
display(s,scaling=constrained);

>

Para ver uma animação da sequência anterior é só compilar o comando abaixo.

> display(s,insequence=true,scaling=constrained);

>

Existe uma maneira de atribuir cores aleatórias aos discos. Veja o comando abaixo. A atribuição de cor é feita usando-se o opcional color=COLOR(RGB, _ , _ , _ ), onde as 3 entradas finais devem ser números entre 0 e 1. Para gerar números aleatórios o Maple tem o comando rand( ), este gera números inteiros aleatórios com 12 dígitos. Então basta dividir o comando rand( ) por e colocá-lo deentro das entradas do comando de cor. Confira abaixo. Cada vez que o comando for compilado a fgura será diferente.

> s:=seq(disk([t/2,sin(t/2)],1/5,color=COLOR(RGB, rand()/10^12, rand()/10^12, rand()/10^12)),t=1..20):
display(s,scaling=constrained);

>

Para verificar a aprendizagem Clique aqui (wptex8.mws) .

Para ver a próxima seção (Setor de círculo) clique aqui (setcirculo.mws) .