通达信擒龙跟庄主图指标公式源码

{ 通达信擒龙跟庄主图指标公式源码 }

{涨家:INDEXADV,NODRAW,COLORRED;
跌家:INDEXDEC,NODRAW,COLOR00FFFF;}
A:=(3*C+L+O+H)/6;
X:=(20*A+19*REF(A,1)+18*REF(A,2)+17*REF(A,3)+16*REF(A,4)+15*REF(A,5)+
14*REF(A,6)+13*REF(A,7)+12*REF(A,8)+11*REF(A,9)+10*REF(A,10)+9*REF(A,11)+8*REF(A,12)
+7*REF(A,13)+6*REF(A,14)+5*REF(A,15)+4*REF(A,16)+3*REF(A,17)+2*REF(A,18)+
REF(A,20))/210;
主力成本:EMA(X,13),COLORFF00FF,LINETHICK1;
N10:=3;N20:=6;N3:=12;N4:=24;
bbi:(MA(CLOSE,N10)+MA(CLOSE,N20)+MA(CLOSE,N3)+MA(CLOSE,N4))/4,COLORRED,LINETHICK2;
BB:=BBI<ref(bbi,1);
IF(BB,BBI,DRAWNULL)COLORGREEN,LINETHICK2;
DRAWICON(REF(BB,1)=1 AND BBI>REF(BBI,1),BBI*0.99,23);
DRAWKLINE(H,O,L,C);
AH:=HHV(H,60);
AL:=LLV(L,60);
A0:=(AH-AL)/21;
{JJR5}
均价:=(2*C+(C+H+L+O)/4+O)/4;
JJR1:=(2*L+3*均价)/5;
JJR2:=(2*H+3*均价)/5;
JJR3:=Abs(均价-MA((JJR1+JJR2)/2,20))/MA((JJR1+JJR2)/2,20);
JJR4:=DMA(均价,JJR3);
JJR5:(1+7/100)*JJR4,COLORRED,LINETHICK2;
IF(JJR5<ref(jjr5,1),jjr5,drawnull),linethick2,colorwhite;
C7:=REF(C,1);ZT:=IF((C-C7)*100/C7>=(10-0.01*100/C7),1,0);
STICKLINE(ZT,OPEN,CLOSE,2.0,0) ,COLORYELLOW;
{堆量}
V5:=MA(V,5);
V10:=MA(V,10);
D1:=V>REF(HHV(V,2),1) AND RANGE(V5,V10,V) AND UPNDAY(V5,2) AND UPNDAY(V10,2);
D2:=H>REF(HHV(H,2),1);
KMAX:=MAX(C,O);
D3:=KMAX>REF(HHV(KMAX,2),1);
DA:=D1 AND D2 AND D3;
P1:=BArslAST(DA=1);
P2:=REF(REF(H,1),P1);
DB:=IF(DA,0,IF(C<p2,1,0));{堆量确定};
LJ:=REF(HHV(H,P1+1),BARSLAST(DB));
NOTEXT:LJ;
DRAWICON(IF(C>LJ,IF(REF(KMAX<lj,1),1,0),0),l,18);
{趋势评分}
X01:=IF(MA(C,5)>MA(C,10),20,0);
X02:=IF(MA(C,20)>MA(C,60),10,0);
X3:=IF(kdj.J>kdJ.K,10,0);
X4:=IF(macd.DIF>MacD.DEA,10,0);
X05:=IF(MACD.MACD>0,10,0);
X6:=IF(V>MA(V,60),10,0);
X7:=IF(WINNER(C)>0.5,10,0);
X8:=IF(C/REF(C,1)>1.03,10,0);
XX:=X01+X02+X3+X4+X05+X6+X7+X8;
DRAWTEXT_FIX(V>O,0.4,0.05,0,STRCAT('趋势评分： ',STRCAT(CON2STR(XX,0),' '))),COLORYELLOW;
{主力洗盘线:MA(C,170),LINETHICK2;}
资金异动线:MA(C,136),COLORGREEN,LINETHICK2;
{擒龙跟庄}
主力攻击线:MA(C,5),DOTLINE,COLORWHITE;
主力控盘线:MA(CLOSE,18),COLORYELLOW,LINETHICK2;
IF(主力攻击线<主力控盘线 OR 主力攻击线<=MA(主力攻击线,5),主力攻击线,DRAWNULL),COLORYELLOW;
HJ_1:=C/REF(C,1)>=1.038 AND C=H;
HJ_22:=COUNT(HJ_1,2)>=1 AND NOT(COUNT(HJ_1,3)>=2);
启:=FILTER(HJ_22,13),COLORDDDDDD;
HJ_23:=COUNT(HJ_1,3)>=2 AND NOT(COUNT(HJ_1,4)>=3);
升:=FILTER(HJ_23,13),COLORGREEN;
龙头启动:=启 AND COUNT(启,18)=1,COLORWHITE;
主升:=升 AND COUNT(升,18)=1;
龙头主升:主升,COLORYELLOW,NODRAW;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,2,0),COLORFF00FF;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,2.5,0),COLORDA70D6;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,2,0),COLOREE82EE;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,1.2,0),COLORD8BFD8;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,0.5,0),COLORF8F8FF;
STICKLINE(HJ_1 AND C>主力攻击线,C,O,0.05,0),COLORFFFFFF;
STICKLINE(启 AND COUNT(启,18)=1,O,C,2,0),COLORYELLOW;
STICKLINE(启 AND COUNT(启,18)=1,O,C,0.8,0),COLORF8F8FF;
STICKLINE(启 AND COUNT(启,18)=1,O,C,0.2,0),COLORFFFFFF;
DRAWICON(龙头启动,L,34);
LC:=REF(CLOSE,1);
VAR28:=SMA(MAX(CLOSE-LC,0),5.5,1)/SMA(ABS(CLOSE-LC),6,1)*100;
DRAWTEXT(crOSS(84,rsi) AND CROSS(76,VAR28),H*1.01,'卖出'),LINETHICK4,COLORGREEN;
DRAWTEXT(龙头主升,L*0.99,'★'),COLORYELLOW,LINETHICK2;
{补仓卖}
VAB0:=531;
VAB1:=1510000;
VAB2:=VAB0 + VAB1;
VAB3:=IF(DATE > VAB2,0,1);
VARA12:=SMA(H,10,9)*VAB3;
VARA13:=SMA(L,10,9)*VAB3;
卖价:VARA12,COLORRED,NODRAW;
补仓:VARA13,COLORGREEN,NODRAW;
DRAWTEXT_FIX(1,0.75,0.05,0,STRCAT('补仓:',STRCAT(CON2STR(补仓,2),' '))),COLORRED;
DRAWTEXT_FIX(1,1,0.05,0,STRCAT('卖价:',STRCAT(CON2STR(卖价,2),' '))),COLORGREEN;
竞价额:=DYNAINFO(15)/10000;{万元}
DRAWTEXT_FIX(C>0,0.59,0.05,0,VARCAT(VARCAT('竞价: ',VAR2STR(竞价额,0)),' 万')),
COLORMAGENTA;
DRAWTEXT_FIX(V>O,0,0,0,STRCAT('属概念板块： ',GNBLOCK)),COLORRED;