「翔博精选指标」黄蓝带筹码峰(通达信公式 主图 源码 测试图)免费资源
黄蓝带筹码峰
	主力成本: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));
	{分析家公式网 WWW.70822.COM}
	指:=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;
	 
	




 
					   
					   
					   
					   
					  

 
