Manipulate[Plot[KaiserWindow[x,α],{x,-1,1}],{{α,3}, 0, 10}]