Code: Select all
wfcreate test u 1 360
for !i=1 to 7000
%s = "y" + @str(!i, "g04")
series {%s} = nrnd
next
group a y*
sym(7000) results
!nser = 1000
!nblocks = 7000/!nser
!blksize = 7000/!nblocks
for !j=1 to !nblocks
%s{!j} = ""
for !k=1 to !blksize-1
!m = (!j-1)*!blksize + !k
%s{!j} = %s{!j} + " " + a.@seriesname(!m)
next
string s{!j} = %s{!j}
next
for !j=1 to !nblocks
for !k=!j+1 to !nblocks
group grp_{!j}_{!k} {%s{!j}} {%s{!k}}
do grp_{!j}_{!k}.cor(out=aa, pairwise) corr
next
next
