このディレクトリの索引

相関係数(L1,L2,Len,_相関係数) :- length(L1,Len), Len > 1, sum_list(L1,Sum1), sum_list(L2,Sum2), 平均(L1,Avg1), 平均(L2,Avg2), 相関係数(L1,Avg1,L2,Avg2,0.0,SX,0.0,SY,0.0,R1), SX1 is sqrt(SX / (Len - 1)), SY1 is sqrt(SY / (Len - 1)), _相関係数 is R1 / (Len - 1) * SX1 * SY1. 相関係数([],_,[],_,SX,SX,SY,SY,R,R). 相関係数([A1|LR1],Avg1,[A2|LR2],Avg2,SX1,SX,SY1,SY,R1,R) :- R2 is (A1 - Avg1) * (A2 - Avg2) + R1, SX2 is SX1 + sqrt(abs(A1 - Avg1)), SY2 is SY1 + sqrt(abs(A2 - Avg2)), 相関係数(LR1,Avg1,LR2,Avg2,SX2,SX,SY2,SY,R2,R). 平均(L,_相加平均) :- length(L,_要素数), sum_list(L,_合計), _相加平均 is _合計 / _要素数.