--
{VOL监视器
所有品种的主力合约
周期:1小时,日线
只在K线收出前5分钟发出提示框
初始报警条件:当前成交量,大于10根K线成交量均值3倍}
variable:value[41]=\'null\';
{中金所}
//vaule[1]:=\'if00\'; //股指
//value[1]:=\'tf00\';//国债-----------------------------
{郑州}
//value[3]:=\'wh00\';//强麦
//value[4]:=\'pm00\';//普麦
value[1]:=\'cf00\';//棉花
value[2]:=\'srx00\';//白糖
value[3]:=\'ta00\';//PTA
//value[8]:=\'oi00\';//菜籽油
//value[9]:=\'ri00\';//早籼稻
//value[5]:=\'me00\';//甲醇-------------------------------
value[4]:=\'fg00\';//玻璃
//value[12]:=\'rs00\';//油菜籽
value[5]:=\'rm00\';//菜粕
//value[8]:=\'tc00\';//动力煤---------------------------
//value[15]:=\'jr00\';//粳稻
//value[16]:=\'lr00\';//晚籼稻
//value[17]:=\'sf00\';//硅铁
//value[18]:=\'sm00\';//锰硅
{大连}
//value[19]:=\'c00\';//玉米
//value[20]:=\'a00\';//豆一
//value[21]:=\'b00\';//豆二
value[6]:=\'m00\';//豆粕
//value[10]:=\'y00\';//豆油----------------------
value[7]:=\'p00\';//棕榈油
value[8]:=\'jd00\';//鸡蛋
//value[13]:=\'bb00\';//胶合板-------------------
//value[14]:=\'fb00\';//纤维板-------------------
value[9]:=\'l00\';//聚乙烯
//value[29]:=\'v00\';//PVC
//value[16]:=\'pp00\';//聚丙烯-------------------
value[10]:=\'j00\';//焦炭
//value[18]:=\'jm00\';//焦煤---------------------
//value[33]:=\'i00\';//铁矿石
{上海}
//value[34]:=\'cu00\';//铜
//value[35]:=\'al00\';//铝
//value[36]:=\'zn00\';//锌
//value[37]:=\'pb00\';//铅
//value[38]:=\'au00\';//黄金
//value[39]:=\'ag00\';//白银
value[11]:=\'rb00\';//螺纹钢
//value[41]:=\'wr00\';//线材
//热轧卷板
//燃料油
//石油沥青
value[12]:=\'ru00\';//天然橡胶
//value[1]=\'if00\';
VARIABLE:stockValueTotal=0;
tt:=time0-timetot0(currenttime);
if ( tt<300 ) then begin
//for i:=1 to 12 do
begin
//
if (strcmp(value[i],\'null\')<>0) then
begin
{1小时}
{
for j:=1 to n do
begin
stockValueTotal:=stkindi(value[i],\'vol\',0,5,-j) + stockValueTotal ;
end;
}
stockMaValue: stkindi(\'j00\',\'VOL.MA2(5,10,20)\',0,5,-1);
stockValue: stkindi(\'j00\',\'VOL.VOLUME(5,10,20)\',0,5,-1);
if (stockValue>stockMaValue*3) then
begin
msgout(tt<300,\'j00\');
msgout(tt<300,numtostr(stockValue,2));
msgout(tt<300,numtostr(stockMaValue,2));
msgout(tt<300,\'一小时\');
PLAYSOUND(1,\'C:\\OrderOK.wav\');
end;
{1日}
{
for j:=1 to n do
begin
stockValueTotal:=stkindi(value[i],\'vol\',0,6,-j) + stockValueTotal ;
end;
}
stockMaValue: =stkindi(\'j00\',\'VOL.MA2(5,10,20)\',0,6,-1);
stockValue:= stkindi(\'j00\',\'VOL.VOLUME(5,10,20)\',0,6,-1);
if (stockValue>stockMaValue*3) then
begin
msgout(tt<300,\'j00\');
msgout(tt<300,numtostr(stockValue,2));
msgout(tt<300,numtostr(stockMaValue,2));
msgout(tt<300,\'日\');
PLAYSOUND(1,\'C:\\OrderOK.wav\');
end;
end;
end;
end;