show := proc (r, R::realcons, Titel::string) global Rest; plot3d([rho, t, abs(
evalf(Rest(rho*exp(Complex(1)*t))))],rho = r .. R,t = 0 .. 2*Pi,view = [-R ..
R, -R .. R, 0 .. 3],coords = cylindrical,shading = zhue,grid = [50, 50],style
= patchcontour,contours = 30,tickmarks = [3, 3, 3],axes = boxed,titlefont = [
TIMES, ROMAN, 14],labelfont = [TIMES, ITALIC, 14],labels = ["Realteil", 
"   Imaginaerteil", "Rest"],title = Titel,labeldirections = ["horizontal", 
"horizontal", "vertical"]) end proc;
