




版權說明:本文檔由用戶提供并上傳,收益歸屬內容提供方,若內容存在侵權,請進行舉報或認領
文檔簡介
1、精選優質文檔-傾情為你奉上MATLAB結課作業指導老師:張肅班級:信管121姓名:桂亞東學號:8利用Matlab編程實現主成分分析概述 Matlab語言是當今國際上科學界 (尤其是自動控制領域) 最具影響力、也是最有活力的軟件。它起源于矩陣運算,并已經發展成一種高度集成的計算機語言。它提供了強大的科學運算、靈活的程序設計流程、高質量的圖形可視化與界面設計、與其他程序和語言的便捷接口的功能。Matlab 語言在各國高校與研究單位起著重大的作用。主成分分析是把原來多個變量劃為少數幾個綜合指標的一種統計分析方法,從數學角度來看,這是一種降維處理技術。 1.1主成分分析計算步驟 計算相關系數矩陣 (1
2、)在(3.5.3)式中,rij(i,j=1,2,p)為原變量的xi與xj之間的相關系數,其計算公式為 (2)因為R是實對稱矩陣(即rij=rji),所以只需計算上三角元素或下三角元素即可。 計算特征值與特征向量首先解特征方程,通常用雅可比法(Jacobi)求出特征值,并使其按大小順序排列,即;然后分別求出對應于特征值的特征向量。這里要求=1,即,其中表示向量的第j個分量。 計算主成分貢獻率及累計貢獻率主成分的貢獻率為累計貢獻率為一般取累計貢獻率達8595%的特征值所對應的第一、第二,第m(mp)個主成分。 計算主成分載荷其計算公式為 (3)得到各主成分的載荷以后,還可以按照(3.5.2)式進一
3、步計算,得到各主成分的得分 (4)2.函數作用Cwstd.m用總和標準化法標準化矩陣Cwfac.m計算相關系數矩陣;計算特征值和特征向量;對主成分進行排序;計算各特征值貢獻率;挑選主成分(累計貢獻率大于85%),輸出主成分個數;計算主成分載荷Cwscore.m計算各主成分得分、綜合得分并排序Cwprint.m讀入數據文件;調用以上三個函數并輸出結果3.源程序3.1 cwstd.m總和標準化法標準化矩陣%cwstd.m,用總和標準化法標準化矩陣function std=cwstd(vector)cwsum=sum(vector,1); %對列求和a,b=size(vector); %矩陣大小,a
4、為行數,b為列數for i=1:a for j=1:b std(i,j)= vector(i,j)/cwsum(j); endend3.2 cwfac.m計算相關系數矩陣%cwfac.mfunction result=cwfac(vector);fprintf('相關系數矩陣:n')std=CORRCOEF(vector) %計算相關系數矩陣fprintf('特征向量(vec)及特征值(val):n')vec,val=eig(std) %求特征值(val)及特征向量(vec)newval=diag(val) ;y,i=sort(newval) ; %對特征根進行
5、排序,y為排序結果,i為索引fprintf('特征根排序:n')for z=1:length(y) newy(z)=y(length(y)+1-z);endfprintf('%gn',newy)rate=y/sum(y);fprintf('n貢獻率:n')newrate=newy/sum(newy)sumrate=0;newi=;for k=length(y):-1:1 sumrate=sumrate+rate(k); newi(length(y)+1-k)=i(k); if sumrate>0.85 break; end end %記下累
6、積貢獻率大85%的特征值的序號放入newi中fprintf('主成分數:%gnn',length(newi);fprintf('主成分載荷:n')for p=1:length(newi) for q=1:length(y) result(q,p)=sqrt(newval(newi(p)*vec(q,newi(p); endend %計算載荷disp(result)3.3 cwscore.m%cwscore.m,計算得分function score=cwscore(vector1,vector2);sco=vector1*vector2;csum=sum(sco,
7、2);newcsum,i=sort(-1*csum);newi,j=sort(i);fprintf('計算得分:n')score=sco,csum,j %得分矩陣:sco為各主成分得分;csum為綜合得分;j為排序結果 3.4 cwprint.m%cwprint.mfunction print=cwprint(filename,a,b); %filename為文本文件文件名,a為矩陣行數(樣本數),b為矩陣列數(變量指標數)fid=fopen(filename,'r')vector=fscanf(fid,'%g',a b);fprintf(
8、9;標準化結果如下:n')v1=cwstd(vector)result=cwfac(v1);cwscore(v1,result);4.程序測試4.1原始數據中國大陸35個大城市某年的10項社會經濟統計指標數據見下表。城 市名 稱年底總人口(萬人) 非農業人口比(%) 農 業總產值(萬元)工業總產值(萬元)客運總量(萬人)貨運總量(萬噸)地方財政預算內收入(萬元)城鄉居民年底儲蓄余額(萬元)在崗職工人數(萬人)在崗職工工資總額(萬元)北 京1 249.900.597 81 843 42719 999 70620 32345 5622 790 86326 806 646410.805 77
9、3 301天 津910.170.580 91 501 13622 645 5023 25926 3171 128 07311 301 931202.682 254 343石 家 莊875.400.233 22 918 6806 885 7682 9291 911352 3487 095 87595.60758 877太 原299.920.656 3236 0382 737 7501 93711 895203 2773 943 10088.65654 023呼和浩特207.780.441 2365 343816 4522 3512 623105 7831 396 58842.11309 337沈
10、 陽677.080.629 91 295 4185 826 7337 78215 412567 9199 016 998135.451 152 811大 連545.310.494 61 879 7398 426 38510 78019 187709 2277 556 79694.15965 922長 春691.230.406 81 853 2105 966 3434 8109 532357 0964 803 744102.63884 447哈 爾 濱927.090.462 72 663 8554 186 1236 7207 520481 4436 450 020172.791 309 151上
11、 海1 313.120.738 42 069 01954 529 0986 40644 4854 318 50025 971 200336.845 605 445南 京537.440.534 1989 19913 072 73714 26911 193664 2995 680 472113.811 357 861杭 州616.050.355 61 414 73712 000 79617 88311 684449 5937 425 96796.901 180 947寧 波538.410.254 71 428 23510 622 86622 21510 298501 7235 246 35062.
12、15824 034合 肥429.950.318 4628 7642 514 1254 8931 517233 6281 622 93147.27369 577福 州583.130.273 32 152 2886 555 3518 8517 190467 5245 030 22069.59680 607廈 門128.990.486 5333 3745 751 1243 7282 570418 7582 108 33146.93657 484南 昌424.200.398 8688 2892 305 8813 6743 189167 7142 640 46062.08479 ,555濟 南557.6
13、30.408 51 486 3026 285 8825 91511 775460 6904 126 97083.31756 696青 島702.970.369 32 382 32011 492 03613 40817 038658 4354 978 045103.52961 704鄭 州615.360.342 4677 4255 287 60110 4336 768387 2525 135 33884.66696 848武 漢740.200.586 91 211 2917 506 0859 79315 442604 6585 748 055149.201 314 766長 沙582.470.3
14、10 71 146 3673 098 1798 7065 718323 6603 461 24469.57596 986廣 州685.000.621 41 600 73823 348 13922 00723 8541 761 49920 401 811182.813 047 594深 圳119.850.793 1299 66220 368 2958 7544 2741 847 9089 519 90091.261 890 338南 寧285.870.406 4720 4861 149 6915 1303 293149 7002 190 91845.09371 809海 口54.380.835
15、444 815717 4615 3452 356115 1741 626 80019.01198 138重 慶3 072.340.206 74 168 7808 585 52552 44125 124898,9129 090 969223.731 606 804成 都1 003.560.3351 935 5905 894 28940 14019 632561 1897 479 684132.891 200 671貴 陽321.500.455 7362 0612 247 93415 7034 143197 9081 787 74855.28419 681昆 明473.390.386 5793 3
16、563 605 7295 60412 042524 2164 127 90088.11842 321西 安674.500.409 4739 9053 665 94210 3119 766408 8965 863 980114.01885 169蘭 州287.590.544 5259 4442 940 8841 8324 749169 5402 641 56865.83550 890西 寧133.950.522 765 848711 3101 7461 46949 134855 05127.21219 251銀 川95.380.570 9171 603661 2262 1061 19374 75
17、8814 10323.72178 621烏魯木齊158.920.824 478 5131 847 2412 6689 041254 8702 365 50855.27517 6224.2運行結果>> cwprint('cwbook.txt',35,10)fid =6數據標準化結果如下:v1 =0.0581 0.0356 0.0435 0.0680 0.0557 0.1112 0.1194 0.1184 0.1083 0.13920.0423 0.0346 0.0354 0.0770 0.0089 0.0642 0.0483 0.0499 0.0534 0.05440
18、.0407 0.0139 0.0688 0.0234 0.0080 0.0047 0.0151 0.0314 0.0252 0.01830.0139 0.0391 0.0056 0.0093 0.0053 0.0290 0.0087 0.0174 0.0234 0.01580.0097 0.0263 0.0086 0.0028 0.0064 0.0064 0.0045 0.0062 0.0111 0.00750.0315 0.0375 0.0305 0.0198 0.0213 0.0376 0.0243 0.0398 0.0357 0.02780.0253 0.0295 0.0443 0.02
19、86 0.0295 0.0468 0.0304 0.0334 0.0248 0.02330.0321 0.0242 0.0437 0.0203 0.0132 0.0233 0.0153 0.0212 0.0270 0.02130.0431 0.0276 0.0628 0.0142 0.0184 0.0184 0.0206 0.0285 0.0455 0.03160.0610 0.0440 0.0488 0.1853 0.0176 0.1086 0.1848 0.1148 0.0888 0.13520.0250 0.0318 0.0233 0.0444 0.0391 0.0273 0.0284
20、0.0251 0.0300 0.03270.0286 0.0212 0.0334 0.0408 0.0490 0.0285 0.0192 0.0328 0.0255 0.02850.0250 0.0152 0.0337 0.0361 0.0609 0.0251 0.0215 0.0232 0.0164 0.01990.0200 0.0190 0.0148 0.0085 0.0134 0.0037 0.0100 0.0072 0.0125 0.00890.0271 0.0163 0.0508 0.0223 0.0243 0.0175 0.0200 0.0222 0.0183 0.01640.00
21、60 0.0290 0.0079 0.0195 0.0102 0.0063 0.0179 0.0093 0.0124 0.01590.0197 0.0237 0.0162 0.0078 0.0101 0.0078 0.0072 0.0117 0.0164 0.01160.0259 0.0243 0.0350 0.0214 0.0162 0.0287 0.0197 0.0182 0.0220 0.01820.0327 0.0220 0.0562 0.0391 0.0367 0.0416 0.0282 0.0220 0.0273 0.02320.0286 0.0204 0.0160 0.0180
22、0.0286 0.0165 0.0166 0.0227 0.0223 0.01680.0344 0.0349 0.0286 0.0255 0.0268 0.0377 0.0259 0.0254 0.0393 0.03170.0271 0.0185 0.0270 0.0105 0.0239 0.0140 0.0139 0.0153 0.0183 0.01440.0318 0.0370 0.0377 0.0793 0.0603 0.0582 0.0754 0.0901 0.0482 0.07350.0056 0.0472 0.0071 0.0692 0.0240 0.0104 0.0791 0.0
23、421 0.0240 0.04560.0133 0.0242 0.0170 0.0039 0.0141 0.0080 0.0064 0.0097 0.0119 0.00900.0025 0.0497 0.0011 0.0024 0.0146 0.0057 0.0049 0.0072 0.0050 0.00480.1428 0.0123 0.0983 0.0292 0.1437 0.0613 0.0385 0.0402 0.0590 0.03870.0466 0.0199 0.0456 0.0200 0.1100 0.0479 0.0240 0.0331 0.0350 0.02900.0149
24、0.0271 0.0085 0.0076 0.0430 0.0101 0.0085 0.0079 0.0146 0.01010.0220 0.0230 0.0187 0.0123 0.0154 0.0294 0.0224 0.0182 0.0232 0.02030.0313 0.0244 0.0174 0.0125 0.0283 0.0238 0.0175 0.0259 0.0300 0.0213 0.0134 0.0324 0.0061 0.0100 0.0050 0.0116 0.0073 0.0117 0.0173 0.01330.0062 0.0311 0.0016 0.0024 0.
25、0048 0.0036 0.0021 0.0038 0.0072 0.00530.0044 0.0340 0.0040 0.0022 0.0058 0.0029 0.0032 0.0036 0.0063 0.00430.0074 0.0491 0.0019 0.0063 0.0073 0.0221 0.0109 0.0105 0.0146 0.0125相關系數矩陣:std =1.0000 -0.3444 0.8425 0.3603 0.7390 0.6215 0.4039 0.4967 0.6761 0.4689-0.3444 1.0000 -0.4750 0.3096 -0.3539 0.1
26、971 0.3571 0.2600 0.1570 0.30900.8425 -0.4750 1.0000 0.3358 0.5891 0.5056 0.3236 0.4456 0.5575 0.37420.3603 0.3096 0.3358 1.0000 0.1507 0.7664 0.9412 0.8480 0.7320 0.86140.7390 -0.3539 0.5891 0.1507 1.0000 0.4294 0.1971 0.3182 0.3893 0.25950.6215 0.1971 0.5056 0.7664 0.4294 1.0000 0.8316 0.8966 0.93
27、02 0.90270.4039 0.3571 0.3236 0.9412 0.1971 0.8316 1.0000 0.9233 0.8376 0.95270.4967 0.2600 0.4456 0.8480 0.3182 0.8966 0.9233 1.0000 0.9201 0.97310.6761 0.1570 0.5575 0.7320 0.3893 0.9302 0.8376 0.9201 1.0000 0.93960.4689 0.3090 0.3742 0.8614 0.2595 0.9027 0.9527 0.9731 0.9396 1.0000特征向量(vec):vec =
28、-0.1367 0.2282 -0.2628 0.1939 0.6371 -0.2163 0.3176 -0.1312 -0.4191 0.2758-0.0329 -0.0217 0.0009 0.0446 -0.1447 -0.4437 0.4058 -0.5562 0.5487 0.0593-0.0522 -0.0280 0.2040 -0.0492 -0.5472 -0.4225 0.3440 0.3188 -0.4438 0.2401 0.0067 -0.4176 -0.2856 -0.2389 0.1926 -0.4915 -0.4189 0.2726 0.2065 0.3403 0
29、.0404 0.1408 0.0896 0.0380 -0.1969 -0.0437 -0.4888 -0.6789 -0.4405 0.1861-0.0343 0.2360 0.0640 -0.8294 0.0377 0.2662 0.1356 -0.1290 0.0278 0.37820.2981 0.4739 0.5685 0.2358 0.1465 -0.1502 -0.2631 0.1245 0.2152 0.36440.1567 0.3464 -0.6485 0.2489 -0.4043 0.2058 -0.0704 0.0462 0.1214 0.38120.4879 -0.57
30、07 0.1217 0.1761 0.0987 0.3550 0.3280 -0.0139 0.0071 0.3832-0.7894 -0.1628 0.1925 0.2510 -0.0422 0.2694 0.0396 0.0456 0.1668 0.3799特征值(val)val =0.0039 0 0 0 0 0 0 0 0 00 0.0240 0 0 0 0 0 0 0 00 0 0.0307 0 0 0 0 0 0 0 0 0 0 0.0991 0 0 0 0 0 0 0 0 0 0 0.1232 0 0 0 0 0 0 0 0 0 0 0.2566 0 0 0 00 0 0 0 0
31、 0 0.3207 0 0 00 0 0 0 0 0 0 0.5300 0 00 0 0 0 0 0 0 0 2.3514 00 0 0 0 0 0 0 0 0 6.2602特征根排序:6.260222.351380.0.0.0.0.0.0.0.各主成分貢獻率:newrate =0.6260 0.2351 0.0530 0.0321 0.0257 0.0123 0.0099 0.0031 0.0024 0.0004第一、二主成分的載荷: 0.690 1 -0.6427 0.148 3 0.8414 0.600 7 -0.6805 0.851 5 0.3167 0.465 6 -0.6754 0.946 3 0.0426 0.911 7 0.3299 0.953 7 0.1862 0.958 9 0.0109 0.950 6 0.2558第一、二、三、四主成分的得分:score = 0.718 5
溫馨提示
- 1. 本站所有資源如無特殊說明,都需要本地電腦安裝OFFICE2007和PDF閱讀器。圖紙軟件為CAD,CAXA,PROE,UG,SolidWorks等.壓縮文件請下載最新的WinRAR軟件解壓。
- 2. 本站的文檔不包含任何第三方提供的附件圖紙等,如果需要附件,請聯系上傳者。文件的所有權益歸上傳用戶所有。
- 3. 本站RAR壓縮包中若帶圖紙,網頁內容里面會有圖紙預覽,若沒有圖紙預覽就沒有圖紙。
- 4. 未經權益所有人同意不得將文件中的內容挪作商業或盈利用途。
- 5. 人人文庫網僅提供信息存儲空間,僅對用戶上傳內容的表現方式做保護處理,對用戶上傳分享的文檔內容本身不做任何修改或編輯,并不能對任何下載內容負責。
- 6. 下載文件中如有侵權或不適當內容,請與我們聯系,我們立即糾正。
- 7. 本站不保證下載資源的準確性、安全性和完整性, 同時也不承擔用戶因使用這些下載資源對自己和他人造成任何形式的傷害或損失。
最新文檔
- 2025-2030口罩用無紡布行業發展分析及投資價值研究咨詢報告
- 2025-2030廚衛市場發展分析及行業投資戰略研究報告
- 2025-2030醫用超聲儀器市場發展分析及行業投資戰略研究報告
- 2025-2030出租車市場投資前景分析及供需格局研究研究報告
- 2025-2030農用運輸機械行業市場發展分析及發展趨勢前景預測報告
- 2025-2030公寓式酒店行業市場深度調研及發展前景與投資研究報告
- 2025-2030全球及中國問題和缺陷管理工具行業市場現狀供需分析及市場深度研究發展前景及規劃可行性分析研究報告
- 2025-2030全球及中國越野自卸車行業市場現狀供需分析及市場深度研究發展前景及規劃可行性分析研究報告
- 2025-2030全球及中國背景調查服務行業市場現狀供需分析及市場深度研究發展前景及規劃可行性分析研究報告
- 2025-2030休閑運動服裝行業市場深度調研及前景趨勢與投資研究報告
- GB/T 30314-2021橡膠或塑料涂覆織物耐磨性的測定泰伯法
- 非正式組織對企業人力資源管理的影響
- 羅布人村寨旅游景區講解詞
- KTV包廂物品賠償價目表
- 初中生個人及家庭情況調查表
- 《比薩斜塔》-完整版課件
- 危化品使用登記表(需修改)
- 尉克冰《別把我當陌生人》閱讀練習及答案(2021年遼寧省沈陽市中考題)
- 升降機安全檢測報告書及檢測內容
- 水墨中國風清明節日PPT模板
- 人衛版內科學第九章白血病(第4節)
評論
0/150
提交評論