通达信跟庄龙虎榜主图指标 源码 贴图

TJ360:=C=HHV(C,150);{黑马线}
TS360:=BARSLAST(TJ360);
HHC360:=REF(C,TS360);
RHHC360:=REF(HHC360,1);
TJ1360:=H>L AND C>RHHC360 ;
CS1360:=BARSLASTCOUNT(TJ1360);
CSS:=COUNT(CS1360=1,60);
MR:=CS1360=1 AND CSS=1;
HMXTS:=BARSLAST(MR);
黑马线:CONST(REF(C,HMXTS)),COLORFFFF00,LINETHICK2;
高:=REF(HHV(H,72),5);
龙门:REFDATE(高,DATE),COLORWHITE,LINETHICK2;

游资线:EMA(C,3);
LHB:=SIGNALS_USER(490,0)-SIGNALS_USER(491,0); {龙虎榜净买入额}
DRAWTEXT(LHB>0 AND LHB<10000,L*0.95,VARCAT(VARCAT('▲: ',VAR2STR(LHB,0)),'万')),COLORMAGENTA;
DRAWTEXT(LHB>10000,L*0.95,VARCAT(VARCAT('▲: ',VAR2STR(LHB/10000,2)),'亿')),COLORMAGENTA;
DRAWTEXT(LHB<0 AND LHB>-10000,L*0.95,VARCAT(VARCAT('▲: ',VAR2STR(LHB,0)),'万')),COLORGREEN;
DRAWTEXT(LHB<-10000,L*0.95,VARCAT(VARCAT('▲: ',VAR2STR(LHB/10000,2)),'亿')),COLORGREEN;

BS:=SIGNALS_USER(490,0)/SIGNALS_USER(491,0);
DRAWTEXT(BS>=0,H*1.01,VARCAT(VARCAT(' ',VAR2STR(BS,1)),'倍')),COLORYELLOW;


LL:=ZIG(3,5)<REFX(ZIG(3,5),1) AND ZIG(3,5)<REF(ZIG(3,5),1);
HH:=ZIG(3,5)>REFX(ZIG(3,5),1) AND ZIG(3,5)>REF(ZIG(3,5),1);



FL:=DYNAINFO(37)>MA(DYNAINFO(37),5);

SY:=H/MAX(C,O)>1.008;
XY:=MIN(C,O)/L>1.01;
SXZT:=SY AND HH AND FL;
SXGD:=XY AND LL;

ZQ:=BARSLAST(SXZT);


HX:DRAWLINE(SXZT,MAX(C,O),REF(SXZT,1),REF(MAX(C,O),1),1),COLORWHITE,LINETHICK2;

DRAWTEXT(CROSS(C,HX),L,'凹口');


