公式模型编写问题提交-数组越界，管理员能帮我看一下吗？金字塔客服中心 - 专业程序化交易软件提供商

以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  数组越界，管理员能帮我看一下吗？  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=71539)

--  作者：gongxiangban
--  发布时间：2014/10/30 13:33:42
--  数组越界，管理员能帮我看一下吗？

{VOL监视器
所有品种的主力合约
周期：1小时，日线
只在K线收出前5分钟发出提示框

初始报警条件：当前成交量，大于10根K线成交量均值3倍}

variable:value[41]=\'null\';
{中金所}
vaule[0]:=\'if00\'; //股指
value[1]:=\'tf00\';//国债
{郑州}
value[2]:=\'wh00\';//强麦
value[3]:=\'pm00\';//普麦
value[4]:=\'cf00\';//棉花
value[5]:=\'sr00\';//白糖
value[6]:=\'ta00\';//PTA
value[7]:=\'oi00\';//菜籽油
value[8]:=\'ri00\';//早籼稻
value[9]:=\'me00\';//甲醇
value[10]:=\'fg00\';//玻璃
value[11]:=\'rs00\';//油菜籽
value[12]:=\'rm00\';//菜粕
value[13]:=\'tc00\';//动力煤
value[14]:=\'jr00\';//粳稻
value[15]:=\'lr00\';//晚籼稻
value[16]:=\'sf00\';//硅铁
value[17]:=\'sm00\';//锰硅
{大连}
value[18]:=\'c00\';//玉米
value[19]:=\'a00\';//豆一
value[20]:=\'b00\';//豆二
value[21]:=\'m00\';//豆粕
value[22]:=\'y00\';//豆油
value[23]:=\'p00\';//棕榈油
value[24]:=\'jd00\';//鸡蛋
value[25]:=\'bb00\';//胶合板
value[26]:=\'fb00\';//纤维板
value[27]:=\'l00\';//聚乙烯
value[28]:=\'v00\';//PVC
value[29]:=\'pp00\';//聚丙烯
value[30]:=\'j00\';//焦炭
value[31]:=\'jm00\';//焦煤
value[32]:=\'i00\';//铁矿石
{上海}
value[33]:=\'cu00\';//铜
value[34]:=\'al00\';//铝
value[35]:=\'zn00\';//锌
value[36]:=\'pb00\';//铅
value[37]:=\'au00\';//黄金
value[38]:=\'ag00\';//白银
value[39]:=\'rb00\';//螺纹钢
value[40]:=\'wr00\';//线材
//热轧卷板
//燃料油
//石油沥青
//天然橡胶
//value[1]=\'if00\';
VARIABLE:stockValueTotal=0;
tt:=time0-timetot0(currenttime);
if ( tt<300 ) then begin
for i:=0 to 40 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:= stockValueTotal/n;
stockValue:= stkindi(value[i],\'vol\',0,5,-j);

if (stockValue>stockMaValue*3) then
begin
msgout(tt>300,value[i]);
end;
{1日}
for j:=1 to n do
begin
stockValueTotal:=stkindi(value[i],\'vol\',0,6,-j) + stockValueTotal ;
end;
stockMaValue:= stockValueTotal/n;
stockValue:= stkindi(value[i],\'vol\',0,6,-j);

if (stockValue>stockMaValue*3) then
begin
msgout(tt>300,value[i]);
end;
end;
end;
end;

N默认是10

--  作者：jinzhe
--  发布时间：2014/10/30 13:38:40
--

http://www.weistock.com/bbs/dispbbs.asp?boardid=4&Id=71503