通达信钱袋买入主图，非常不错

用法：钱袋符号买入，哭脸卖出。
 
请老师帮忙做个钱袋符号选股的指标：
 

代码如下：
 

上涨家数:INDEXADV,COLOR0000FF,NODRAW;
 下跌家数:INDEXDEC,COLOR00FF00,NODRAW;
 M5:MA(C,5),COLORWHITE;
 M10:MA(C,10),COLORYELLOW;
 M20:MA(C,20),COLORCYAN;
 M60:MA(C,60),COLORGREEN,LINETHICK2;
 M120:MA(C,120),COLORRED,LINETHICK2;
 DRAWKLINE(H,O,L,C);
 ZKP:=IF(C>REF(C,1),REF(C,1),DRAWNULL);
 ZSP:=IF(C>REF(C,1),C,DRAWNULL);
 DKP:=IF(C<=REF(C,1),REF(C,1),DRAWNULL);
 DSP:=IF(C<=REF(C,1),C,DRAWNULL);
 DRAWKLINE(H,DKP,L,DSP);
 STICKLINE(C<=REF(C,1),DKP,DSP,3.05,0),COLORBLUE;
 STICKLINE(C<=REF(C,1),DKP,DSP,2.2,0),COLORFF7700;
 STICKLINE(C<=REF(C,1),DKP,DSP,1.5,0),COLORFF9900;
 STICKLINE(C<=REF(C,1),DKP,DSP,0.5,0),COLORFFBB00;
 DRAWKLINE(H,ZKP,L,ZSP);
 STICKLINE(C>REF(C,1),ZKP,ZSP,3.05,0),COLOR000099;
 STICKLINE(C>REF(C,1),ZKP,ZSP,2.2,0),COLOR0000CC;
 STICKLINE(C>REF(C,1),ZKP,ZSP,1.5,0),COLOR0000FF;
STICKLINE(C>REF(C,1),ZKP,ZSP,0.5,0),COLORCC66FF;
 STICKLINE(V/REF(V,1)>2 AND CLOSE>=OPEN,ZKP,ZSP,1,0),COLORYELLOW;
 VAR111:=ZIG(3,13);
 STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,3,0),COLOR66FF00;
 DRAWTEXT_FIX(STICKLINE((REF(VAR111,2) < REF(VAR111,1)) AND (VAR111 < REF(VAR111,1)),CLOSE,OPEN,5,0),0.00,0.11,0,''),COLOR00FF00,LINETHICK1;
 JJ:=(3*C+H+L+O)/6;
 VAR1:=(8*JJ+7*REF(JJ,1)+6*REF(JJ,2)+5*REF(JJ,3)+4*REF(JJ,4)+3*REF(JJ,5)+2*REF(JJ,6)+REF(JJ,8))/36;
 TJ1:=VOL=HHV(VOL,10) AND VOL>2*REF(VOL,1) AND CLOSE>VAR1 AND C>REF(C,1);
 LJL:=FILTER(TJ1,5);
 主力买力度:=LARGEINTRDVOL*1000/VOL;
 主力卖力度:=LARGEOUTTRDVOL*1000/VOL;
 AAD:=CONST(MAX(ABS(主力买力度),ABS(主力卖力度)))*2,NODRAW;
 DRAWRECTREL(0,0,CONST(ABS(主力买力度)*500/AAD),55,IF(CONST(主力买力度)>0,RGB(255,0,0),RGB(0,50,0)));
 DRAWRECTREL(0,70,CONST(ABS(主力卖力度)*500/AAD),130,IF(CONST(主力卖力度)>0,RGB(0,50,0),RGB(255,0,0)));
 DRAWTEXT_FIX(1,0,0,0,STRCAT('',CON2STR(主力买力度,0))),COLORYELLOW;
 DRAWTEXT_FIX(1,0,0.07,0,STRCAT('',CON2STR(主力卖力度,0))),COLORYELLOW;
 DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
 DEA:=EMA(DIF,9);
 MACD:=(DIF-DEA)*2;
 VAR113:=HHV(HIGH,60);
 VAR114:=LLV(LOW,30);
 VAR115:=(CLOSE-MA(CLOSE,32))/MA(CLOSE,32)*100;
 VAR116:=(VAR113+VAR114+VAR115)/3;
 VAR117:=EMA(VAR116,5);
 K01:=EMA(VAR117,5)*2, COLORFF00FF;
 D01:=EMA(K01,5),  COLORWHITE;
 J01:=K01*3-D01*2, COLORYELLOW;
 ENTERLONG:=CROSS(K01,D01);
 EXITLONG:=CROSS(D01,K01);
 B01:=(DRAWICON((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2))
AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)),L*0.98,1))*D01*2/3;
 B02:=IF(TROUGHBARS(3,15,1)=1 AND HIGH>LOW+0.01,20,0);
 必买:=(B01 AND B02);
必卖:=IF(PEAKBARS(3,15,1)=1,80,100),COLORGREEN,LINETHICK1;
 QQ:=必卖=80;
 B03:=((ZIG(3,5)>REF(ZIG(3,5),1)) AND (REF(ZIG(3,5),1)<=REF(ZIG(3,5),2)) AND (REF(ZIG(3,5),2)<=REF(ZIG(3,5),3)));
 V1:=EMA(CLOSE,60)-EMA(CLOSE,300);
 V2:=EMA(V1,300);
 V3:=(CLOSE-(LOW,8))/((HIGH,8)-LLV(LOW,8))*100;
 V4:SMA(V3,2,1),NODRAW;
 V5:SMA(V4,2,1),NODRAW;
 V6:=CLOSE/REF(CLOSE,3)>=1.1;
 V7:=BACKSET(V6,3);
 大涨:=(V7 AND COUNT(V7,3)=1);
 DRAWICON(必买,L-0.16,9);
 DRAWICON(大涨,L-0.18,1);
 DRAWICON(QQ,H+0.16,6);
 
 ------------------------------------------

发现未来函数DVOL!
 发现未来函数BACKSET!
 发现未来函数TROUGHBARS!
 发现未来函数PEAKBARS!
 发现未来函数ZIG!