Re1(x, y) = exp(1 / 2 * log( sqrt( x*x + y*y ) ) ) * cos(1 / 2 * arctan2( y, x ))[br]Im1(x, y) = exp(1 / 2 * log( sqrt( x*x + y*y ) ) ) * sin(1 / 2 * arctan2( y, x ))[br][br]t = Slider(0, 1, 0.1, 1, 100, false, true, false, false)[br][br]HRe1(x, y) = 0 * (1-t) + Re1(x, y) * t[br]HIm1(x, y) = 0 * (1-t) + Im1(x, y) * t[br][br]Re2(x, y) = exp(1 / 2 * log( sqrt( x * x + y*y ) ) ) * cos(1 / 2 * (arctan2( y, x ) + 2 pi))[br]Im2(x, y) = exp(1 / 2 * log( sqrt( x * x + y*y ) ) ) * sin(1 / 2 * (arctan2( y, x )+2 pi))[br][br]HRe2(x, y) = 0 * (1-t) + Re2(x, y) * t[br]HIm2(x, y) = 0 * (1-t) + Im2(x, y) * t[br][br]RSRe = Surface(u*cos(v), u*sin(v), HRe1(u*cos(v), u*sin(v)), u, 0, 2, v, -pi, pi-pi/200)[br]RSIm = Surface(u*cos(v), u*sin(v), HIm1(u*cos(v), u*sin(v)), u,0, 2, v, -pi, pi-pi/200)[br]RSReN = Surface(u*cos(v), u*sin(v), HRe2(u*cos(v), u*sin(v)), u, 0, 2, v, -pi, pi-pi/200)[br]RSImN = Surface(u*cos(v), u*sin(v), HIm2(u*cos(v), u*sin(v)), u, 0, 2, v, -pi, pi-pi/200)