盤中的大戶散戶買賣超指標

前天跟大家分享了盤中大戶即時買賣超的警示腳本，然後在文中提到說現在盤中是無法畫出指標的，這句話敝公司的天才工程師們很不服氣，抗議說分時圖是畫不出來沒有錯，但分鐘K是畫的出來的（以為我不知道哦，我只是寫不出來而己)，結果其中一位天才就直接把它寫出來了，今天就來跟大家分享這個分鐘K版的即時大戶散戶買賣超指標

先跟大家分享這個指標腳本


1input:
2bos(true,"類別",inputkind:=dict(["大戶",true],["散戶",false]),quickedit:=true),
3p(100,"大戶門檻(萬元)");
4variable:i(0),tv(0),tp1(0),tp(0);
5
6i=0;
7if date<>date[1]
8then begin
9value1=0;
10value2=0;
11end;
12if V>0
13then begin
14while GetField("時間","Tick")[i]>=time and GetFieldDate("成交量","Tick")[i]=date
15i+=1;
16while i>0
17begin
18i-=1;
19tv=GetField("成交量","Tick")[i];
20tp=GetField("收盤價","Tick")[i];
21tp1=GetField("收盤價","Tick")[i+1];
22condition1=0.1*tv*tp>=p;
23if tp>tp1 
24then begin
25condition2=true;
26condition3=false;
27end;
28if tp<tp1
29then begin
30condition2=false;
31condition3=true;
32end;
33if condition1 
34then begin
35if condition2 then value1+=tv;
36if condition3 then value1-=tv;
37end
38else begin
39if condition2 then value2+=tv;
40if condition3 then value2-=tv;
41end;
42end;
43end;
44
45if bos then value3=value1 else value3=value2;
46
47
48if value3>=0 then plot1(value3,"大戶買賣超");
49if value3<0 then plot2(value3,"大戶買賣超");
50if not bos
51then begin
52setplotlabel(1,"散戶買賣超");
53setplotlabel(2,"散戶買賣超");
54end;
input:
bos(true,"類別",inputkind:=dict(["大戶",true],["散戶",false]),quickedit:=true),
p(100,"大戶門檻(萬元)");
variable:i(0),tv(0),tp1(0),tp(0);

i=0;
if date<>date[1]
then begin
value1=0;
value2=0;
end;
if V>0
then begin
while GetField("時間","Tick")[i]>=time and GetFieldDate("成交量","Tick")[i]=date
i+=1;
while i>0
begin
i-=1;
tv=GetField("成交量","Tick")[i];
tp=GetField("收盤價","Tick")[i];
tp1=GetField("收盤價","Tick")[i+1];
condition1=0.1*tv*tp>=p;
if tp>tp1 
then begin
condition2=true;
condition3=false;
end;
if tp<tp1
then begin
condition2=false;
condition3=true;
end;
if condition1 
then begin
if condition2 then value1+=tv;
if condition3 then value1-=tv;
end
else begin
if condition2 then value2+=tv;
if condition3 then value2-=tv;
end;
end;
end;

if bos then value3=value1 else value3=value2;


if value3>=0 then plot1(value3,"大戶買賣超");
if value3<0 then plot2(value3,"大戶買賣超");
if not bos
then begin
setplotlabel(1,"散戶買賣超");
setplotlabel(2,"散戶買賣超");
end;