 |
s6062222
初級會員
註冊日期: Mar 2016
來 自:
文章數量: 9 |
[問題]想寫三個有關創新高、新低指標,不知有沒有人可以協助...
指標一
創新高的定義:
1、股價創20日來新高
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%
呈現方式:
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體
另外製作10日均線
以藍色為線條
指標二
創新低定義:
1、股價創20日來新低
2、價大於10元
3、成交量大於500張
4、近成交量大於五日均量的50%
呈現方式:
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體
另外製作10日均線
以藍色為線條
指標三
創新高低差:
用前述方式篩選出的創新高家數-創新低家數
呈現方式:
計算的家數用柱狀體顯示
與前日比增多為紅色柱狀體、減少為綠色柱狀體
另外製作10日均線
以藍色為線條
不知道是否有高手可以指導這樣的指標怎麼寫嗎...
|
|
向版主報告此篇 |  |
|
2016-09-12 16:57 |
|
|
|  |
 |
s6062222
初級會員
註冊日期: Mar 2016
來 自:
文章數量: 9 |
版主您好
近成交量為今日成交量大於五日均量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;
"總股票"為上市股票+上櫃股票
不知是否有其他方式可以彙整再一起看?
因為如果有新股票上市的話,應該會漏掉
|
|
向版主報告此篇 |  |
|
2016-09-13 10:16 |
|
|
|  |
 |
cgjj
總版主

註冊日期: Oct 2003
來 自:
文章數量: 18143 |
引用: 最初由 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;
"總股票"為上市股票+上櫃股票
不知是否有其他方式可以彙整再一起看?
因為如果有新股票上市的話,應該會漏掉
1.請在[加權指數]執行此公式
2.此公式計算負荷重,請勿於盤中執行
3.股票會有上下市,僅近期結果較具參考性
提供的程式範例是以[差]畫柱狀體
把
STICKLINE(差>ref(差,1),0,差,8,0) colorred;
STICKLINE(差<=ref(差,1),0,差,8,0) colorgreen;
均差:MA(差,10) colorFF9900;
其中的[差]改為[新高]或[新低]
就可達到您其他需求
只需套用 SUMUDHL 公式
關鍵字: 程式範例
附件: SUMUDHL.ALG
此文件已被下載 50 次。
|
|
向版主報告此篇 |  |
|
2016-09-13 14:40 |
|
|
|  |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|