到奇狐勝券首頁 奇狐社區論壇 購買奇狐勝券 試用奇狐勝券
 
論壇首頁 你可以在這裡編輯你的資料,查看短訊,訂閱主題和論壇參數等等 免費會員註冊 會員列表 論壇幫助 論壇日曆 論壇搜索 加入我的最愛 登出論壇  
奇狐社區論壇 : Powered by vBulletin version 2.3.0 奇狐社區論壇 > 指標公式 > 問題交流 > [問題]想寫三個有關創新高、新低指標,不知有沒有人可以協助...
  上一主題   下一主題
作者
主題 發表新主題    回覆主題
s6062222
初級會員

註冊日期: Mar 2016
來  自:
文章數量: 9

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

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

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

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

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

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

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

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

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

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

向版主報告此篇 | 查IP位址
Old Post 2016-09-12 16:57
s6062222 現在離線 點選這裡查看 s6062222 的個人資料 點選這裡給 s6062222 傳送一條短訊 查找更多關於 s6062222 的文章 增加 s6062222 至你的好友列表 編輯/刪除訊息 引用回覆
cgjj
總版主

註冊日期: Oct 2003
來  自:
文章數量: 18143

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

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

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

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

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

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

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

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

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

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



4、近成交量大於五日均量的50%

何謂 "近成交量" ?
請定義明確,謝謝

向版主報告此篇 | 查IP位址
Old Post 2016-09-13 08:42
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
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;



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

向版主報告此篇 | 查IP位址
Old Post 2016-09-13 10:16
s6062222 現在離線 點選這裡查看 s6062222 的個人資料 點選這裡給 s6062222 傳送一條短訊 查找更多關於 s6062222 的文章 增加 s6062222 至你的好友列表 編輯/刪除訊息 引用回覆
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 次。

向版主報告此篇 | 查IP位址
Old Post 2016-09-13 14:40
cgjj 現在離線 點選這裡查看 cgjj 的個人資料 點選這裡給 cgjj 傳送一條短訊 查找更多關於 cgjj 的文章 增加 cgjj 至你的好友列表 編輯/刪除訊息 引用回覆
全部時間均為台灣時間, 現在時間為14:53 發表新主題    回覆主題
  上一主題   下一主題
顯示可列印版本 | 訂閱此主題

論壇跳轉:
主題評分:

論壇規定:
你不可以發表新主題
你不可以回覆文章
你不可以上傳附件
你不可以編輯自己的文章
HTML語法禁止
vB 語法核准
表情符號核准
貼圖語法[IMG]核准
 

本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。

Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.

簡愛洋行 製作 Copyright 2003-. All Rights Reserved.  聯絡我們