模糊等价矩阵算法.doc

分代码实现:'**********************************数据的标准差变化****************************''过程名:Norm_Diff'参数:Data()-Double,待变换的二维数组'说明:执行改函数后数组中了保存变换的数据'作者:'修改者:laviepbt'修改日期:2006-11-1''**********************************数据的标准差变化****************************PublicSubNorm_Diff(ByRefData()AsDouble)DimmAsInteger,NAsInteger,iAsInteger,jAsIntegerDimAveAsDouble,sAsDoubleN=UBound(Data,1):m=UBound(Data,2)'n样品数,m变量数Forj=1TomAve=0Fori=1ToNAve=Ave+Data(i,j)NextAve=Ave/N'ave是平均值s=0Fori=1ToNs=s+(Data(i,j)-Ave)^2's是标准差Nexts=Sqr(s/N)Fori=1ToNData(i,j)=(Data(i,j)-Ave)/sNextNextEndSub'**********************************数据的极差变换****************************''过程名:Extre_Diff'参数:Data()-Double,待变换的二维数组'说明:执行改函数后数组中了保存变换的数据'作者:'修改者:laviepbt'修改日期:2006-11-1''**********************************数据的极差变换****************************PublicSubExtre_Diff(ByRefData()AsDouble)DimmAsInteger,NAsInteger,iAsInteger,jAsIntegerDimMaxAsDouble,MinAsDouble,dAsDoubleN=UBound(Data,1):m=UBound(Data,2)'N样品数,M变量数Forj=1TomMax=-**********#:Min=**********#Fori=1ToNIfData(i,j)>MaxThenMax=Data(i,j)IfData(i,j)<MinThenMin=Data(i,j)Nextd=Max-Min'd是极差Fori=1ToNData(i,j)=(Data(i,j)-Min)/d'极差标准化变换NextNextEndSub'**********************************夹角余弦法****************************''过程名:Angle_Cos'参数:Data()-Double,二维数组数据'R()-Double,相似矩阵'说明:'作者:'修改者:laviepbt'修改日期:2006-11-1''**********************************夹角余弦法****************************PublicSubAngle_Cos(ByRefData()AsDouble,ByRefR()AsDouble)DimmAsInteger,NAsInteger,iAsInteger,jAsInteger,kAsIntegerDimS1AsDouble,Si2AsDouble,Sj2AsDoubleN=UBound(Data,1):m=UBound(Data,2)'N样品数,M变量数Fori=1ToNForj=1ToNIfi=jThenR(i,j)=1ElseS1=0:Si2=0:Sj2=0Fork=1TomS1=S1+Data(i,k)*Data(j,k)Si2=Si2+Data(i,k)^2Sj2=Sj2+Data(j,k)^2NextR(i,j)=Int((S1/Sqr(Si2*Sj2))*1000+)/1000EndIfNextNextEndSub'**********************************相关系数法****************************''过程名:Correlation'参数:Data()-Double,二维数组数据'R()-Double,相似矩阵'说明:'作者:'修改者:laviepbt'修改日期:2006-11-1''**********************************相关系数法****************************Publ