function vsig = sighetd(xdata,sigma) 
% SIGSHETD, Creates col vector of SIGmas, for use in data 
%          generation
%    The noise decreases from left to right
%     For use in NonParametric Regression MOVies

%    Copyright (c) J. S. Marron and D. Ruppert, 1997

param1 = 0 ;
param2 = 1 ;
n = length(xdata) ;
pattern = flipud(logspace(param1,param2,n)') ;

vsig = sigma * pattern/mean(pattern) ;

