以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  数组月季诶,怎么办?  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=71503)

--  作者:gongxiangban
--  发布时间:2014/10/29 14:33:07
--  数组月季诶,怎么办?

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 )=false then //这里显示数组越界。

--  作者:jinzhe
--  发布时间:2014/10/29 15:10:26
--  
贴全了,这么点代码只会报缺少END
--  作者:gongxiangban
--  发布时间:2014/10/29 15:17:25
--  

{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 )=false 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;



--  作者:gongxiangban
--  发布时间:2014/10/29 15:17:47
--  
数组越界。

嗯,标题打错了,对不起。

--  作者:jinzhe
--  发布时间:2014/10/29 15:29:27
--  
N是多少?
--  作者:gongxiangban
--  发布时间:2014/10/29 16:27:45
--  
N缺省是10

图片点击可在新窗口打开查看此主题相关图片如下:未命名.jpg
图片点击可在新窗口打开查看


--  作者:jinzhe
--  发布时间:2014/10/29 16:37:51
--  

你数组下标弄错了

数组是从1-41

而不是从0-40


--  作者:jinzhe
--  发布时间:2014/10/29 16:38:20
--  
改了之后就是引用数量过多,还你引用写不对,不要用引用
--  作者:gongxiangban
--  发布时间:2014/10/30 13:45:39
--  
OK!