Author Archives: 發財橘子

如何計算兩個日期間的各項數值~以區間千張大戶增加張數為例

有網友在問說想要計算某日到某間之間的某個數值,而不是從現在到以前某日的數值,不知道要如何計算,剛好昨天被問到一個需求,有客戶想要知道有那些中小型的股票,在這一波指數盤底期間大股東有進場回補的,所以我想今天就來藉這個題目,介紹一下如何計算兩個特定日期之間相關數據的運算。

首先,如下圖

2019030701

這一次指數是在去年10/26日打了第一支腳,然後在今年的01/04打了第二根腳,我們就把這兩天中間的時間當成是大盤在打底的時間。

接下來我就寫了一個程式來尋找在這段期間內千張大戶有明顯回補股票的公司,選股腳本如下

input:startdate(20181026,"區間起始日");
input:enddate(20190104,"區間結束日");
input:vl(2000,"差額限數下限");
value1=getbaroffset(startdate);
value2=getbaroffset(enddate);
value3=GetField("大戶持股張數","W",param := 1000)[value1];
value4=GetField("大戶持股張數","W",param := 1000)[value2];
value5=GetField("大戶持股比例","W",param := 1000)[value1];
value6=GetField("大戶持股比例","W",param := 1000)[value2];
if value4-value3>vl and value6>value5 then ret=1;
outputfield(1,value3,0,"期初張數");
outputfield(2,value4,0,"期末張數");
outputfield(3,value4-value3,0,"差額張數");

透過這個腳本,跑出的股票如下

2019030602

這個腳本裡,是用getbaroffset這個函數來取得某特定日期,是位於整個K線數列裡的第幾根BAR,不同的K線頻率,這函數會自動去分辨是第幾根BAR,所以這函數用在日線及週線,回傳值會不一樣。

透過這個函數,可以從已知日期得到其在序列中的第N根BAR,這樣就可以找出特定欄位當時的值了。

至於這個選股策略,在應用上,網友的意思是如果大盤盤底時間大股東有明顯回補動作的,應該是屬於今年展望比較樂觀的,或是大股東覺得股價已委屈的。

結合多個選股條件的綜合選股方法

昨天介紹的作法被朋友打槍,他說這太難,大部份的人選股沒那麼複雜,而且沒有必要把高勝率的腳本綜合一起看,符合其中一個就可以留意了,他是個作短線的人,覺得選股打不贏內線,應該是透過一些條件,挑出一些符合多個多頭股票會有的共同特徵的標的,然後再從盤中的表現來決定怎麼操作,他建議我列出轉強股會有的共同特徵,而且是大家都看得懂的,然後幫大家計算出那幾檔股票符合最多這些特徵,進出場的事情交給大家自己來處理。

雖然覺得他的講法沒有完全都對,但還是有一定的道理,所以我列了二十個一般投資人都看得懂的選股條件,包括價值分析,籌碼分析,技術分析等等面向,然後透過計數器,挑出符合一定數量條件的股票

我寫的綜合選股腳本如下

