奇狐社區論壇 (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=20410)

[問題]想寫三個有關創新高、新低指標，不知有沒有人可以協助...

指標一
創新高的定義：
1、股價創20日來新高
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體

另外製作10日均線
以藍色為線條

指標二
創新低定義：
1、股價創20日來新低
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體

另外製作10日均線
以藍色為線條

指標三
創新高低差：
用前述方式篩選出的創新高家數-創新低家數

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體
另外製作10日均線
以藍色為線條

不知道是否有高手可以指導這樣的指標怎麼寫嗎...

回覆: [問題]想寫三個有關創新高、新低指標，不知有沒有人可以協助...

引用:

---

最初由 s6062222 發表
指標一
創新高的定義：
1、股價創20日來新高
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體

另外製作10日均線
以藍色為線條

指標二
創新低定義：
1、股價創20日來新低
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體

另外製作10日均線
以藍色為線條

指標三
創新高低差：
用前述方式篩選出的創新高家數-創新低家數

呈現方式：
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體
另外製作10日均線
以藍色為線條

不知道是否有高手可以指導這樣的指標怎麼寫嗎...

---

版主您好
近成交量為今日成交量大於五日均量50%


昨天晚上爬文有參考您之前創的指標
就拿來土法煉鋼了
以下請版主幫我看看是否有疏漏

成交量總和:=成交量+REF(成交量,1)+REF(成交量,2)+REF(成交量,3)+REF(成交量,4) ;
成交量五日均:=成交量總和/10 ;
新高:=HHVBARS(C,20)=0 and 成交量>500 and 成交量>成交量五日均 and 收盤價>10 ;
新低:=LLVBARS(C,20)=0 and 成交量>500 and 成交量>成交量五日均 and 收盤價>10 ;
TOPUD新高-新低)*DATE;

創新高

新高:C*0;
新低:=C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
STICKLINE(新高>0,0,新高,8,0) ColorCCFF66;
MID:簡單移動平均(新高,10),COLORBROWN,linethick2;
end;
end;

創新低

新高:=C*0;
新低:C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
STICKLINE(新低>0,0,新低,8,0) ColorGREEN;
MID:簡單移動平均(新低,10),COLORBROWN,linethick2;
end;
end;

高-低

新高:C*0;
新低:=C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
高減低:新高-新低;
STICKLINE(高減低>0,0,高減低,8,0) Color9966FF;
STICKLINE(高減低<0,0,高減低,8,0) ColorGREEN;
MID:簡單移動平均(高減低,10),COLORBROWN,linethick2;
end;
end;



"總股票"為上市股票+上櫃股票
不知是否有其他方式可以彙整再一起看?
因為如果有新股票上市的話，應該會漏掉

引用:

---

最初由 s6062222 發表
版主您好
近成交量為今日成交量大於五日均量50%


昨天晚上爬文有參考您之前創的指標
就拿來土法煉鋼了
以下請版主幫我看看是否有疏漏

成交量總和:=成交量+REF(成交量,1)+REF(成交量,2)+REF(成交量,3)+REF(成交量,4) ;
成交量五日均:=成交量總和/10 ;
新高:=HHVBARS(C,20)=0 and 成交量>500 and 成交量>成交量五日均 and 收盤價>10 ;
新低:=LLVBARS(C,20)=0 and 成交量>500 and 成交量>成交量五日均 and 收盤價>10 ;
TOPUD:(新高-新低)*DATE;

創新高

新高:C*0;
新低:=C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
STICKLINE(新高>0,0,新高,8,0) ColorCCFF66;
MID:簡單移動平均(新高,10),COLORBROWN,linethick2;
end;
end;

創新低

新高:=C*0;
新低:C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
STICKLINE(新低>0,0,新低,8,0) ColorGREEN;
MID:簡單移動平均(新低,10),COLORBROWN,linethick2;
end;
end;

高-低

新高:C*0;
新低:=C*0;
UseBlk:='總股票';
UseNum:=STKCOUNT(UseBlk);
for SNO:=1 TO UseNum do begin
UseSTK:=STKFROMBLK(UseBlk,SNO);
TOPUD:=STKINDI(UseSTK,'SUMTOPUD_SUB.TOPUD',0,6); //日線
if lbound(TOPUD)>0 then begin
TOPUD:=if(barpos>=lbound(TOPUD),TOPUD,0);
DECK:=ABS(TOPUD)=DATE;
新高:=新高+(SGN(TOPUD)=1 and DECK);
新低:=新低+(SGN(TOPUD)=-1 and DECK);
高減低:新高-新低;
STICKLINE(高減低>0,0,高減低,8,0) Color9966FF;
STICKLINE(高減低<0,0,高減低,8,0) ColorGREEN;
MID:簡單移動平均(高減低,10),COLORBROWN,linethick2;
end;
end;



"總股票"為上市股票+上櫃股票
不知是否有其他方式可以彙整再一起看?
因為如果有新股票上市的話，應該會漏掉

---