尋找股價已跌破7千點時股價的股票~ getbaroffset函數使用示範

昨晚跟友人聊天時，他問我能不能用電腦挑出，有那些股票，現在股價已經跌破上一波指數在7000點時的股價，今天就來跟大家介紹一個函數： getbaroffset  ，用這個函數就可以找出任一個曆日距今是多少根bar，然後就可以找出當天各檔股票的價位。

首先我們先去找一下上一次加權指數在七千點時是那一天

從下面的K線圖來看，20150824這一天，指數最低跌到過7203點，這一天應該是這幾年來加權指數的最低點

所以我們就可以寫出一個選股腳本，來尋找目前股價比那一天還低的股票有那一些

腳本的寫法如下

複製
1input:days(20150824);
2value1=getbaroffset(days);
3if close<close[value1] then ret=1;
4value2=((close[value1]/close)-1)*100;
5outputfield(1,close[value1],2,"當時股價");
6outputfield(2,value2,0,"跌幅%");
input:days(20150824);
value1=getbaroffset(days);
if close<close[value1] then ret=1;
value2=((close[value1]/close)-1)*100;
outputfield(1,close[value1],2,"當時股價");
outputfield(2,value2,0,"跌幅%");

這裡頭用到一個函數叫作getbaroffset，這個函數是您輸入日期，它會回傳該日期到最近一個交易日是距離多少根bar

這個函數的腳本如下

複製
1Input: target(numeric);
2
3variable: i(1);
4
5if target >=date then
6begin
7 GetBarOffset = 0;
8 return;
9end;
10
11while true
12begin
13 Value1 = date[i];
14 if Value1 <= target then 
15 begin
16 GetBarOffset = i;
17 return;
18 end;
19 i = i + 1; 
20end;
Input: target(numeric);

variable: i(1);

if target >=date then
begin
 GetBarOffset = 0;
 return;
end;

while true
begin
 Value1 = date[i];
 if Value1 <= target then 
 begin
 GetBarOffset = i;
 return;
 end;
 i = i + 1; 
end;

根據這個腳本我跑出來一共有391檔股票已經跌破當時的價位，我把跌幅大的列在下面

這些股票的股價是比大盤提前修正的，我朋友的意思是提前修正的會不會也提前落底。