function filt=RampT(w,wc)



if w <= wc 
   
   filt=w;
   
else 
   
   filt=0.;
   
end