www.gusucode.com > 峰值搜索源码程序 > 峰值搜索源码程序/PeakFinder/ipeakdemo.m
function ipeakdemo % Demonstration script for iPeak function. It generates a test signal % consisting of several peaks, then runs ipeak % T. C. O'Haver, September 2011 increment=1; x=[1:increment:500]; % For each simulated peak, compute the amplitude, position, and width amp=[1 1 1 1]; % Amplitudes of the peaks (Change if desired) pos=[100 200 300 400]; % Positions of the peaks (Change if desired) wid=[10 30 50 70]; % Widths of the peaks (Change if desired) Noise=.01; % Amount of random noise added to the signal. (Change if desired) % A = matrix containing one of the unit-amplidude peak in each of its rows A = zeros(length(pos),length(x)); ActualPeaks=[0 0 0 0 0]; p=1; for k=1:length(pos) % Create a series of peaks of different x-positions A(k,:)=exp(-((x-pos(k))./(0.6006.*wid(k))).^2); % Gaussian peaks % A(k,:)=ones(size(x))./(1+((x-pos(k))./(0.5.*wid(k))).^2); % Lorentzian peaks % Assembles actual parameters into ActualPeaks matrix: each row = 1 % peak; columns are Peak #, Position, Height, Width, Area ActualPeaks(p,:) = [p pos(k) amp(k) wid(k) 1.0646.*amp(k).*wid(k)]; p=p+1; end z=amp*A; % Multiplies each row by the corresponding amplitude and adds them up y=z+Noise.*randn(size(z)); % Optionally adds random noise % y=y+gaussian(x,0,4000); % Optionally adds a broad background signal demodata=[x' y']; % Assembles x and y vectors into data matrix % Initial values of variable peak detection parameters WidthPoints=mean(wid)/increment; % Average number of points in half-width of peaks SlopeThreshold=0.7*WidthPoints^-2; % Formula for estimating value of SlopeThreshold AmpThreshold=0.05*max(y); SmoothWidth=round(WidthPoints/2); % SmoothWidth should be roughly equal to 1/2 the peak width (in points) FitWidth=round(WidthPoints/2); % FitWidth should be roughly equal to 1/2 the peak widths(in points) % Now call iPeak, with specified values of AmpT, SlopeT, SmoothW, and FitW. % (You can change theses values if desired). MeasuredPeaks=ipeak(demodata,0,AmpThreshold,SlopeThreshold,SmoothWidth,FitWidth,ActualPeaks(1,2),200); % Compare MeasuredPeaks to ActualPeaks disp('-----------------------------------------------------------------') disp('Detection and measurement of 4 peaks with the same heights but ') disp('different widths. This demonstrates the effect of SlopeThreshold') disp('and SmoothWidth on peak detection. Increasing SlopeThreshold (S key)') disp('will discriminate against the broader peaks. Increasing SmoothWidth') disp('(D key) will discriminate against the narrower peaks and noise.') disp('') disp(' Peak # Position Height Width Area') ActualPeaks MeasuredPeaks if size(ActualPeaks)==size(MeasuredPeaks), PercentErrors=100.*(ActualPeaks-MeasuredPeaks)./ActualPeaks; AveragePercentErrors=mean(abs(100.*(ActualPeaks-MeasuredPeaks)./ActualPeaks)) end disp('End of demo.') % ---------------------------------------------------------------------- function g = gaussian(x,pos,wid) % gaussian(X,pos,wid) = gaussian peak centered on pos, half-width=wid % X may be scalar, vector, or matrix, pos and wid both scalar % Examples: gaussian([0 1 2],1,2) gives result [0.5000 1.0000 0.5000] % plot(gaussian([1:100],50,20)) displays gaussian band centered at 50 with width 20. g = exp(-((x-pos)./(0.6005615.*wid)).^2);