next up previous
Next: Bezier curves and surfaces Up: More surfaces Previous: Black Hole

Riemann surface (n=2)

n = 3;m = 20;
r = (0:m)'/m;
theta = - %pi*(-n*m:n*m)/m;
z = r * exp(%i*theta);
s = r.^(1/n) * exp(%i*theta/n);
cplxmap(z,s,varargin(:))
\fbox{\epsfig{file=foo0_54.eps,width=3.75in}}

Scilab group