input:lowlimit(9,"符合條件數下限");
var:counts(0);//宣告計數器
counts=0;//每根bar計算前計數器要歸零
//條件一: 本益比小於12
value1=GetField("本益比","D");
if value1<=12 then counts=counts+1;
//條件二:股價淨值比小於2
value2=GetField("股價淨值比","D");
if value2<2 then counts=counts+1;
//條件三:殖利率大於4
value3=GetField("殖利率","D");
if value3>4 then counts=counts+1;
//條件四:開盤委買量創20日高點
value4=GetField("開盤委買","D");
if value4=highest(value4,20) 
then counts=counts+1;
//條件五:佔全市場成交量比創20日高點
value5=GetField("佔全市場成交量比","D");
if value5=highest(value5,20)
then counts=counts+1;
//條件六:月營收維持兩位數成長
value6=GetField("月營收年增率","M");
if value6>=10 then counts=counts+1;
//條件七:現金股利超過一元
value7=GetField("現金股利","Y");
if value7>=1 then counts=counts+1;
//條件八: 外資買超
value8=GetField("外資買賣超","D");
if value8>=300 then counts=counts+1;
//條件九: 投信買超
value9=GetField("投信買賣超","D");
if value9>=300 then counts=counts+1;
//條件十: 董監事持股高於一定比例
value10=GetField("董監持股佔股本比例","D");
if value10>=25 then counts=counts+1;
//條件十一:主力連三日買超
value11=GetField("主力買賣超張數","D");
if trueall(value11>300,3) then counts=counts+1;
//條件十二:近一週千張大戶比前一週多
if GetFieldDate("大戶持股人數","W") <> date then begin
value20 = GetField("大戶持股人數","W",param := 1000)[1];
value21 = GetField("大戶持股人數","W",param := 1000)[2];
end
else begin
value20 = GetField("大戶持股人數","W",param := 1000);
value21 = GetField("大戶持股人數","W",param := 1000)[1];
end;
if value20>value21
then counts=counts+1;
//條件十三:地緣券商買超
value12=GetField("地緣券商買賣超張數","D");
if value12>100 then counts=counts+1;
//條件十四:分公司淨賣超家數超過淨買超的兩倍
//代表籌碼被收集
value13=GetField("分公司淨買超金額家數","D");
value14=GetField("分公司淨賣超金額家數","D");
if value14>2*value13 then counts=counts+1;
//條件十五: 近三日動量指標有突破零
if barslast(Momentum(Close, 10) Crosses Above 0)<=3
then counts=counts+1;
//條件十六:近三日有RSI黃金交叉
if barslast(RSI(Close, 5) Crosses Above RSI(Close, 10))<=3
then counts=counts+1;
//條件十七:關鍵券商買超
value15=GetField("關鍵券商買賣超張數","D");
if value15>0 then counts=counts+1;
//條件十八: 股價突破兩倍的真實波動區間
value16=average(truerange,20);
value17=average(close,20)+2*value16;
if close crosses over value17 
then counts=counts+1;
//條件十九:上漲角度突破30度
value18=rateofchange(close,20);
value19=arctangent(value18/20*100);
if value19 crosses over 30
then counts=counts+1;
//條件二十: 出量
if volume >=average(volume,20)*1.3
then counts=counts+1;
if counts>=lowlimit then ret=1;
outputfield(1,counts,0,"符合條件數");

這個腳本前天跑出來的股票清單如下

 

不過今天介紹這個方法的主要目的還是在說明計數器的用法,以及barslast的概念,大家不見得同意我這二十項條件的設法,透過計數器及barslast的語法,大家可以自行設計自己的綜合選股法。

 

intrabarpersist的用法

intrabarpersist是用在逐筆洗價時的一個語法,XS程式執行時,變數的值是延續前一根Bar的值,然後跟據最新一根的價位來計算最近一根的值。

interbar1

但這個邏輯在使用逐筆洗價時,在有些特別的情況下,必須在同一根bar,把之前進來的數據,當成前一根的數據來計算新進的數據,這時候就可以使用intrabarpersist這個宣告。

intrabar2

這個函數最常被用在計算累計大單這樣的腳本中,下面就是一個很典型的應用範例

intrabar3

這樣的話,就可以把每一筆的大單都累計進來了,當超過N筆單時就可以觸發訊號。

CV指標

 

腳本

// XQ: CV指標
//
Variable: _cv(0);

If CurrentBar = 1 then
 _cv = Close * Volume
else 
 _cv = _cv[1] + (Close - Close[1]) * Volume;

Plot1(_cv, "CV");

參考圖表

CV

PSY心理線

腳本

// XQ: 心理線
//
input: Length1(12), Length2(24);

SetInputName(1, "天數一");
SetInputName(2, "天數二");

Value1 = 100 * CountIf(Close > Close[1], Length1) / Length1;
Value2 = 100 * CountIf(Close > Close[1], Length2) / Length2;

