Riemann Surface: log(z)
GGB script
Re(x, y) = log(sqrt(x*x + y*y))
Im(x, y) = atan2(y, x)
t = Slider(0, 2, 0.1, 1, 150, false, true, false, false)
RSRe = Surface(u*cos(v), u*sin(v), 0*(1-t/2)+Re(u*cos(v), u*sin(v))*(t/2), u, 0, 2, v, -pi, pi-pi/200)
RSIm = Surface(u*cos(v), u*sin(v), Im(u*cos(v), u*sin(v)), u, 0, 3, v, -pi, pi-pi/200)
Execute(Sequence( "B"+(i)+" = Surface(u*cos(v), u*sin(v),0*(1-t) + Im(u*cos(v), u*sin(v)) * If( 0 <= t <= 1, t, 1) + 0*(2-t)+2*pi*("+(i)+"-2)*(t-1), u, 0, 2, v, -pi, pi-pi/200)", i, 0, 4))