我要區分3%及6%的漲跌家數,在公式中該如何更改.
敬請教授,感恩

板塊個股漲跌統計子公式

RC:=ref(C,1);
UDATE:if(C>RC,1,if(C<RC,-1,0))*DATE;

RC3:=RC+(RC*0.03);
RC03:=RC-(RC*0.03);
TDC3:BETWEEN(C,RC3,RC);
TDC03:BETWEEN(C,RC,RC03);

RC6:=RC+(RC*0.06);
RC06:=RC-(RC*0.06);
TDC6:BETWEEN(C,RC6,RC);
TDC06:BETWEEN(C,RC06,RC);


UDATE3:if(TDC3=1,1,0)*DATE;
UDATE03:if(TDC03=1,-1,0)*DATE;

UDATE6:if(TDC6=1,1,0)*DATE;
UDATE06:if(TDC06=1,-1,0)*DATE;



上市股

UseBlk:='上市股'; //使用板塊
//僅能在加權指數跑
DRAWTEXTEX( stklabel<>'100',1,500,500,'僅能在加權指數跑') ALIGN0 COLORMAGENTA;
if stklabel<>'100' then exit;
DRAWTEXTEX(1,1,5,1,'['+UseBlk+']') COLOR0066ff;
上市漲家:C*0 linethick0 colorred;
上市跌家:C*0 linethick0 colorgreen;
for i= 1 to STKCOUNT(UseBlk) do begin
UseStk:=STKFROMBLK(UseBlk,i);
UDATE:=STKINDI(UseStk,'板塊個股漲跌統計子公式.UDATE',0,-1);
lbUDATE:=lbound(UDATE);
if lbUDATE>0 then begin
UDATE:=if(DATE<>ABS(UDATE) and UDATE<>0,0,UDATE);
UDATE:=if(barpos>=lbUDATE and lbUDATE,UDATE,0);
上市漲家:=上市漲家+(UDATE>0);
上市跌家:=上市跌家+(UDATE<0);
end;
end;

上市家比:(上市漲家)/(上市跌家);
上市家差:(上市漲家-上市跌家) NOAXIS;

__________________

引用:

---

最初由 lpw 發表
我要區分3%及6%的漲跌家數,在公式中該如何更改.
敬請教授,感恩

板塊個股漲跌統計子公式

RC:=ref(C,1);
UDATE:if(C>RC,1,if(C<RC,-1,0))*DATE;

RC3:=RC+(RC*0.03);
RC03:=RC-(RC*0.03);
TDC3:BETWEEN(C,RC3,RC);
TDC03:BETWEEN(C,RC,RC03);

RC6:=RC+(RC*0.06);
RC06:=RC-(RC*0.06);
TDC6:BETWEEN(C,RC6,RC);
TDC06:BETWEEN(C,RC06,RC);


UDATE3:if(TDC3=1,1,0)*DATE;
UDATE03:if(TDC03=1,-1,0)*DATE;

UDATE6:if(TDC6=1,1,0)*DATE;
UDATE06:if(TDC06=1,-1,0)*DATE;



上市股

UseBlk:='上市股'; //使用板塊
//僅能在加權指數跑
DRAWTEXTEX( stklabel<>'100',1,500,500,'僅能在加權指數跑') ALIGN0 COLORMAGENTA;
if stklabel<>'100' then exit;
DRAWTEXTEX(1,1,5,1,'['+UseBlk+']') COLOR0066ff;
上市漲家:C*0 linethick0 colorred;
上市跌家:C*0 linethick0 colorgreen;
for i= 1 to STKCOUNT(UseBlk) do begin
UseStk:=STKFROMBLK(UseBlk,i);
UDATE:=STKINDI(UseStk,'板塊個股漲跌統計子公式.UDATE',0,-1);
lbUDATE:=lbound(UDATE);
if lbUDATE>0 then begin
UDATE:=if(DATE<>ABS(UDATE) and UDATE<>0,0,UDATE);
UDATE:=if(barpos>=lbUDATE and lbUDATE,UDATE,0);
上市漲家:=上市漲家+(UDATE>0);
上市跌家:=上市跌家+(UDATE<0);
end;
end;

上市家比:(上市漲家)/(上市跌家);
上市家差:(上市漲家-上市跌家) NOAXIS;

---

不包含,兩個區分開
共分6%--3%--0%--(-3%)--(-6%)共6區統計
謝謝

__________________

引用:

---

最初由 lpw 發表
不包含,兩個區分開
共分6%--3%--0%--(-3%)--(-6%)共6區統計
謝謝

---

原碼:


UseBlk:='上市股票';

UA:0 linethick0; //漲幅>0% and 漲幅<3%

UB:0 linethick0; //漲幅>=3% and 漲幅<6%

UC:0 linethick0; //漲幅>=6%

for i= 1 to STKCOUNT(UseBlk) do begin

  UseStk:=STKFROMBLK(UseBlk,i);

  XX:=DYNAINFO2(14,UseStk)*100;

  if XX>0 and XX<3 then UA:=UA+1;

  if XX>=3 and XX<6 then UB:=UB+1;

  if XX>=6 then UC:=UC+1;

end;