Plot1(Value1, "PSY1");
Plot2(Value2, "PSY2");

參考圖表

PSY

MO指標

 

腳本

// XQ: MO指標
//
input: Length(10);
variable: mo(0);

SetInputName(1, "天數");

mo = 100 * Close / Close[Length];

Plot1(mo, "MO");

參考圖表

MO

即將召開法說會且主力買超的股票

這兩天台郡的股價蠻強的,原因是法說會裡提到了軟板局5G天線有成,雖然第一季受手機市場清淡影響表現一般,但今年全年仍會成長(如以下的新聞)

2019021904

14日法說會結束,15日股價漲停,昨日股價繼續上漲。

但由於之前幾個月營收衰退,所以XS選股平台系統內建的“即將召開法說會”策略沒有出碧台郡這檔股票。

小弟回家後自我檢討,了解到原有的策略較合適過去一季表現不錯的公司,但不合適過去不好,股價修正,但未來會不錯的公司。

於是我想了一下,公司近一季表現不好,即將召開法說會,但公佈的內容足以激勵人心,事先會不會有什麼徵兆? 後來我想到春江水暖鴨先知,如果法說會要公佈的消息是正向的,那麼法說會前幾天的主力買超的機率應該是比較大的。

於是我把即將召開法說會的條件加上主力買超的條件,合寫成以下的策略

2019021903

然後回頭去檢視過往幾天挑出來的股票,結果11日台郡就出現了

2019021902

我們回頭去檢視台郡的K線圖

2019021901

當時台郡的股價還不到80元。

不過我拿這個策略回測時發現,勝率其實不突出,代表這些挑出來的股票還需要再過濾

後來我加上了推估本益比低於一定水平等其他條件,回測的數據顯示,這樣的策略在多頭市場是管用的

至於怎麼強化這個策略,就交給大家自行增加選股條件囉。

NVI指標

 

PVI ( Positive Volume Index ) 正量指標 及  NVI ( Negative Volume Index ) 負量指標

 這兩個指標必須放在一起看,才能對股票量價的變動有整體的瞭解.基本上這兩個指標是用來體現所謂的「量價關係」,從指標的變動方向與股價的變動方向來綜合研判價格未來可能的變化方向.

  1. PVI的計算公式如下:

假如 今日成交量「大於」昨日成交量,則

   今日PVI = 昨日 PVI + 今日股價漲跌幅

否則

      今日PVI = 昨日 PVI + 0

  1. NVI的計算公式如下:

假如 今日成交量「小於」昨日成交量,則

   今日NVI = 昨日 NVI + 今日股價漲跌幅

否則

      今日NVI = 昨日 NVI + 0

腳本

// XQ: NVI指標
//
Variable: _nvi(1);

if CurrentBar = 1 then
 _nvi = 1
else
 begin 
 if Volume < Volume[1] then
 _nvi = _nvi[1] + (Close - Close[1]) / Close[1]
 else
 _nvi = _nvi[1];
 end;
 
Plot1(_nvi, "NVI");

參考圖形

NVI

威廉多空力度線

 

函數腳本

SetBarMode(2);

{
XQ: WA/D 指標
}

variable: wadt(0), adt(0);

if CurrentBar = 1 then
 wadt = 0
else
 begin
 if close = close[1] then
 adt = 0
 else
 begin
 if close < close[1] then
 adt = close - TrueHigh
 else
 adt = close - TrueLow;
 end;

 wadt = adt + wadt[1];
 end;

WAD = wadt;

指標腳本

// XQ: WA/D 指標
//

variable: wad(0), _ad(0);

if CurrentBar = 1 then
 wad = 0
else
 begin 
 if close = close[1] then
 _ad = 0
 else 
 begin
 if close < close[1] then
 _ad = close - TrueHigh
 else { close > close[1] }
 _ad = close - TrueLow;
 end;

 wad = _ad + wad[1];
 end;
 
Plot1(wad, "WA/D");

參考圖