通达信黄蓝带筹码峰主图指标源码贴图

主力成本:EMA(COST(9),250),COLORYELLOW;ZTKX:=IF(CURRBARSCOUNT=1,REF(CLOSE,1)*1.1,DRAWNULL),NODRAW;
 DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130);
 DA:=IF(CURRBARSCOUNT>DA1,0,DA1);
 HI:=REFDATE(HHV(H,DA),DATE);
 LO:=REFDATE(LLV(L,DA),DATE);
 C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL);
 GZ:=EXP(LN(HI/LO)/10);
 LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA);
 LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA);
 LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA);
 LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA);
 LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA);
 LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA);
 LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA);
 LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA);
 LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA);
 LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA);
 L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0;
 L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0;
 L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0;
 L4:=REFDATE(HHV(LH4,DA),DATE);
 L5:=REFDATE(HHV(LH5,DA),DATE);
 L6:=REFDATE(HHV(LH6,DA),DATE);
 L7:=REFDATE(HHV(LH7,DA),DATE);
 L8:=REFDATE(HHV(LH8,DA),DATE);
 L9:=REFDATE(HHV(LH9,DA),DATE);
 L10:=REFDATE(HHV(LH10,DA),DATE);
 SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);
 STICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0)COLOR3C3C3A,LINETHICK3;
 STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0)COLOR3C3C3A,LINETHICK3;
 DRAWKLINE(H,O,L,C);

涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0);
 STICKLINE(涨停,OPEN,CLOSE,4,0),COLORMAGENTA;
 STICKLINE(涨停,OPEN,CLOSE,3,0),COLORMAGENTA;
 DRAWTEXT(涨停,L-0.1,'涨停'),COLORMAGENTA;

C3:=REF(C,1);
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0);
 STICKLINE(跌停,OPEN,CLOSE,4,0),COLORBLUE;
 STICKLINE(跌停,OPEN,CLOSE,3,0),COLORBLUE;
 DRAWTEXT(跌停,H+0.3,'跌停'),COLORBLUE;

N:=20;
 N1:=7;
 N2:=69;
 T1:=IF((DATE<=1341231),1,0);
 M3:=EMA(CLOSE,3);
 M5:EMA(CLOSE,5),COLOR008000;
 M10:EMA(M5,10),COLORWHITE;
 M30:EMA(M5,30),COLORWHITE;

 M60:EMA(M5,60),COLORF0F000;
 M120:EMA(M5,120),COLORF0F000;
 VAR1:=EMA(M10,120);

MA250:MA(CLOSE,250),COLORMAGENTA;
 VAR2:=(CLOSE+HIGH+LOW)/(3);
 VAR3:=(EMA(VAR2,10))*(T1);
 VAR4:=(REF(VAR3,1))*(T1);
 STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),COLOR00FFFF;
 STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),COLORFF0000;
 VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1);
 VAR6:=MA(CLOSE,N)+((2)*(STD(CLOSE,N)))*(T1);
 DRAWTEXT(CROSS(VAR3,VAR4),(VAR3)*(0.98),'★'),COLOR00FFFF;
 DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'↓卖'),COLOR008000;
 VAR7:=REF(CLOSE,1);
 VAR8:=((SMA(MAX(CLOSE-VAR7,0),N1,1))/(SMA(ABS(CLOSE-VAR7),N1,1)))*(100);
 VAR9:=CROSS(N2,VAR8);
 VARA:=(FILTER(VAR9,4))*(T1);
 DRAWTEXT(VARA,(HIGH)*(1.04),'↓卖'),COLORFFFFFF;
 VARB:=((2)*(CLOSE)+HIGH+LOW)/(4);
 VARC:=LLV(LOW,34);
 VARD:=HHV(HIGH,34);
 VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1);
 VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1);
 DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),8))/(8)>0.6) AND (VOL>=(1.5)*(MA(VOL,5))) AND COUNT((VARE>=VARF),3) AND (REF(LOW,1)=LLV(LOW,120)),1,0),LOW,'●买进'),COLORFF00FF;
 DRAWTEXT(IF(((COUNT((CLOSE<REF(CLOSE,1)),13))/(13)>0.6) AND COUNT((VARE>VARF),6) AND (REF(LOW,5)=LLV(LOW,120)) AND REF((CLOSE>=OPEN),4) AND REF((CLOSE>OPEN),3) AND REF((CLOSE>OPEN),2) AND REF((OPEN>CLOSE),1) AND (OPEN>REF(CLOSE,1)),1,0),LOW,'●买进'),COLOR00FFFF;
 VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1);
 DRAWTEXT(IF((CLOSE<VAR10) AND ((VOL)/(240)>(MA(VOL,5))/(240)) AND (CLOSE>(REF(CLOSE,1))*(1.08)) AND (CLOSE<(MA(CLOSE,13))*(1.3)),1,0),LOW,'●抄底'),COLOR0000FF;
 B1:=MA(CLOSE,3);
 STICKLINE(B1>REF(B1,1),B1,REF(B1,1),3,0),COLORRED;
 STICKLINE(B1<REF(B1,1),B1,REF(B1,1),3,0),COLORGREEN;

DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLOR0000FF;
 DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF;
 DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：'),COLORMAGENTA;
 DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLORMAGENTA;
 DRAWTEXT_FIX(C>0,0.00,0.16,0,STRCAT('所属概念：',GNBLOCK)),COLORYELLOW;
 DRAWTEXT_FIX(C>0,0.00,0.24,0,STRCAT('所属行业：',HYBLOCK)),COLORYELLOW;

JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3));
 DDD1:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01);
 JJJT:=IF(DDD1,1,(JJJ<(DYNAINFO(5)+0.01) && JJJ>(DYNAINFO(6)-0.01)));
多空1:=IF(JJJT,DMA(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120));
指:=IF(C>400,多空1,DRAWNULL),,LINETHICK3,COLORGREEN;
多空:IF(C<400,DMA(C,(VOL/CAPITAL)),指),LINETHICK2,COLORFF00FF;
 IF(多空<REF(多空,1),多空,DRAWNULL),LINETHICK2,COLORGREEN;
 DRAWNUMBER(ISLASTBAR AND C>=多空,多空,多空),COLORFF00FF;
 DRAWNUMBER(ISLASTBAR AND C<多空,多空,多空),COLORGREEN;