奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 恭请斑竹或高手看看，该公式在飞狐无法用，请帮忙修正，谢# (http://www.chiefox.com.tw/bbs/showthread.php?threadid=6705)

恭请斑竹或高手看看，该公式在飞狐无法用，请帮忙修正，谢#

input:N(5,0,100,1),D(1050426,0,1999999,1),M(80,1,1000,1),
M1(50,1,1000,1),N1(0,0,1000,1);

variable:AA=0,BB=0,CC=0,DD=0, EE=0,FF=0,HH=0,II=0;
varAA:=0;
varBB:=0;
varCC:=0;
varDD:=barpos-1;
varEE:=capital*(M/100);
varFF:=capital*(m1/100);
varD:=date>=D;
var0:=ma( ref(vol,1),N );{N=１，与上一交易日比较}
var00:=var0*( (100+N1)/100 );
varV:=vol/var00-1;
var1:=if(vol>var00,vol-var00,0);
var2:=if(vol<var00,var00-vol,0);
var3:=(vol-var0)*100/var0;

差:vol-var0,colorffcc00,linethick0,precis0;
幅％:var3,colorccffff,linethick0,precis0;

STICKLINE(vol>var0,0,var1,6,0),COLORffccff;
STICKLINE(vol<var0,0,var2,6,1),colorccff33;


if varD then begin
for i=0 to varDD do begin
if varAA< varEE then begin
varAA := varAA + ref(vol,i);
if varAA >= varEE then
varZZ:=i+1;
end
end
for i=0 to varDD do begin
if varBB< varFF then begin
varBB := varBB + ref(var1,i);
if varBB >= varFF then
varXX:=i+1;
end
end
for i=0 to varDD do begin
if varCC< varFF then begin
varCC := varCC + ref(var2,i);
if varCC >= varFF then
varYY:=i+1;
end
end
if Vol>var00 then begin
AA:=AA+varV;
BB:=BB+1;
end
else if Vol<var00 then begin
CC:=CC+varV;
DD:=DD+1;
end
if C>O then begin
EE:=EE+varV;
FF:=FF+1;
end
else if C<O then begin
HH:=HH+varV;
II:=II+1;
end
end

涨％:if(BB=0,0,AA*100/BB),precis2,colorffccff;
跌％:if(DD=0,0,CC*100/DD),precis2,colorcyan;
阳％:if(FF=0,0,EE*100/FF),precis2,color99ffff;
阴％:if(II=0,0,HH*100/II),precis2,colorffff99;
（天）:varZZ,precis0,linethick0,coloreeeeee;
天↑:varXX,precis0,linethick0,colorffcccc;
天↓:varYY,precis0,linethick0,colorccff33;

请帮忙修正，谢谢

關鍵在於
varDD 結果是數列, 其不可直接帶入迴圈的條件中
其他問題亦同