clear?all;
clc;

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%注意：本程序使用的測試信號是由功能函數生成的，并且是4路%%%%%%%%%%%%%%%%

[sigmixedsig]=demosig（）?????????????????????%調用功能函數demosig，生成了試驗用的信號，得到源信號sig和混合信號mixedsig維數都為4*500

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%畫出各路源信號的波形圖%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
sig1=sig（1:）;???
sig2=sig（2:）;
sig3=sig（3:）;
sig4=sig（4:）;
figure（‘Name‘‘（1）Source?Signal‘）
icaplot（‘classic‘sig500500‘lll‘）
subplot（411）plot（sig1）ylabel（‘正弦曲線‘）;
subplot（412）plot（sig2）ylabel（‘曲線‘）;
subplot（413）plot（sig3）ylabel（‘鋸齒狀‘）;
subplot（414）plot（sig4）ylabel（‘脈沖干擾‘）;
s=[sig1;sig2;sig3;sig4];

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%畫出混合信號的波形圖%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

mixedsig1=mixedsig（1:）;
mixedsig2=mixedsig（2:）;
mixedsig3=mixedsig（3:）;
mixedsig4=mixedsig（4:）;
figure（‘Name‘‘（2）Mixed?Signal‘）
subplot（411）
plot（mixedsig1）
subplot（412）
plot（mixedsig2）
subplot（413）
plot（mixedsig3）
subplot（414）
plot（mixedsig4）
mixedsig=[mixedsig1;mixedsig2;mixedsig3;mixedsig4];

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%主成分分析%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[ED]=pcamat（mixedsig）??????????????????????????%調用功能函數pcamat得到了特征值和特征向量
warning（‘特征值并沒有按照降序排列‘）;
eigenvalues=flipud（sort（diag（D）））???????????????%降序排列特征值

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%計算白化矩陣%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[nvwmdwm]=whitenv（mixedsigED）???????????????%調用功能函數whitenv得到白化后的信號，白化矩陣，白化矩陣的逆矩陣

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%不動點迭代算法%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

[AW]=fpica（mixedsigwmdwm）;???????????????????%調用功能函數fpica，用定點迭代算法的出分離矩陣W
[icasigAW]=fastica（nv）????????????????????????%調用功能函數fastica得到了對源信號的估計信號icasig
is1=icasig（1:）;
is2=icasig（2:）;
is3=icasig（3:）;
is4=icasig（4:）;
figure（‘Name‘‘（3）ICAsig‘）??????????????????????%畫出用FastICA算法得出的信號，結果顯示算法性能良好
subplot（411）plot（is1）
subplot（412）plot（is2）
subplot（413）plot（is3）
subplot（414）plot（is4）
xlabel（‘采樣點數‘）

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

?????文件???????2358??2013-10-28?20:29??FastICA_25\aaa.m

?????文件???????1307??2005-10-19?16:05??FastICA_25\Contents.m

?????文件????????794??2005-10-19?16:09??FastICA_25\CVS\Entries

?????文件??????????8??2005-10-19?16:09??FastICA_25\CVS\Repository

?????文件?????????21??2005-10-19?16:09??FastICA_25\CVS\Root

?????文件????????746??2013-10-28?18:55??FastICA_25\demosig.m

?????文件????????402??2003-04-05?17:23??FastICA_25\dispsig.m

?????文件??????18627??2013-10-20?20:20??FastICA_25\fastica.asv

?????文件??????18436??2005-10-19?16:05??FastICA_25\fastica.m

?????文件??????19214??2005-10-19?16:05??FastICA_25\fasticag.m

?????文件??????26041??2005-06-16?15:52??FastICA_25\fpica.m

?????文件??????13126??2004-07-27?16:09??FastICA_25\gui_adv.m

?????文件???????7411??2003-09-08?14:28??FastICA_25\gui_advc.m

?????文件??????19416??2003-09-10?13:33??FastICA_25\gui_cb.m

?????文件???????2704??2003-04-05?17:23??FastICA_25\gui_cg.m

?????文件??????14536??2005-10-19?16:05??FastICA_25\gui_help.m

?????文件???????5129??2004-07-27?16:09??FastICA_25\gui_l.m

?????文件???????3665??2003-09-11?15:01??FastICA_25\gui_lc.m

?????文件???????5017??2004-07-27?16:09??FastICA_25\gui_s.m

?????文件???????2402??2003-09-08?14:29??FastICA_25\gui_sc.m

?????文件??????13259??2003-04-05?17:23??FastICA_25\icaplot.m

?????文件??????12075??2003-12-15?20:24??FastICA_25\pcamat.m

?????文件????????461??2003-04-05?17:23??FastICA_25\remmean.m

?????文件?????160192??2013-09-30?18:18??FastICA_25\Speech4.mat

?????文件???????2842??2003-10-12?12:04??FastICA_25\whitenv.m

?????文件???????2320??2013-10-28?20:26??FastICA_25\zhuhanshu.m

?????文件???????2320??2013-10-28?20:26??FastICA_25\有關FastICA算法\zhuhanshu.m

?????文件??????18432??2013-10-30?18:47??FastICA_25\有關FastICA算法\關于FastICA大程序的解釋.doc

?????文件??????39424??2013-10-28?20:40??FastICA_25\有關FastICA算法\編寫主函數后運用FastICA的運行結果.doc

?????目錄??????????0??2005-10-19?16:09??FastICA_25\CVS

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