通达信黄蓝带筹码峰主图选股指标公式源码

通达信黄蓝带筹码峰主图选股指标公式源码

源码正文：

主力成本:ema(COst(9),250),COLORBLUE;ZTKX:=IF(CURRBARSCOUNT=1,REF(CLOSE,1)*1.1,DRAWNULL),NODRAW{XG51};
DA1:=IF(130>TOTALBARSCOUNT,TOTALBARSCOUNT,130){XG51};
DA:=IF(CURRBARSCOUNT>DA1,0,DA1){XG51};
HI:=REFDATE(HHV(H,DA),DATE){XG51};
LO:=REFDATE(LLV(L,DA),DATE){XG51};
C1:=IF(CURRBARSCOUNT<=DA,C,DRAWNULL){XG51};
GZ:=EXP(LN(HI/LO)/10){XG51};
LH1:=SUM(IF(C1>=(HI/GZ),V,0),DA){XG51};
LH2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1<(HI/GZ),V,0),DA){XG51};
LH3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1<(HI/POW(GZ,2)),V,0),DA){XG51};
LH4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1<(HI/POW(GZ,3)),V,0),DA){XG51};
LH5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1<(HI/POW(GZ,4)),V,0),DA){XG51};
LH6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1<(HI/POW(GZ,5)),V,0),DA){XG51};
LH7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1<(HI/POW(GZ,6)),V,0),DA){XG51};
LH8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1<(HI/POW(GZ,7)),V,0),DA){XG51};
LH9:=SUM(IF(C1>=(LO*GZ) AND C1<LO*POW(GZ,2),V,0),DA){XG51};
LH10:=SUM(IF(C1>=LO AND C1<LO*GZ,V,0),DA){XG51};
L1:=REFDATE(HHV(LH1,DA),DATE),LINETHICK0{XG51};
L2:=REFDATE(HHV(LH2,DA),DATE),LINETHICK0{XG51};
L3:=REFDATE(HHV(LH3,DA),DATE),LINETHICK0{XG51};
L4:=REFDATE(HHV(LH4,DA),DATE){XG51};
L5:=REFDATE(HHV(LH5,DA),DATE){XG51};
L6:=REFDATE(HHV(LH6,DA),DATE){XG51};
L7:=REFDATE(HHV(LH7,DA),DATE){XG51};
L8:=REFDATE(HHV(LH8,DA),DATE){XG51};
L9:=REFDATE(HHV(LH9,DA),DATE){XG51};
L10:=REFDATE(HHV(LH10,DA),DATE){XG51};
SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10){XG51};
STICKLINE(CEILING(DA*L1/SS)*3>=CURRBARSCOUNT,HI*99/100,HI/GZ,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/100,HI/POW(GZ,2),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/100,HI/POW(GZ,3),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/100,HI/POW(GZ,4),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/100,HI/POW(GZ,5),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/100,HI/POW(GZ,6),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/100,HI/POW(GZ,7),9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*POW(GZ,3)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*POW(GZ,2)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*99/100,9,0)COLOR3C3C3A,LINETHICK3{XG51};
DRAWKLINE(H,O,L,C){XG51};
涨停:=IF(REF(C,1)*1.095-C<0.01 ,1,0){XG51};
STICKLINE(涨停,OPEN,CLOSE,4,0),COLORmaGENTA{XG51};
STICKLINE(涨停,OPEN,CLOSE,3,0),COLORLIMAGENTA{XG51};
DRAWTEXT(涨停,L-0.1,'涨停'),COLORLIMAGENTA{XG51};
C3:=REF(C,1){XG51};
跌停:=IF((C3-C)*100/C3>=(10-0.01*100/C3),1,0){XG51};
STICKLINE(跌停,OPEN,CLOSE,4,0),COLORYELLOW{XG51};
STICKLINE(跌停,OPEN,CLOSE,3,0),COLORYELLOW{XG51};
DRAWTEXT(跌停,H+0.3,'跌停'),COLORYELLOW{XG51};
N:=20{XG51};
N1:=7{XG51};
N2:=69{XG51};
T1:=IF((DATE<=1341231),1,0){XG51};
M3:=EMA(CLOSE,3){XG51};
M5:EMA(CLOSE,5),COLOR008000{XG51};
M10:EMA(M5,10),COLORRED{XG51};
M30:EMA(M5,30),COLORRED{XG51};
M60:EMA(M5,60),COLORF0F000{XG51};
M120:EMA(M5,120),COLORF0F000{XG51};
VAR1:=EMA(M10,120){XG51};
MA250:MA(CLOSE,250),COLORLIMAGENTA{XG51};
VAR2:=(CLOSE+HIGH+LOW)/(3){XG51};
VAR3:=(EMA(VAR2,10))*(T1){XG51};
VAR4:=(REF(VAR3,1))*(T1){XG51};
STICKLINE((VAR3>VAR4),VAR3,VAR4,4,0),COLOR00FFFF{XG51};
STICKLINE((VAR3<VAR4),VAR3,VAR4,4,0),COLORFF0000{XG51};
VAR5:=((REF(HIGH,1)+REF(LOW,1))/(2))*(T1){XG51};
VAR6:=MA(CLOSE,N)+((2)*(STD(CLOSE,N)))*(T1){XG51};
DRAWTEXT(crOSS(VAR3,VAR4),(VAR3)*(0.98),'★'),COLOR00FFFF{XG51};
DRAWTEXT(CROSS(VAR5,VAR6),(HIGH)*(1.04),'&darr;卖'),COLOR008000{XG51};
VAR7:=REF(CLOSE,1){XG51};
VAR8:=((SMA(MAX(CLOSE-VAR7,0),N1,1))/(SMA(Abs(CLOSE-VAR7),N1,1)))*(100){XG51};
VAR9:=CROSS(N2,VAR8){XG51};
VARA:=(FILTER(VAR9,4))*(T1){XG51};
DRAWTEXT(VARA,(HIGH)*(1.04),'&darr;卖'),COLORFFFFFF{XG51};
VARB:=((2)*(CLOSE)+HIGH+LOW)/(4){XG51};
VARC:=LLV(LOW,34){XG51};
VARD:=HHV(HIGH,34){XG51};
VARE:=(EMA(((VARB-VAR1)/(VAR5-VAR1))*(100),7))*(T1){XG51};
VARF:=(EMA((0.667)*(REF(VARE,1))+(0.333)*(VARE),5))*(T1){XG51};
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{XG51};
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{XG51};
VAR10:=(MA(CLOSE,80)-(MA(CLOSE,10))/(3))*(T1){XG51};
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{XG51};
B1:=MA(CLOSE,3){XG51};
STICKLINE(B1>REF(B1,1),B1,REF(B1,1),3,0),COLORWHITE{XG51};
STICKLINE(B1<REF(B1,1),B1,REF(B1,1),3,0),COLORCYAN{XG51};
DRAWTEXT_FIX(1,0.00,0.00,0,'主题投资：')COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.07,0.00,0,EXTERNSTR(0,1))COLOR0000FF{XG51};
DRAWTEXT_FIX(1,0.00,0.08,0,'主营业务：'),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(1,0.07,0.08,0,EXTERNSTR(0,2)),COLORLIMAGENTA{XG51};
DRAWTEXT_FIX(C>0,0.00,0.16,0,STRCAT('所属概念：',GNBLOCK)),COLORBLUE{XG51};
DRAWTEXT_FIX(C>0,0.00,0.24,0,STRCAT('所属行业：',HYBLOCK)),COLORBLUE{XG51};
JJJ:=IF(DYNAINFO(8)>0.01,0.01*DYNAINFO(10)/DYNAINFO(8),DYNAINFO(3)){XG51};
DDD1:=(DYNAINFO(5)<0.01 || DYNAINFO(6)<0.01){XG51};
JJJT:=IF(DDD1,1,(JJJ<(DYNAINFO(5)+0.01) && JJJ>(DYNAINFO(6)-0.01))){XG51};
多空1:=IF(JJJT,dma(AMOUNT/(100*VOL),100*VOL/FINANCE(7)),EMA((HIGH+LOW+CLOSE)/3,120)){XG51};
指:=IF(C>400,多空1,DRAWNULL),,LINETHICK3,COLORCYAN{XG51};
多空:IF(C<400,DMA(C,(VOL/CAPITAL)),指),LINETHICK2,COLORFF00FF{XG51};
IF(多空<REF(多空,1),多空,DRAWNULL),LINETHICK2,COLORCYAN{XG51};
DRAWNUMBER(ISLASTBAR AND C>=多空,多空,多空),COLORFF00FF{XG51};
DRAWNUMBER(ISLASTBAR AND C<多空,多空,多空),COLORCYAN{X-G_5~1-C-N-{};