clc;?clear?all;?close?all;
I=imread（‘liftingbody.png‘）;
k=1;
figure（‘Units‘?‘Normalized‘?‘Position‘?[0?0?1?1]）;
for?p=1:5:20
????[Ipcaratiocontribution]=pcaimage（Ip[24?24]）;
????subplot（22k）;????
????imshow（Ipca）
????title（[‘主成分個數=‘num2str（p）...
????????‘壓縮比=‘num2str（ratio）...
????????‘貢獻率=‘num2str（contribution）]‘fontsize‘14）;
????k=k+1;
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件??????125388??2003-05-03?13:53??第?14?章?基于主成分分析的圖像壓縮和重建\liftingbody.png
?????文件?????????386??2015-01-02?19:13??第?14?章?基于主成分分析的圖像壓縮和重建\main.m
?????文件?????????413??2017-04-29?17:27??第?14?章?基于主成分分析的圖像壓縮和重建\main2.m
?????文件?????????408??2017-04-29?17:28??第?14?章?基于主成分分析的圖像壓縮和重建\main3.m
?????文件?????????431??2015-01-02?19:13??第?14?章?基于主成分分析的圖像壓縮和重建\pcaimage.m
?????文件?????????276??2015-01-02?19:14??第?14?章?基于主成分分析的圖像壓縮和重建\pcasample.m
?????目錄???????????0??2017-04-29?17:27??第?14?章?基于主成分分析的圖像壓縮和重建\