16 Apr
2015
16 Apr
'15
1:44 a.m.
http://gosper.org/mobber.gif (An old Macsyma bagatelle. It was somehow relevant here a couple of weeks ago, but it took me this long to rescue it from oblivion.) Source: /* -*- Mode: Macsyma -*- */ mob_animate(ribs):=block([plotnum1:2], plot_animate(v,0,1,eval(funmake('plotsurf,[mobber(ribs),t,0,%pi,u,v*%pi*2-%pi/2,v*%pi*2+%pi/2])),cyclic))$ mobber(n):=makelist(mob(t,(u/2+%pi*(k+1/4))/n-%pi/2),k,0,n-1)$ mob(t,u):=[cos(t)*cos(u)-2*sin(t)*sin(u)^4,sin(t)*sin(u)^2*sin(2*u)+cos(t)*sin(u),sin(t)*sin(2*u)]$ --rwg