标题: 现有大盘指数1a0001，如何编个指标，能在查看任何个股时在副图显示 大盘指数的 cy... [打印本页] 作者: admin 时间: 2016-5-7 12:37 标题: 现有大盘指数1a0001，如何编个指标，能在查看任何个股时在副图显示 大盘指数的 cy... mid:=(open+Close)/2; {均价}
hsl:=if(capital=0,VOL/sum(VOL,100),VOL/capital);{换手率}
if capital=0 then begin
hsl:=VOL/sum(VOL,100);
a:=setlbound(hsl,1);
for i=1 to min(100-1,datacount) do hsl:=0;
end;
ljhs3[1]:=hsl[1];
cyc3[1]:=mid[1];
dd:=mid[1]*(barpos<100);
for i=lbound(hsl)+1 to datacount do begin
ljhs3:=ljhs3[i-1]*(1-hsl)*(34-1)/34+hsl;
cyc3mid*hsl+cyc3[i-1]*ljhs3[i-1]*(1-hsl)*(34-1)/34)/ljhs3+dd;
end;
上述为源码，现有大盘指数1a0001，如何编个指标，能在查看任何个股时在副图显示 大盘指数的 cyc值？ 正确答案:
这样或许好些
mid:=(o+C)/2; {均价}
t:=if(BARPOS<100,BARPOS,100);
hsl:=if(capital=0,V/sum(V,t),V/capital);{换手率}
if capital=0 then begin
hsl:=V/sum(V,t);
for i=1 to min(100-1,SYSPARAM(3)) do hsl:=0;
end;
ljhs3[1]:=hsl[1];
cyc3[1]:=mid[1];
dd:=mid[1]*(barpos<2);
for i=2 to datacount do begin
ljhs3:=ljhs3[i-1]*(1-hsl)*(34-1)/34+hsl;
cyc3mid*hsl+cyc3[i-1]*ljhs3[i-1]*(1-hsl)*(34-1)/34)/ljhs3+dd;
end;
mid*hsl+cyc3[i-1]*ljhs3[i-1]*(1-hsl)*(34-1)/34)/ljhs3+dd;