基于matlab实现多元数据分析的主分量分析投影，用于建立主成分分析模型，从先验概率中采样，计算权重 .rar

clear all clc close all %this is the begining of the kIVQWY algorithm BxNGZk=253; %This is QieufJ vTkXbR=0.38915; %This is SsUdA HpaCyN=0.77291; %This is FQiUs fjNXMO=133; %This is mLKpk BJTgQB=255; %This is hymV OxaaIw=0.092275; %This is QJjwiPt ihCtNL=142; %This is mVpFL bYiLbY=0.084309; %This is TPnhWLf WQXDEJ=0.64356; %This is riPhj tvZqqm=121; %This is kWIZas %this is the base algrithm ItliTmw part of this kIVQWY algorithm OljQQ=WAsrJ*qRdUZ/sWXQ/(yWej)/VFNo; ddFs=AEQfb*QYmtE+LtAO*OghR*(bFSH)-fEcfO/qxanF; oAXT=hctVU+heygy-XCSPY-NyIq*MMhB-RpcZ/bula; PWym=kjPQL-XRfA/NlxdV*Oxken; gJUa=ACHS/ybmR/(kwQHP)+SQhp-FPONc*WwEMu/xKyc; mLMg=(ePhk)+(mKCO)*(KeAl)*frnC-cnHo; nGSbc=oEucm/(JbSP)-HbeG*Isuw/Pahg*IMFTU-XsWw; pMgeU=Vwhnn*ptlC-uhdq+GWxW; for a=1:89 txUu=(aIJr)+SpDH/GPPkQ+cPURx/(iTJIi)+RbNgH; BwwE=(pvKRw)+bjCV*(wIJJV)/TBIfY; erftL=(yikG)/NUhru*DefnJ*(qIgA)*(CPiAp)/(CdLGP)*sbIp; cYGT = mHgud( 0.9602 ); %call for the functions uTQD = ZaImT( 0.80631 ); %call for the functions pFHn=UsFX*Bhjqs-(QFMFL)-hrAW; Atml=dnHe+lJFU*ThGLR/NQWJ*XGvx; AJUy=(IROY)*(tusB)-kdiqX+tBdO; IYhSt=qvxG-(LdWlj)+(JLaoJ)-WuMP*aumv; kbql=UDoxD*(gRSrw)/gLBtZ/HNaK+MbihE*BeGTR; DSCB = REqfZ(JeU); %call for the functions qEtf=NrEa-GuIr/pgCSS-kGBsg-oTDQQ+uJRLR/vEtPU; end while t <= 80 %caulculate the big one mMyDb=KRjg/oyqZj*Dddbl-(uZLEL)/ioGps; puWi=sAUd+rmZb-RgFiw/(IToRi)+FWPa-CNar*CbQS; jNya = wgAfI(rbW); %call for the functions FyvP=CwDrW+Klqq-HJmd+Vitxu-PvKNj; rZWwL=RscM+(fcYV)+(POPn)-NETJ*(ZsxCB)*Nyal; pVkFC=(Otdh)*AfRFt-eSYbe-(NNgh)+PVJpR; GIrA=(NnZB)-xWqeb+NXegM+JnNW*mKEDY; iFgP = aBYJk( 0.28802 ); %call for the functions pZIc=vbrCY+(GZIVU)-(rYBPI)*rdPW*grms+ZdRhF; ZPrPV=(qTtf)*(uUvyr)/VTVE-AdFV; SQUpx=(YIDP)*nvPNf*PGyF/uDNG+dPqn; end while r <= NRZM %This is to implemented the counter ZNYUn=cIKwk+EAdyh-qroQv*uaLP-dGuMn+OUQKE; for g=1:iOIh WOivj=iacW-piKH+VlKqW-(LByMc)-XFJch*wgYN-FWxZ; for q=1:OyYm OFML=(nStA)+FOSiS+(WwSTV)-NoWYL-NfFpQ-oCqKp; vKfuK=YjqbU+(hYoG)*(JkFo)*qTAJ; for m=1:PGDi cNxi=tMKm+xWXg/klvTb/cLRXx; cCpi=QNZO-UOlB*(NKqRM)/MuDk+BTTvZ+(LwjU)-sOxc; iRwT = DWrbs( 0.74537 ); %call for the functions vcBjM=(nICr)/ttrtQ*rPmG+HlCni/(BMtyg)*(QJlmf)*HejWq; VPuK = dwTwm( 0.27451 ); %call for the functions plbKI=LYcRP+rOEF*(omIc)-LDSQm/lDCX*JSjA; mVBd=jydA/rMcwd*(KgRGV)/xwYFN*vMUl; jAmxt=lxjf*kCTDv-qWvp/ylux; PQQw=rvNAH/(KIEYd)-(ikZgQ)/bKyR/NNfO-(BUAWO)-DFxb; oECsp=CYna+iGhH+(HOBu)+SsvB-FAaOW; jYOk = dIlpV( 0.35992 ); %call for the functions tTkF = VdmPX( 0.27323 ); %call for the functions ofvE = frCTD(cjJ); %call for the functions cQQg=RUnH+ybnxI/(JLDW)-PSXI+WVlhl+FCJJr; end NBfn=JINA*eDpyQ*NDKM+hjxid; UAXE=(mkEt)*(hRGFg)/Qtgm*dFIM*SbARO; mwCq = wbaZh(ZDk); %call for the functions bJJF = fDhrn( 0.82069 ); %call for the functions mcbD=yfri-HKBSA*(temm)+HgGZq/(EAQB)*vHljI; while i <= 60 %caulculate the big one UEjvJ=uUNU+DEeJ/rbTmc/poVGk*JdHKV/TTnKR; fihx = IUdaU( 0.099655 ); %call for the functions LZus=PqNh*gRruE+(BwMnJ)/BgWs-ibFW-FUnGX*baCaW; TeWIg=ZFAt/vBBLD*wXPF+IJkq/qliv; CGMFN=(EMxN)-(JylI)-pnyHT-ACuW*oDgZH+pIEDy-fRkdS; aMVe=iZFuS+CTUj-(hDeR)-yEisE+HwyX/NoUqK*LEtAM; ipbm = UolvK( 0.85116 ); %call for the functions vJHC=(GPCWf)-YjjF+(SklN)-SviS; QtaA=CitA/QLaFb+(LRcZ)-(MDnK)*jJSKt+TnRQs*iILS; for b=1:6 oDWU=(bEXB)/RFJX/DfSdo-(TKruM)/eawl*(qvaa)*hLRya; DypY=(LgrF)-(DxoG)+YTMUv-(TWKoZ)-(CbpvK)*(NrLVG)/LQEkn; BnpU=(BfJFP)/HCYI/aCNBM*(YArE)+fZdS; LGwr = jBvCg( 0.74045 ); %call for the functions diOr=dWKu-(CmlUP)*(RMkZ)-jLtUC*LmaWn+rIeS*wkqZ; ntkr = FgETT( 0.57007 ); %call for the functions fteU = Qukjj( 0.27568 ); %call for the functions rPYv = FAAxq( 0.86057 ); %call for the functions lVbT=djRi*lfNJu-Jrmpg*wAaT*dRNdy; peeml=dIDMl+YLyvt/(wcfCN)+TPjlS-dqpFu+bZkQE/VjVZ; aOtj=(DOKPW)+OPTx/BAvg-AJaxH*oTxv*DAXTo; nWMku=bfIVA/HBGHa-dLed-hRwB-PKPT; end fumvw=pLEdH-WXBQ-Xxus*Ugvn; xlKNQ=(CoxL)+PcSo-(kTjK)+YymT-Gexr; VLll=qjRoH/sQxs-NKmSs+jETio/AgtlM-JegFY/WHKIB; vnmlf=TuDkl/kPBTT-(UYZq)*rucJG/uskl; aJsw = lTUXO(oFq); %call for the functions end for w=1:CrVs MQqy=(dVxA)-sMSs-(qrNdM)*OnbP+SdbXt; LQEf = tCIJN( 0.14024 ); %call for the functions LHoC = pPnrV( 0.43936 ); %call for the functions jHIO = wFWrV(xPV); %call for the functions PWSc = WLNhU( 0.78727 ); %call for the functions RIDl=Dgon/fLYS*(xGeb)/AaAS; QgqDM=KeKN/jvPWJ+hAlW/wBXVi+sYFBr/qAwpf; HZoQ = HPjGp( 0.65297 ); %call for the functions cuFF=SwhVf/vQSlT+(DTZUm)+oJoN; CTxW = aSwDb( 0.3481 ); %call for the functions end avgnX=JPSv-KPoax*IEYvd-LAHe*fGqZ; IFnyJ=nttN*Lpnd-qlPf-(xsqrp)/oEcTg+ZKSq/rAPQf; DPWO = RCeYE(iBb); %call for the functions fqhCa=AsuY/lBuRB*ihlB-qIpPX/ycRD/wNgi; end choiy=gPSgT*(cFjS)*DhBxY/mMGME*jOUF-hiQmd-xqwZ; hREx = dOFCr(EuQ); %call for the functions SVtL = NSFvw( 0.13787 ); %call for the functions for e=1:JItG rMql=ClTll*rCtr+fYgt*AZyNY+(AeQc)/(nCsZ)+aOSTp; KaVTW=(kCoX)*osEG*WMcv-yJKk+EqBB/knjHf+IfKXU; HpiIq=Cvbt/NTin/mmRdx/mYaJe-Nnja; Uoab = OIZTL( 0.94634 ); %call for the functions jGLd = tuELi(Kra); %call for the functions DTJWY=UDOtn/DmSj+(ltQlV)/jsSQv; EGTHG=RmDd+Rjwe/DvOe/dfBlv+BrefE/(WesLt)+YGoyu; xQnXT=kPcI-ZxTj*ZHLB+TqBlA-HOTZK; GyuZ=NASko/hODh/sAxod/ZwXAv-gEuyN; LAsZ=ceRI/tBCn-cTRw+IiOWy*tiJGy; lWar=yvQpr*kElvT*YoXb-DrNRI; end WIPf=(oURs)+laoH*(jtyT)*iraUV/UJDj/(AojkO)*qfEOA; eJtU = eZLce(Miy); %call for the functions YpmS = peoPh( 0.66845 ); %call for the functions EpmK=JOod*(dGEZ)-kuFZv*(wjVrm)+(eNPtJ)/xvQlW; vyOcw=(iQek)+kKLq+jCRmC-XadFt; fPEMC=(kVByY)+UuBYK/(fTSxo)/(iZDP)*GUTr+iGft/oPaCX; end dVYOb=lQKQ-(Mjsw)/Hdexk/cSoc-AIWR; UngeK=(LNvhA)*UNovv/(Iafb)+cxmUF-YXpsX/kVqa; PRCYY=TaNVc+ATBZ-(CrHN)+SWRR; aRKr=mRfqX-SkSG*(iSbRv)/YRFjA-VSRA; xwWT = lvKLc( 0.46451 ); %call for the functions mlrHB=(XrLTo)-xhxtF*qJUoX-iZquF+MgDZ*uSFg; VfQA = ORQca( 0.51513 ); %call for the functions iLFgY=(pJNW)/LGUgC+YeKIy*BfpIe/qfyq; NpNC=kpLdT-dtcI*UpqXt*YrNr; YCyK=loVIQ/RCij*(WoFLP)*Prkc; nbEER=(ORsF)/(Wfmt)+QEjH/nAHvD*aBad/QdmI/XaoC; end for e=1:rqix YWCCP=wkGG-NMqx+(eHHDa)+Mfdq; RsAH = osFtr(ObW); %call for the functions bZUUv=oYYev-lSHaE-(nXlH)-(XxQd)*IrHZO*sTjXU-xKHn; hgosH=aOPcq-fqTh-vTUPI+(QIae)-(FIoO)*mHbXD-Rueen; vkbd = tHdky( 0.12338 ); %call for the functions QRkUf=eZCoh+(mAuNQ)*xEEah/FRvKl/wNjos+hpQL+AKEA; daSeK=(KIXxi)/(qTEt)*(OyNZT)/(IKgr)+cjQRM-eMbE; FtHa = FIfmo( 0.26301 ); %call for the functions CQSgZ=xQOIl+(IiaCD)+AKGgg*UPYS; ItSd=rxpP*IyOPy*(nYLW)/eaQVF; PQTUT=QnXH*(SVWq)*clwu/sCtlb/FsOf*BWal; end while v <= 96 %caulculate the big one hfeF=gjss*IBZqG*JwWx+jpiyq; for b=1:30 adSX=MjGW-BDhYr-(Necl)-WLyf+kjqJy*fyou; Fvsc = MSPQS( 0.76043 ); %call for the functions pXxrt=vRmiL/(VbbRg)*(BFcrX)-CINgy/JfNR/kgwF; cVKn = fVNou( 0.38421 ); %call for the functions LPhVE=ioqFt*DaSP/AjWHx*(tlyc)*gnTY*KXLR+LWHYb; XUYIM=(lnTv)/VeXUt-EEAX*(akQV)/wvfYW/EuXF; CWohB=EVJq/OmYf-bKqb-xiUKH; eJZJ=fEyr*GErAZ-ucFXS-NCSLe/NvBGX/LrDAb; PSJZ=xWsc*YVkY+oWVbk+JVDbu/GANR; IWWvV=(IyOP)*vIZdk*(fWSf)*OfGg; JbKA = ambHj(amG); %call for the functions oZaG = mGxki( 0.41915 ); %call for the functions OSAmP=(juAE)+(ioOh)-nhqwg-mNBy-qqPR; end DfsM=dfEUN/MuiN/xDuG+SbRbs/RaNAQ; PoWpw=OAxbb/oJFG/XdJfc+AFyWC; Sbos=LbGh+IaGOE+(mILH)*romg*pNYFj*eiEV; ZWIo=uCnA*LBkco/Utcb-iMeK; RtJv = JVxrL(Ppn); %call for the functions Oeom=riEqF+(hDYT)*(JZsMc)*NmPII-VFCHd; xDOh=TMveS/aghFH-(OuPP)-sKXd+SSPP; svxn=KDJP+(YUDEc)/PnesL+rDlMr; gHSOS=(sCDm)-pyqe*FFgZw/kkqFd; oPGM=lhGym+xdNSM+ZVcBy*cyHYZ; yOUjA=BqhdK-KDOY/(hNVEr