p10.mw

Examples of Animations 

(10) 

 

coordinate systems :  

sixsphere, spherical and tangentcylindrical 

 

> with(plots); -1
 

 

sixsphere 

 

> animate3d(`^`(cos(`*`(u, `*`(v, `*`(t)))), sin(`*`(u, `*`(v, `*`(t))))), u = 1 .. 3, v = 1 .. 4, t = 2 .. 4, coords = sixsphere, frames = 50)
 

Plot
 

 

spherical 

 

> animate3d(`*`(sin(`*`(u, `*`(v, `*`(t)))), `*`(cos(`*`(u, `*`(v, `*`(t)))))), u = `+`(`-`(Pi)) .. Pi, v = `+`(`-`(Pi)) .. Pi, t = `+`(`-`(Pi)) .. Pi, coords = spherical, frames = 100)
animate3d(`*`(sin(`*`(u, `*`(v, `*`(t)))), `*`(cos(`*`(u, `*`(v, `*`(t)))))), u = `+`(`-`(Pi)) .. Pi, v = `+`(`-`(Pi)) .. Pi, t = `+`(`-`(Pi)) .. Pi, coords = spherical, frames = 100)
 

Plot
 

 

tangentcylindrical 

 

> animate3d(cot(`+`(`*`(u, `*`(v)), t)), u = `+`(`-`(`*`(`/`(1, 4), `*`(Pi)))) .. `+`(`*`(`/`(1, 4), `*`(Pi))), v = -2 .. 2, t = `+`(`-`(`*`(`/`(1, 4), `*`(Pi)))) .. `+`(`*`(`/`(1, 4), `*`(Pi))), coords...
animate3d(cot(`+`(`*`(u, `*`(v)), t)), u = `+`(`-`(`*`(`/`(1, 4), `*`(Pi)))) .. `+`(`*`(`/`(1, 4), `*`(Pi))), v = -2 .. 2, t = `+`(`-`(`*`(`/`(1, 4), `*`(Pi)))) .. `+`(`*`(`/`(1, 4), `*`(Pi))), coords...
 

Plot