TM:=1200823;
涨停:IF(DATE<TM,ZTPRICE(REF(C,1),IF(FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF(FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORRED;
跌停:IF(DATE<TM,DTPRICE(REF(C,1),IF(FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF(FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))),NODRAW,COLORGREEN;
明涨停:IF(DATE<TM,C*IF(FINANCE(3)=4,1.2,IF(NAMEINCLUDE('S'),1.05,1.1)),C*(FINANCE(3)>2,1.2,IF(NAMEINCLUDE('S'),1.05,1.1))),NODRAW,COLORLIMAGENTA;
明跌停:IF(DATE<TM,C*IF(FINANCE(3)=4,0.8,IF(NAMEINCLUDE('S'),0.45,0.9)),C*(FINANCE(3)>2,0.8,IF(NAMEINCLUDE('S'),0.45,0.9))),NODRAW,COLORFFFF00;
ZT:=C>=IF(DATE<TM,ZTPRICE(REF(C,1),IF( FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF( FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))));
DT:=C<=IF(DATE<TM,DTPRICE(REF(C,1),IF( FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF( FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))));
ZT1:=H>=IF(DATE<TM,ZTPRICE(REF(C,1),IF( FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),ZTPRICE(REF(C,1),IF( FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))) AND H>C;
DT1:=L<=IF(DATE<TM,DTPRICE(REF(C,1),IF( FINANCE(3)=4,0.2,IF(NAMEINCLUDE('S'),0.05,0.1))),DTPRICE(REF(C,1),IF( FINANCE(3)>2,0.2,IF(NAMEINCLUDE('S'),0.05,0.1)))) AND L<C;

JJ:=(C+O+H+L)/4;
AQ:=EMA(JJ,10);
乖离1:=H/AQ,COLORRED,NODRAW;
乖离2:=L/AQ,COLORRED,NODRAW;
DRAWTEXT(乖离1>1.45 AND SY,H,'顶背'),COLORGREEN;
DRAWTEXT(乖离2<-1.1,L,'底背'),COLORRED;

STICKLINE(ZT,C,(O+C)/2,3,0),COLOR000099;
STICKLINE(ZT,C,(O+C)/2,2.2,0),COLOR0000CC;
STICKLINE(ZT,C,(O+C)/2,1.5,0),COLOR0000FF;
STICKLINE(ZT,C,(O+C)/2,0.5,0),COLORCC66FF;
STICKLINE(ZT,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(ZT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(ZT,O,(O+C)/2,0.5,0),COLORFFFFFF;
STICKLINE(DT,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(DT,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(DT,O,(O+C)/2,1.5,0),COLORDDDDDD;
STICKLINE(DT,O,(O+C)/2,0.5,0),COLORFFFFFF;

STICKLINE(DT,C,(O+C)/2,3,0),COLOR009900;
STICKLINE(DT,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT,C,(O+C)/2,0.5,0),COLOR00FF00;

{曾涨跌停打开K线颜色设置}
STICKLINE(ZT1,C,(O+C)/2,3,0),COLORFF00FF;
STICKLINE(ZT1,C,(O+C)/2,2.2,0),COLORFF00FF;
STICKLINE(ZT1,C,(O+C)/2,1.5,0),COLOR0000FF;


STICKLINE(ZT1,O,(O+C)/2,3,0),COLOR999999;
STICKLINE(ZT1,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(ZT1,O,(O+C)/2,1.5,0),COLORDDDDDD;


STICKLINE(DT1,O,(O+C)/2,3,0),COLOR888888;
STICKLINE(DT1,O,(O+C)/2,2.2,0),COLORBBBBBB;
STICKLINE(DT1,O,(O+C)/2,1.5,0),COLORDDDDDD;


STICKLINE(DT1,C,(O+C)/2,3,0),COLOR009900;
STICKLINE(DT1,C,(O+C)/2,2.2,0),COLOR00BB00;
STICKLINE(DT1,C,(O+C)/2,1.5,0),COLOR00DD00;
STICKLINE(DT1,C,(O+C)/2,0.5,0),COLOR00FF00;

流通市值:(FINANCE(40)/100000000),NODRAW,COLORRED;
半分:(C+O)/2,COLORYELLOW,NODRAW;
现价:REFDATE(C,DATE),DOTLINE,COLORLIGRAY;



JYZY1:=(REF(C>=O,1) OR O>REF(H,1)) AND AMOUNT/V/100>REF(C,1) AND C<O;
假阳1:=REF(C<=O,1) AND H<REF(O,1) AND C<(REF(O-C,1))/3+REF(C,1) AND AMOUNT/V/100<REF(C,1) AND C>O;

JYZY:=AMOUNT/V/100>REF(C,1) AND C<O;
假阳:=AMOUNT/V/100<REF(C,1) AND C>O;
STICKLINE(JYZY,O,C,0.5,0),COLORRED;{假阴柱};
STICKLINE(假阳,O,C,0.5,0),COLORLIGREEN;{假阳柱};

阳阴太监:=REF(ZT OR ZT1 ,1) AND (DT OR DT1);

DRAWTEXT(阳阴太监,H,'太监'),COLORGREEN;


K1:=C>O;

K2:=C>REF(C,1);

K3:=O>=REF(O,1) AND O<=REF(C,1);

K4:=H/C-1<=0.01;K5:=V>REF(V,1);

K6:=SUM(K1,4)=3 AND SUM(K1,3)=3 AND SUM(K2,3)=3 AND SUM(K3,2)=2 AND SUM(K4,3)=3 AND SUM(K5,2)=2;

HSB:=EXIST(L<=LLV(L,20),5) AND EVERY(H>REF(H,1) AND L>REF(L,1) AND C>REF(C,1),3);
DRAWTEXT(K6,L,'红三兵'),COLORRED;

STICKLINE(K6,O,C,2,0),COLORYELLOW;



MA5:=MA(C,5),COLORWHITE;
MA10:=MA(C,10),COLORYELLOW;
MA20:=MA(C,20),COLORFF00FF;
MA30:=MA(C,30);
MA55:=MA(C,55);
低ZK:=REF(C,1)<MA5 AND REF(C,1)<MA10 AND REF(C,1)<MA20 AND REF(L,1)<MA30 AND REF(L,1)<MA55;
低K:=O<MA5 AND O<MA10 AND O<MA20 AND L<MA30 AND L<MA55;
高K:=C>MA5 AND C>MA10 AND H>MA20 AND H>MA30 AND H>MA55;
HSLZ:=V*10000/FINANCE(46);

穿多线:=C>REF(C,1)*1.02 AND H<C+0.06 AND (低K OR 低ZK) AND 高K AND V>REF(V,1) AND HSLZ>=1.5;

DRAWTEXT(穿多线,L*0.99,'↖一穿五'),COLORYELLOW;
VASS1:=HHV(H,60);
VASS2:=LLV(L,60);
VASS3:=REF((VASS1/VASS2-1)*100<=30,1);
AHC1:=C*V;
AHC22:=EMA((EXPMA(AHC1,23)/EXPMA(V,23)+EXPMA(AHC1,54)/EXPMA(V,54)+EXPMA(AHC1,108)/EXPMA(V,108)+EXPMA(AHC1,316)/EXPMA(V,316))/4,34);
通道:=1.0668*AHC22;
起爆:=CROSS(C,通道) AND REF(C,1)*1.05-C<0.005 AND C>O*0.5;
VARR1:=V;
VARR2:=VARR1>MA(V,89);
VARR3:=EXPMA(C,5);
VARR4:=EXPMA(C,29);
VARR5:=VARR3>VARR4;
LC:=REF(C,1);
RSI1:=SMA(MAX(C-LC,0),12,1)/SMA(ABS(C-LC),12,1)*100;
RSI2:=SMA(MAX(C-LC,0),56,1)/SMA(ABS(C-LC),56,1)*100;
VARR6:=RSI1>RSI2 AND VARR5 AND VARR2 AND C>REF(HHV(H,60),1);


黑马起爆:=起爆 AND VARR6 AND VASS3,COLORFF00FF,LINETHICK2;

DRAWTEXT(黑马起爆,L,'↖黑马1号'),COLORFF00FF;


X_36:=COST(1);
X_37:=COST(10);
X_38:=COST(20);
X_39:=COST(30);
X_40:=COST(40);
X_41:=COST(50);
X_42:=COST(60);
X_43:=COST(70);
X_44:=COST(80);
X_45:=COST(90);
X_46:=COST(99);
X_47:=COST(5);
X_48:=COST(15);
X_49:=COST(25);
X_50:=COST(35);
X_51:=COST(45);
X_52:=COST(55);
X_53:=COST(65);
X_54:=COST(75);
X_55:=COST(85);
X_56:=COST(95);
X_57:=X_47-X_36;
X_58:=X_37-X_47;
X_59:=X_48-X_37;
X_60:=X_38-X_48;
X_61:=X_49-X_38;
X_62:=X_39-X_49;
X_63:=X_50-X_39;
X_64:=X_40-X_50;
X_65:=X_51-X_40;
X_66:=X_41-X_51;
X_67:=X_52-X_41;
X_68:=X_42-X_52;
X_69:=X_53-X_42;
X_70:=X_43-X_53;
X_71:=X_54-X_43;
X_72:=X_44-X_54;
X_73:=X_55-X_44;
X_74:=X_45-X_55;
X_75:=X_56-X_45;
X_76:=X_46-X_56;
X_77:=MIN(X_57,MIN(X_58,MIN(X_59,MIN(X_60,MIN(X_61,MIN(X_62,MIN(X_63,MIN(X_64,MIN(X_65,MIN(X_66,MIN(X_67,MIN(X_68,MIN(X_69,MIN(X_70,MIN(X_71,MIN(X_72,MIN(X_73,MIN(X_74,MIN(X_75,X_76)))))))))))))))))));
X_78:=IF(X_57=X_77,(X_47+X_36)/2,IF(X_58=X_77,(X_47+X_37)/2,IF(X_59=X_77,(X_48+X_37)/2,IF(X_60=X_77,(X_48+X_38)/2,IF(X_61=X_77,(X_49+X_38)/2,IF(X_62=X_77,(X_49+X_39)/2,IF(X_63=X_77,(X_50+X_39)/2,IF(X_64=X_77,(X_50+X_40)/2,IF(X_65=X_77,(X_51+X_40)/2,IF(X_66=X_77,(X_51+X_41)/2,IF(X_67=X_77,(X_52+X_41)/2,IF(X_68=X_77,(X_52+X_42)/2,IF(X_69=X_77,(X_53+X_42)/2,IF(X_70=X_77,(X_53+X_43)/2,IF(X_71=X_77,(X_54+X_43)/2,IF(X_72=X_77,(X_54+X_44)/2,IF(X_73=X_77,(X_55+X_44)/2,IF(X_74=X_77,(X_55+X_45)/2,IF(X_75=X_77,(X_56+X_45)/2,(X_56+X_46)/2)))))))))))))))))));

STICKLINE(X_78 AND ISLASTBAR,X_78-0.01,X_78+0.01,50,1),COLOREE99FF;

DRAWTEXT(X_78 AND ISLASTBAR,X_78*1.015,' 筹 码 峰'),COLORLIBLUE;



LB:=REF(EVERY(ZT,3),2) AND REF(H=HHV(H,20),1) AND H<REF(H,1);
LBQ:=BARSLAST(LB);{WWW.GPXIAZAI.COM}
妖股打折:=REF(H,LBQ+1)*0.7,NODRAW,COLORWHITE;
STICKLINE(妖股打折,妖股打折,妖股打折,5,0),COLORWHITE;
Q3:=STRCAT(CON2STR(妖股打折,2),'打折线');

DRAWTEXT(ISLASTBAR,妖股打折,VARCAT(VARCAT('打折价',VAR2STR(妖股打折,2)),'元'))COLORFFFF00;


WY:=EXIST(H=HHV(H,10),3) AND EVERY(C<O,3) AND EVERY(O<REF(O,1),2);

DRAWTEXT(WY,H*1.01,'乌鸦'),COLORGREEN;


DGT:=(CROSS(C,MA55) OR (REF(C,1)<MA55 AND C>=MA55)) AND C>MA5 AND C>MA10 AND C>MA20 AND MA20<MA55,NODRAW;

DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=(DIF-DEA)*2,COLORSTICK;

主升启动:=COUNT(DGT,40)>=1 AND DGT AND MACD>0 AND DIF>DEA;
DRAWTEXT(FILTER(主升启动,5),L*0.98,'主升'),COLORYELLOW;


DFL:=L=LLV(L,10) AND L<REF(L,1) AND L<REFX(L,1) AND REFX(C,1)>REF(C,1) AND REFX(C>O,1);
DRAWTEXT(DFL,L*0.985,'底F'),COLORAAFF44;

DFH:=H=HHV(H,10) AND H>REF(H,1) AND H>REFX(H,1) AND REFX(C,1)<REF(C,1);
DRAWTEXT(FILTER(H>REFX(H,1) AND H=HHV(H,10),5) AND DFH,H*1.01,'顶F'),COLORGREEN;

大盘:=(INDEXC-REF(INDEXC,1))/REF(INDEXC,1);

逆势板:=大盘<0 AND ZT;

DRAWTEXT(逆势板,L,'逆'),COLORFFFF00;

乾坤眼:=(C>O AND REF(C,1)<REF(O,1) AND REF(C,2)<REF(O,2) AND C>REF(C,2)AND V<REF(V,2)&&REF(V,1)<REF(V,2)),COLORYELLOW;

STICKLINE(乾坤眼,O,C,3,0),COLOR000099;
STICKLINE(乾坤眼,O,C,2.2,0),COLOR0000CC;
STICKLINE(乾坤眼,O,C,1.5,0),COLOR0000FF;
STICKLINE(乾坤眼,O,C,0.5,0),COLORCC66FF;

高量线:=V=HHV(V,20) AND H=HHV(H,20),NODRAW;
DRAWLINE(高量线,MAX(C,O),REF(高量线,1),REF(MAX(C,O),1),1),COLORYELLOW,LINETHICK2;


DAY3:=REF(C<O,3);
DAY2:=REF(C<REF(C,1) AND C<O,2);
DAY1:=REF(C<O,1);
DAY0:=DAY1 AND DAY2 AND DAY3 AND C>REF(C,1) AND C>O AND C>REF(O,2) AND C>MA(C,10);
DRAWTEXT(DAY0,L-0.15,'3B');

收阴:=(C<REF(C,1) OR L<REF(L,1) OR AMOUNT/V/100<REF((C+O)/2,1)) AND O<=REF(C,1);
多阴:=EVERY(收阴,2);
小阳:=O-L<=0.03 AND H>C AND C>O AND O<REF(C,1) AND C<REF(MAX(C,O),1) AND V<REF(V,1);
宝莲灯:=REF(多阴,1) AND 小阳;
STICKLINE(宝莲灯,O,C,2.5,0),COLORCC22FF;
STICKLINE(宝莲灯,(O+C)/2-0.02,(O+C)/2+0.02,2,0),COLORWHITE;
阴阳皇帝:=EXIST(L=LLV(L,3),2) AND REF(DT OR DT1,1) AND (ZT1 OR ZT);
DRAWTEXT(阴阳皇帝,L*0.97,'皇帝'),COLORFFFFFF;
{板块排名}
TAX:=HORCALC(HYBLOCK,105,1,DRAWNULL);
TAA:=STRCAT(HYBLOCK,' 排名 ：');
DRAWTEXT_FIX(ISLASTBAR,0.70,0.005,0,STRCAT(TAA,CON2STR(TAX,0)));