runmode:0;
variable:name1[26]='';
variable:close1[26]=0;
name1[1]:='橡胶';
name1[2]:='棉花';
name1[3]:='PTA';
name1[4]:='塑料';
name1[5]:='沪锌';
name1[6]:='股指';
name1[7]:='白糖';
name1[8]:='沪铅';
name1[9]:='线材';
name1[10]:='聚氯乙烯';
name1[11]:='沪铜';
name1[12]:='焦炭';
name1[13]:='棕榈';
name1[14]:='豆油';
name1[15]:='豆二';
name1[16]:='菜油';
name1[17]:='螺纹钢';
name1[18]:='籼稻';
name1[19]:='豆一';
name1[20]:='强麦';
name1[21]:='豆粕';
name1[22]:='沪铝';
name1[23]:='硬麦';
name1[24]:='玉米';
name1[25]:='黄金';
name1[26]:='燃油';
close1[1]:="ru00$close";
close1[2]:="cf00$close";
close1[3]:="ta00$close";
close1[4]:="l00$close";
close1[5]:="zn00$close";
close1[6]:="if00$close";
close1[7]:="srx00$close";
close1[8]:="pb00$close";
close1[9]:="wr00$close";
close1[10]:="v00$close";
close1[11]:="cu00$close";
close1[12]:="j00$close";
close1[13]:="p00$close";
close1[14]:="y00$close";
close1[15]:="b00$close";
close1[16]:="ro00$close";
close1[17]:="rb00$close";
close1[18]:="er00$close";
close1[19]:="ax00$close";
close1[20]:="wsx00$close";
close1[21]:="m00$close";
close1[22]:="al00$close";
close1[23]:="wt00$close";
close1[24]:="c00$close";
close1[25]:="au00$close";
close1[26]:="fu00$close";
for i=1 to 26 do begin
for j=1 to 26 do begin
msgout(islastbar,name1[i]+'与'+name1[j]+'的相关系数:'+numtostr(relate(close1[i],close1[j],50),5));
end
end