以文本方式查看主题

-  金字塔客服中心 - 专业程序化交易软件提供商  (http://weistock.com/bbs/index.asp)
--  公式模型编写问题提交  (http://weistock.com/bbs/list.asp?boardid=4)
----  数组 中的large small显示不出来  (http://weistock.com/bbs/dispbbs.asp?boardid=4&id=63080)
--  作者：寻找点金石
--  发布时间：2014/3/24 22:37:49
--  数组 中的large small显示不出来
为了测试数组
kpt:OPENMINUTES(time),LINETHICK0;
VARIABLE:vh[270]=0;
vh[kpt]:=vol;
tee:LARGE(vh,200,1),LINETHICK0;
teX:SMALL(vh,270,1),LINETHICK0;
 最后最大tee 最小teX  显示均不正确，怎么回事？
--  作者：寻找点金石
--  发布时间：2014/3/24 22:57:15
--  
其实我是想求出60秒内最大现手，用数组的方式
syms:=time0-timetot0(dynainfo(207)),LINETHICK0;  //本分钟内剩余秒数
kms:60-syms,LINETHICK0;  //本分钟内已开盘的秒数
...
dss:=max(现手,qxs1);  //一秒钟内的现手取大值


VARIABLE:ds[60]=0;   
ds[kms]:=dss;
zdss:large(ds,60,1),LINETHICK0;
求不出60秒内的最大现手？
--  作者：寻找点金石
--  发布时间：2014/3/25 6:50:20
--  
已解决，用for 循环 不过要用到writeinifile 把一分钟内的现手写进去  再用for读出来
--  作者：jinzhe
--  发布时间：2014/3/25 8:54:27
--  

图片点击可在新窗口打开查看你现在越来越厉害了

 

解决代码贴一下哈
--  作者：寻找点金石
--  发布时间：2014/3/25 12:28:12
--  
//60秒内的最大手数
qms:=WRITEINIFILE(\'d:\\qms.ini\',\'qms\',\'qms\',GETINIFILE(\'d:\\ms.ini\',\'ms\',\'ms\'));
ms:=WRITEINIFILE(\'d:\\ms.ini\',\'ms\',\'ms\',kms);
dss:=max(现手,qxs1);
if kms<>GETINIFILE(\'d:\\qms.ini\',\'qms\',\'qms\') then begin
   WRITEINIFILE(\'d:\\ds.ini\',\'ds\',\'ds\'&NUMTOSTR(kms+1,0),dss);
   end
VARIABLE:ds[60]=0;
for i=1 to 60 do begin 
   ds[i]:=GETINIFILE(\'d:\\ds.ini\',\'ds\',\'ds\'&NUMTOSTR(i,0));
   end
zxss:small(ss,60,1),LINETHICK0;
zdss:large(ds,60,1),LINETHICK0;

qzd:=WRITEINIFILE(\'d:\\zdxs.ini\',\'qzdx\',\'qzdx\',GETINIFILE(\'d:\\zdxs.ini\',\'zdxs\',\'zdxs\'));
if 现手>0 then WRITEINIFILE(\'d:\\zdxs.ini\',\'zdxs\',\'zdxs\',zdss);
qzdx:=getINIFILE(\'d:\\zdxs.ini\',\'qzdx\',\'qzdx\');
if zdss<>qzdx then  debugfile(\'d:\\zdss.txt\',NUMTOSTR(最新价,1)&\'  \'&NUMTOSTR(zdss,0),0);//输出60秒内最大现手