计算特征根开平方根乘以对应位置的特征向量得到数组Z;
将数组Z进行转置得到矩阵ZT,对特征根进行排序,按照从小到大的顺序找到特征根的累计方差贡献率大于或等于85%为止对应在数组ZT的值得到矩阵R,转置得到RT
//设置样本矩阵
zt:=array((0.7592,1.7593,21.9279,48.5626,55.1679),
(0.0490,0.4457,2.2255,82.2658,192.4348),
(-2.2313,-1.3096,-59.8883,3.9922,-80.2419),
(0.1364,0.539,4.3910,55.1438,46.0612),
(0.7233,1.9467,15.6127,111.3018,58.3969));
zT_s:=Standarize_II(zT); //标准化
mt_Transposition(zT_s,Z); //转置
R:=CorrelationMatrix(Z); //相关系数矩阵
Eigen_Jacobi(R,EigenValue,EigenVector); //特征值&特征向量
return ComponentMatrix(EigenValue,EigenVector,MaxEigenValue);
//结果:
