找出盤中有大單的腳本寫法

前天有人客寄來下面這張圖，問我要挑這種股票腳本怎麼寫?

我了解了一下人客的想法，他想要找的股票，是那種股本不算大，以精材為例，股本是27億，然後每天成交金額也一般般的股票。客人說，如果這種股票，突然出現幾筆單筆上千萬的外盤買進金額，應該是有故事，值得留意。

可惜我功力不好，問了公司那些聰明的腦袋才寫出以下的腳本

複製
1input:v1(500,"單筆買進金額下限");
2input: LaTime(2,"大單筆數");
3input:TXT("須逐筆洗價","使用限制");
4variable: intrabarpersist Xtime(0);//計數器
5variable: intrabarpersist V2(0);
6variable: intrabarpersist XDate(0);
7
8v2=q_TickVolume;//單量
9value2=q_BidAskFlag;//外盤標誌為1
10value3=v2*close/10;
11settotalbar(3);
12
13if Date > XDate then Xtime =0; //開盤那根要歸0次數
14XDate = Date;
15
16if value3 >= v1 and value2=1 then Xtime+=1; //量夠大就加1次
17
18if Xtime > LaTime then 
19begin
20 ret=1;
21 Xtime=0;
22end;
input:v1(500,"單筆買進金額下限");
input: LaTime(2,"大單筆數");
input:TXT("須逐筆洗價","使用限制");
variable: intrabarpersist Xtime(0);//計數器
variable: intrabarpersist V2(0);
variable: intrabarpersist XDate(0);

v2=q_TickVolume;//單量
value2=q_BidAskFlag;//外盤標誌為1
value3=v2*close/10;
settotalbar(3);

if Date > XDate then Xtime =0; //開盤那根要歸0次數
XDate = Date;

if value3 >= v1 and value2=1 then Xtime+=1; //量夠大就加1次

if Xtime > LaTime then 
begin
 ret=1;
 Xtime=0;
end;

這個腳本用的是日線，但必須逐筆洗價，至於多少的成交值才算大單，要多少筆大單才觸發，我都設成參數，大家可以自己設定。