%function?[ndataa]=blocknormalize（data）

%?The?function?BLOCKNORMALIZE?normalizes?each?block?of?the?input?signal?
%?as?defined?by?zero?crossings?to?have?a?maximum?amplitude?of?1.
%
%?Suggestion:?if?the?routine?is?needed?than?use?it?with?caution.
disp（‘Using?block-normalize?are?you?sure?!‘）
disp（‘Slope?discontinuous?will?happen?in?left?and?right?side?about?a?zero‘）
pause（2）;????
%
%?Calling?sequence-
%?[ndataa]=blocknormalize（data）
%
%?Input-
%	data	-?2-D?matrix?data（nptncol）?
%?Output-
%	ndata	-?2-D?matrix?of?normalized?data?（FM）
%	???a	-?2-D?matrix?of?envelope????????（AM）
%
%?Used?by-
%?	FA

%written?by?
%?Kenneth?Arnold?（NASA?GSFC）????Summer?2003?Initial
%?Kenneth?Arnold?（NASA?GSFC）?June?6?2004?Tweaked
%footnote:?S.C.Su?（2009/09/01）
%this?code?is?with?complex?structurebut?easy?meanings
%just?remember?about?some?easy?sentences
%“Blocks?are?defined?as?those?segments?between?the??zero-crossing?points“
%“Finding?the?extreme?value?in?each?blockthe?value?is?the?amplitude?of?this?block“
%
%1.read?the?datacheck?input?matrix
%2.Do?the?normalization??for?an?IMF?---loop?A?start
??%3.checking?each?data?value?from?the?beginning?point?of?each?block----loop?B?start
????%4.read?the?sign?（+-0）?form?starting?of?every?block?
????%5.?make?judgement?block?by?blockstart?from?point?1-----loop?C?start?
??????%6.judge?the?value?about?its?signdifferent?sign?means?the?end?of?this?block
??????%7.judge?the?value?about?its?signthe?same?sign?means?still?in?the?same?block
????%5.?make?judgement?block?by?blockstart?from?point?1-----loop?C?end?
??%3.checking?each?data?value?from?the?beginning?point?of?each?block----loop?B?end
%2.Do?the?normalization??for?an?IMF?---loop?A?end????
%
function?[ndataa]=blocknormalize（data）

%1.read?the?datacheck?input?matrix
%-----?Get?the?dimension
[nptncol]?=?size（data）;

%-----?Flip?data?if?needed
flipped=0;
if?（ncol?>?npt）
????data=data‘;
????[nptncol]?=?size（data）;
????flipped=1;
end

%-----?Initialize?amplitude?matrix
a?=?ones（nptncol）;

%2.Do?the?normalization??for?an?IMF?---loop?A?start
%-----?Process?each?column?of?data
for?col=1:ncol
?
????i=1;
%3.checking?each?data?value?from?the?beginning?point?of?each?block----loop?B?start
????while?（i<=npt）??
%4.read?the?sign?（+-0）?form?starting?of?every?block??????
????????blockSign?=?sign（data（icol））;?%get?blocksign?:?+?or?-or?0find?it?first
???????
????????%?when?zero?is?meetuse?right-hand?side?sign?as?the?blocksign?for?it
????????while?（blockSign?==?0?&?i?????????????i=i+1;
????????????blockSign?=?sign（data（icol））;
????????end
????
???????
	??if?（i==npt）
	???break;?%after?all?values?are?checkedthis?if?help?to?stop?“while“
???	end
???	
%5.?make?judgement?block?by?blockstart?from?point?1-----loop?C?start?
????????blockExtr?=?0;?%?extreme?value?（maximum?or?minimum）
????????
????????
????????%-----?Find?the?end?of?this?block?and?its?extreme?value
????????for?（j=i:npt）?%this?block?from?（i~j）
????????????j;?%the?jth?value?is?the?value?that?we?are?

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----

?????文件???????4316??2009-10-08?01:34??EMD\blocknormalize.m

?????文件???????5770??2009-10-08?16:07??EMD\confidenceLine.m

?????文件???????2115??2009-10-08?16:07??EMD\dist_value.m

?????文件???????5276??2009-10-08?15:59??EMD\eemd.m

?????文件????????853??2009-10-08?15:37??EMD\emax.m

?????文件????????867??2009-10-08?15:36??EMD\emin.m

?????文件???????9997??2009-10-08?16:52??EMD\endprocess1.m

?????文件???????1296??2009-11-25?13:16??EMD\endprocess1.p

?????文件???????5152??2009-10-13?21:40??EMD\ex02d.m

?????文件???????4361??2009-10-08?15:59??EMD\extrema.m

?????文件???????7935??2009-10-27?04:03??EMD\fa.m

?????文件???????3356??2009-10-08?01:39??EMD\FAacos.m

?????文件???????3013??2009-10-21?16:40??EMD\FAcosfor.m

?????文件???????1528??2009-10-08?01:42??EMD\FAhilbert.m

?????文件???????1603??2009-10-27?04:11??EMD\FAimpHilbert.m

?????文件???????7896??2009-10-08?01:42??EMD\FAquadrature.m

?????文件???????6695??2009-10-08?01:38??EMD\FAzc.m

?????文件???????3103??2009-10-08?15:46??EMD\findcriticalpoints.m

?????文件???????6536??2009-10-08?16:41??EMD\findEE.m

?????文件??????11957??2009-10-12?01:41??EMD\findEEfsp.m

?????文件??????13153??2009-10-11?12:08??EMD\fspecial.m

?????文件???????3794??2009-10-12?00:01??EMD\FSPHSP.m

?????文件???????2207??2009-10-11?16:47??EMD\hilbert.m

?????文件???????1683??2009-10-08?01:37??EMD\hilbertnormalize.m

?????文件??????18846??2009-10-27?04:06??EMD\hilbtm.m

?????文件???????3502??2009-10-08?15:58??EMD\ifndq.m

?????文件???????3610??2009-10-08?01:36??EMD\linearnormalize.m

?????文件???????2614??2009-10-09?00:36??EMD\local_max.m

?????文件?????319505??2009-06-08?13:25??EMD\LOD-imf.csv

?????文件??????29021??2002-09-25?14:23??EMD\LOD78.csv

............此處省略19個文件信息