O toro

O toro

toro[a_,r_][u_,v_]:={(a+r Cos[v]) Cos[u],(a+r Cos[v])Sin[u],r Sin[v]}

Caso r<a

toro[3,1] {u, -Pi, Pi}, {v, -Pi, Pi}
toro[3,1] {u, -Pi, 0}, {v, -Pi, Pi}
toro[3,1] {u, -Pi, Pi}, {v, -Pi, 0}

(colocando o rato sobre as figuras é possível rodá-las.)

Caso r=a

toro[1,1] {u, -Pi, Pi}, {v, -Pi, Pi}
toro[1,1] {u, -Pi, 0}, {v, -Pi, Pi}
toro[1,1] {u, -Pi, Pi}, {v, -Pi, 0}

Caso r>a

toro[1,3] {u, -Pi, Pi}, {v, -Pi, Pi}
toro[1,3] {u, -Pi, 0}, {v, -Pi, Pi}
toro[1,3] {u, -Pi, Pi}, {v, -Pi, 0}

Mais informação aqui.

Converted by Mathematica (April 11, 2006)
Mathematica is a registered trademark of Wolfram Research, Inc.