Helicoide no Maple 13

Publicado em

> with(plots):> f := x -> x: g := x -> x:
> a := -Pi: b := Pi: c := -7: d := 7: n := 50:
>> X := (u, v) -> [f(u)*cos(v), f(u)*sin(v), g(v)]:
>> for k from 1 to n do
> gr1 := spacecurve(X(t,c+k*(d-c)/n), t=a..b, thickness=4,
> axes=none, color=black):
> gr2 := plot3d(X(u, v), u=a..b, v=c..c+k*(d-c)/n,
> shading=zhue, grid=[50,50]):> gr[k] := display(gr2, gr1):
> end do:
>> display(seq(gr[k], k=1..n), insequence=true);
Anúncios

Deixe uma Resposta

Preencha os seus detalhes abaixo ou clique num ícone para iniciar sessão:

Logótipo da WordPress.com

Está a comentar usando a sua conta WordPress.com Terminar Sessão / Alterar )

Imagem do Twitter

Está a comentar usando a sua conta Twitter Terminar Sessão / Alterar )

Facebook photo

Está a comentar usando a sua conta Facebook Terminar Sessão / Alterar )

Google+ photo

Está a comentar usando a sua conta Google+ Terminar Sessão / Alterar )

Connecting to %s