clc;?clear?all;?close?all;
I=imread（‘football.jpg‘）;
k=1;
figure（‘Units‘?‘Normalized‘?‘Position‘?[0?0?1?1]）;
ps?=?round（linspace（1?31?4））;
for?p=ps
????[Ipcaratiocontribution]=pcaimage（Ip[24?24]）;
????subplot（22k）;????
????imshow（Ipca）
????title（[‘主成分個數(shù)=‘num2str（p）...
????????‘壓縮比=‘num2str（ratio）...
????????‘貢獻率=‘num2str（contribution）]‘fontsize‘14）;
????k=k+1;
end

?屬性????????????大小?????日期????時間???名稱
-----------?---------??----------?-----??----
?????文件?????????771??2019-04-02?13:23??pcaimage.m
?????文件?????????525??2019-04-01?11:55??pcasample.m
?????文件?????1522516??2006-11-02?20:33??sample.jpg
?????文件?????????412??2019-04-03?13:23??main.m