Plot3D[Re@DirichletL[10,1,u+I v],{u,-5,5},{v,-10,10},Mesh->None,PlotStyle->Directive[Opacity[0.7],Orange,Specularity[10]],BoxRatios->{1,1,2}]