Interactive Peak Fitter, version 2.2: ipfshape(n,h) - File Exchange

Code covered by the BSD License

Highlights from
Interactive Peak Fitter, version 2.2

key=KeyPressTestFunction Attaches KeyPress test function to the figure
(2.*n)./(1+n);
4*exp(-e).*(1-exp(-e)); g(1:r...
ExpBroaden(g',timeconstant);
ExpBroaden(y,t) ExpBroaden(y,t) convolutes y by an exponential decay of time constant t
FitResults=FitAndPlot(xx,yy,N... Given isolated segment of signal (xx,yy), plots it in upper half, computes fit with
[xx,yy,start]=RedrawSignal(x,... Plots the entire signal (x,y) in the lower half of the plot window and an
exp(-((x-pos)./(0.6006.*wid))...
exp(-(log(x/pos)/(0.01.*wid))...
ipf(x,y) Interactive Peak Fitter function.
ipf10down Pans down 10 points and redraws graph
ipf10up Pans up 10 points and redraws graph
ipfbackground(n,h) Allows user to click graph to enter background points,
ipfcustom(n,h) Allows user to click graph to enter start positons,
ipfextra(n,h)
ipfnudgedown Pans down one point and redraws graph
ipfnudgeup Pans up one point and redraws graph
ipfpan(n,h) Re-draws graph and updates "start" when the Pan slider is moved
ipfpeaks(n,h) Updates "NumPeaks" and re-draws graph when the # Peaks slider is moved
ipfpeaksmouseup Computes fit on a mouseup in the # Peaks slider
ipfrefit(n,h) Computes fit and re-draws graph when the Re-fit slider is moved
ipfshape(n,h) Redraws signal when the shape slider is moved
ipfzoom(n,h) Updates "start" and re-draws graph when the Zoom slider is moved
ipfzoom10down ZOOMS DOWN 10 points and redraws graph
ipfzoom10up ZOOMS UP 10 points and redraws graph
ipfzoomdown ZOOMS DOWN one point and redraws graph
ipfzoomup ZOOMS UP one point and redraws graph
lorentzian(x,position,width) ...
norm(z-y');
norm(z-y');
norm(z-y');
norm(z-y');
norm(z-y');
norm(z-y');
norm(z-y');
norm(z-y');
pearson7(x,pos,wid,m) where x...
rtslid(fig,f,hh,varargin) RTSLID Slider widget that responds to dragging realtime
shape number. When this numb...
DemoInteractivePeakFitter.m
InteractivePeakFitter.m
View all files

from Interactive Peak Fitter, version 2.2 by Tom O'Haver
A peak fitting program for time-series signals.

ipfshape(n,h)

function ipfshape(n,h)
% Redraws signal when the shape slider is moved
% T. C. O'Haver (toh@umd.edu),    Version 1.6, November 10, 2006.

global x
global y
global xx
global yy
global xo
global dx
global NumPeaks
global Shape
global delta
global c
global FitResults
global start

if round(n)~=Shape,
    Shape=round(n);
        switch Shape
    case 1
        ShapeString='Gaussian';
    case 2
        ShapeString='Lorentzian';    
    case 3
        ShapeString='logistic';
    case 4
        ShapeString='Pearson';
    case 5        
        ShapeString='ExpGaussian';
    otherwise
    end
  subplot(2,1,2)
  xlabel(['Number of peaks = ' num2str(NumPeaks) '    Shape = ' ShapeString  ] )
end
% FitResults=FitAndPlot(xx,yy,NumPeaks,Shape,delta,start);
axes(h);
h2=gca;

Highlights from Interactive Peak Fitter, version 2.2

Highlights from
Interactive Peak Fitter, version 2.2