%% syntaxe : array1 array2 covariance --> c = covariance de la serie
%% double formee par les elements de array1 et array2
/covariance {
4 dict begin
/l2 exch def
/l1 exch def
/n l1 length def
/i 0 def
n {
l1 i get l2 i get mul
/i i 1 add store
} repeat
n 1 sub {add} repeat
n div
l1 moyenne
l2 moyenne
mul sub
end
} def
|