SCM Repository
Annotation of /SplineFitBATMAN_MATLABcode/peakClickSpline.m
Parent Directory
| 
Revision Log
Revision 346 - (view) (download)
| 1 : | jie | 346 | function [ppmx, x,y]=peakClickSpline(Xn,ppm,offset, flagmin, flagRatio) |
| 2 : | % written 120213 Dr. Jie Hao, Imperial College London | ||
| 3 : | |||
| 4 : | [n,m]=size(Xn); | ||
| 5 : | |||
| 6 : | %click on peaks | ||
| 7 : | [x,y,button] = ginput; | ||
| 8 : | hold on | ||
| 9 : | plot(x,y,'ro') | ||
| 10 : | |||
| 11 : | clicks=length(x); | ||
| 12 : | for i = 1:clicks | ||
| 13 : | xy(:,i) = [x(i);y(i)]; | ||
| 14 : | end | ||
| 15 : | t = 1:clicks; | ||
| 16 : | ts = 1:0.1: clicks; | ||
| 17 : | xys = spline(t,xy,ts); | ||
| 18 : | |||
| 19 : | plot(xys(1,:),xys(2,:),'b-'); | ||
| 20 : | if flagRatio | ||
| 21 : | ppmx = intersectSpecSplineRatio(Xn, offset, x, y, ppm); | ||
| 22 : | else | ||
| 23 : | ppmx = intersectSpecSpline(Xn, offset, x, y, ppm, flagmin, 0.0005, 0.001); | ||
| 24 : | end | ||
| 25 : | |||
| 26 : | end |
| R-Forge@R-project.org | ViewVC Help |
| Powered by ViewVC 1.0.0 |
