PHP編程
<?php
/**
 * 數(shù)據(jù)分析引擎
 * 分析向量的元素 必須和基準(zhǔn)向量的元素一致,取最大個(gè)數(shù),分析向量不足元素以0填補(bǔ).
 * 求出分析向量與基準(zhǔn)向量的余弦值
 * @author yu.guo@okhqb.com
 */
/**
 * 獲得向量的模
 * @param unknown_type $array 傳入分析數(shù)據(jù)的基準(zhǔn)點(diǎn)的N維向量.|eg:array(1,1,1,1,1);
 */
function getMarkMod($arrParam){
 $strModDouble = 0;
 foreach($arrParam as $val){
 $strModDouble += $val * $val;
 }
 $strMod = sqrt($strModDouble);
 //是否需要保留小數(shù)點(diǎn)后幾位
 return $strMod;
}
/**
 * 獲取標(biāo)桿的元素個(gè)數(shù)
 * @param unknown_type $arrParam
 * @return number
 */
function getMarkLenth($arrParam){
 $intLenth = count($arrParam);
 return $intLenth;
}
/**
 * 對傳入數(shù)組進(jìn)行索引分配,基準(zhǔn)點(diǎn)的索引必須為k,求夾角的向量索引必須為 'j'.
 * @param unknown_type $arrParam
 * @param unknown_type $index
 * @ruturn $arrBack
 */
function handIndex($arrParam, $index = 'k'){
 foreach($arrParam as $key => $val){
  $in = $index.$key;
  $arrBack[$in] = $val;
 }
 return $arrBack;
}
/**
 *
 * @param unknown_type $arrMark標(biāo)桿向量數(shù)組(索引被處理過)
 * @param unknown_type $arrAnaly 分析向量數(shù)組 (索引被處理過) |array('j0'=>1,'j1'=>2....)
 * @param unknown_type $strMarkMod標(biāo)桿向量的模
 * @param unknown_type $intLenth 向量的長度
 */
function getCosine($arrMark, $arrAnaly, $strMarkMod ,$intLenth){
 $strVector = 0;
 $strCosine = 0;
 for($i = 0; $i < $intLenth; $i++){
 $strMarkVal = $arrMark['k'.$i];
 $strAnalyVal = $arrAnaly['j'.$i];
 $strVector += $strMarkVal * $strAnalyVal;
 }
 $arrAnalyMod = getMarkMod($arrAnaly); //求分析向量的模
 $strFenzi = $strVector;
 $strFenMu = $arrAnalyMod * $strMarkMod;
 $strCosine = $strFenzi / $strFenMu;
 if(0 !== (int)$strFenMu){
 $strCosine = $strFenzi / $strFenMu;
 }
 return $strCosine;
}
?>