巴菲特龙（源码 突破分时看盘的界限）
在大智慧分时看盘这个领域，杨软大师无人能敌，堪称一代宗师！再次向大师致敬!
大师的01053，虎拓赢龙，巴菲特龙分时副图里的买卖单显示一目了然，B点买入让人艳羡不已，可就是弄不出预警来。杨软大师不长来论坛，盼望哪位老师能实现我等愿望！
虎拓指标公式在本网可以下载:虎拓指标公式大全
{取数}
0,color888888;
Td: 流入量.流入净量#day ,linethick0;
买入力度:= 丰赢数据.买入力度
卖出力度:= 丰赢数据.卖出力度
流入额:= 丰赢数据.流入额 /10000;
流出额:= 丰赢数据.流出额 /10000;
净额:=流入额-流出额;
Je:净额,linethick0,color00DDDD;
x1:=sum((买入力度-卖出力度),0);
X:ema(x1,2),colorAAAA00;
PARTLINE(x,x 10.5,rgb(255,250,100)),LINETHICK1;
PARTLINE(x,x 0,rgb(30,255,0)),LINETHICK1;
cc:=BARSSINCE(o
TT:=(c-ref(c,cc-2))/ref(c,cc-2)*100;
B1:= SLOPE(c,5) 0.02 and tt 4 and x
b:=b1 and td 1000;
z1:=BARSSINCE(B);
z2:=BARSLAST(B);
T:b and z1=z2 ,linethick0;
zdcs:= 虎拓圣龙.bt
DRAWTEXT(zdcs,x,'P'+count(zdcs,0)),colorAAAAAA,LINETHICK0;
DRAWTEXTABS(0,0,'主力做多次数:'+count(zdcs,0)),colorCCCCCC;
Hl:=DYNAINFO(7)-ref(c,z1);
Hlbl:=hl/DYNAINFO(7)*100;
{条件B点}
DRAWTEXT(T,x,'B'),colorFF55FF,LINETHICK7;
DRAWTEXT(T and hl =0,x,' 提示:'+ref(c,z1)+'元,获利:'+HL+'元('+HLbl+'%)'),colorFFAADD,LINETHICK1;
DRAWTEXT(T and hl 0,x,' 提示:'+ref(c,z1)+'元,获利:'+HL+'元('+HLbl+'%)'),color00AA00,LINETHICK1;
提示买入价:ref(c,z1),linethick0,colorff00ff;
现已获利:HL,linethick0,color00AAff;
收益:HLbl,linethick0,color00ffff;
{千手大单:如果需要可打开，但不准确
bd:= 丰赢数据.总流入
sd:= 丰赢数据.总流出
T4:=(bd-ref(bd,1))/c 1000*100;
T5:=(sd-ref(sd,1))/c 1000*100;
DRAWTEXT(t4,x,'*'),colorCC00CC,LINETHICK1;
DRAWTEXT(T5,x,' *'),color00EE00,LINETHICK1;
DRAWTEXTABS(100,00,'（注： * 表示千手大单出现位置。）'),colorCCCCCC;};
下面的这个公式也不错：
分时有庄的公式
AR1:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;
STICKLINE(控盘 0,控盘,0,1,1),COLOR00FF00;
STICKLINE(控盘 REF(控盘,1) AND 控盘 0,控盘,0,1,1),COLORFF00FF;
无庄控盘:=控盘
STICKLINE(控盘 REF(控盘,1) AND 控盘 0,控盘,0,1,1),COLOR0000FF;
有庄控盘:=控盘 REF(控盘,1) AND 控盘
VAR2:=100*WINNER(CLOSE*0.95);
STICKLINE(控盘 REF(控盘,1) AND 控盘 0,控盘,0,1,1),COLORFFFF00;
主力出货:=控盘 REF(控盘,1) AND 控盘
STICKLINE(VAR2 50 AND COST(85) CLOSE AND 控盘 0,控盘,0,1,1),COLOR00FFFF;
高度控盘: VAR2 50 AND COST(85) CLOSE AND 控盘 0,ColorFF00FF,LINETHICK2;
A10:=CROSS(控盘,0);
控盘B:=FILTER(IF(A10,1,0),5);
{控盘买卖条件}
STJ01:=控盘 REF(控盘,1) AND 控盘
STJ02:=控盘
BTJ2:=控盘 REF(控盘,1) AND 控盘 -0.2;
BTJ22:=控盘 REF(控盘,1) AND 控盘
{分时价格原码}
JJ:=DYNAINFO(11);
{波段买卖原码}
P:=55;S:=8;M1:=3;
能量:(EMA(CLOSE,S)-EMA(C,P))*10,LINETHICK2,COLOR0000FF;
空头:EMA(能量,M1),COLOR00FF00;
{股价与均线偏离买卖条件}
BTJ1:=(CLOSE-JJ)/JJ -0.005;
BTJ11:=(CLOSE-JJ)/JJ -0.03;
BTJ12:=ref(LAST(JJ =REF(JJ,1)),1) =4 AND (CLOSE-JJ)/JJ 0.005;
STJ1:=(C-JJ)/JJ 0.005;
{波段买卖条件}
BTJ3:=CROSS(能量,空头) AND 能量 -0.3;
BTJ32:=CROSS(能量,空头) AND 能量 -0.1;
STJ31:=CROSS(空头,能量);
STJ32:=CROSS(空头,能量) AND 能量 1.618;
{以下为信号};A:=8;
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,A);
BTJ811:=FILTER(BTJ11 AND BTJ2 AND BTJ3,A);
BTJ82:=FILTER(BTJ12 AND BTJ22 AND BTJ32,A);
时长:=if(HOUR =9 AND HOUR 14 ,1,0);{9点至 14点}
有庄:BTJ811 AND TIME 15 and 时长,ColorFF8000,STICK,LINETHICK3;
DRAWICON(BTJ811 AND TIME 5 and 时长,0,9),ALIGN1;{有庄};
DRAWTEXT(BTJ811 AND TIME 5 and 时长,1.5,'庄'),Color00FFFF,ALIGN1;
STJ81:=FILTER(STJ1 AND STJ01 AND STJ31,A);
STJ82:=FILTER(STJ02 AND STJ32 ,A);
STJ83:=STJ81 AND STJ82;
DRAWTEXT(STJ83,空头,'卖'),ColorFFFFFF,ALIGN1;
{量价新高}
T:=BARSCOUNT(CLOSE);
分钟数:=IF(TIME0/60-570 =130,TIME0/60-570,TIME0/60-660);
AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));
主买:=IF(CLOSE OPEN,AA*(HIGH-LOW),IF(CLOSE OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL/2));
主卖:=IF(CLOSE OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE OPEN,0- AA*(HIGH-LOW),0-VOL/2));
量:=VOL;
额:=AMOUNT/100000000;
流入额:=MA(主买,4)/100000;
流出额:=MA((0-主卖),4)/100000;
净流入:=SUM(流入额-流出额,0);
价新高:=COUNT(H=HHV(H,分钟数),30);
量新高:=COUNT(V=HHV(V,分钟数) ,30);
量价新高:价新高=量新高 AND 价新高 0 AND 价新高 REF(价新高,1) AND 量新高 REF(量新高,1) AND 净流入 0,Color00FFFF,STICK,linethick3;
