function Fra_Vow_Distr=smooth(Fra_Vow_Distr)
nr=length(Fra_Vow_Distr);
total=sum(Fra_Vow_Distr);
Fra_Vow_Distr(1)=total/nr;
Fra_Vow_Distr(nr)=total/nr;
for n=2:nr-1
    if  Fra_Vow_Distr(1,n-1)*Fra_Vow_Distr(1,n)*Fra_Vow_Distr(1,n+1)>0
    Fra_Vow_Distr(1,n)=0.25*Fra_Vow_Distr(1,n-1)+0.5*Fra_Vow_Distr(1,n)+Fra_Vow_Distr(1,n+1)*0.25;
    end
end