通达信一笑之筹码峰主图绝对顶级指标！

以下是通达信一笑之筹码峰主图绝对顶级指标！

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);
 M8:EMA(CLOSE,8),COLOR008000;
 M13:EMA(M8,13),COLORWHITE;
 M62:EMA(M8,55),COLORF0F000;
 VAR1:=EMA(M13,62);
 M81:EMA(M62,81),COLOR00FFFF;
 M144:EMA(VAR1,144),LINETHICK2,COLOR0000FF;
 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;

JJ:=(CLOSE+HIGH+LOW)/3;
 A:=EMA(JJ,10);
 B:=REF(A,1); 
 TOWERC:=FORCAST(EMA((3*CLOSE+2*OPEN+HIGH+LOW)/7,3),6);
 DIRECTIONMAX:=MAX(REF(TOWERC,1),REF(TOWERC,1));
 DIRECTIONMIN:=MIN(REF(TOWERC,1),REF(TOWERC,1));