通达信筹码顶峰主图指标公式

　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);ABC1:=SUM(IF(C1>=(HI/GZ),V,0),DA);ABC2:=SUM(IF(C1>=(HI/POW(GZ,2)) AND C1< (HI/GZ),V,0),DA);ABC3:=SUM(IF(C1>=(HI/POW(GZ,3)) AND C1< (HI/POW(GZ,2)),V,0),DA);ABC4:=SUM(IF(C1>=(HI/POW(GZ,4)) AND C1< (HI/POW(GZ,3)),V,0),DA);ABC5:=SUM(IF(C1>=(HI/POW(GZ,5)) AND C1< (HI/POW(GZ,4)),V,0),DA);ABC6:=SUM(IF(C1>=(HI/POW(GZ,6)) AND C1< (HI/POW(GZ,5)),V,0),DA);ABC7:=SUM(IF(C1>=(HI/POW(GZ,7)) AND C1< (HI/POW(GZ,6)),V,0),DA);ABC8:=SUM(IF(C1>=(HI/POW(GZ,8)) AND C1< (HI/POW(GZ,7)),V,0),DA);ABC9:=SUM(IF(C1>=(LO*GZ) AND C1< LO*POW(GZ,2),V,0),DA);ABC10:=SUM(IF(C1>=LO AND C1< LO*GZ,V,0),DA);L1:=REFDATE(HHV(ABC1,DA),DATE);L2:=REFDATE(HHV(ABC2,DA),DATE);L3:=REFDATE(HHV(ABC3,DA),DATE);L4:=REFDATE(HHV(ABC4,DA),DATE);L5:=REFDATE(HHV(ABC5,DA),DATE);L6:=REFDATE(HHV(ABC6,DA),DATE);L7:=REFDATE(HHV(ABC7,DA),DATE);L8:=REFDATE(HHV(ABC8,DA),DATE);L9:=REFDATE(HHV(ABC9,DA),DATE);L10:=REFDATE(HHV(ABC10,DA),DATE);SS:=(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10);ZT:=C/REF(C,1)>1.094 AND H=C;STICKLINE(ZT,C,O,3.0,0),COLORYELLOW;W5:COST(5),DOTLINE;W95:COST(95),DOTLINE;C2:W95-W5,NODRAW;获利筹码:CONST( (C)*100),NODRAW;ZG:=HHV(H,598);BZ:=C2/ZG*100,NODRAW;JZ:=BZ< 20 AND crOSS(C,COST(90)) AND C/REF(C,1)>1.0618;DRAWICON(JZ,L*0.989,38);GJ:=HHV(H,21),COLORRED,POINTDOT;ZTS:BARSLAST(GJ<>REF(GJ,1))>=6,NODRAW;TJ1:=BARSLAST(GJ=REF(GJ,1));HX:H>IF(ZTS=1,REF(GJ,1),DRAWNULL),NODRAW;AA1:=REF(GJ,21)=HHV(GJ,2*21+1);BB1:=FILTER(AA1,21);CC1:= (BB1,21+1);DD1:=FILTER(CC1,21),NODRAW;前期高点:=REF(GJ,BARSLAST(DD1)),COLORFF00FF,DOTLINE;PT:STICKLINE(C>0,前期高点,前期高点,1,0),COLORRED;PL1:=(CROSS(C,REF(前期高点,1))OR L< 前期高点 AND C>前期高点) AND C/REF(C,1)>=1.098 AND C=H,NODRAW;STICKLINE(PL1,(C+O)/2,C,3,0),COLORRED;HL:=(COST(97)-COST(3))/10;CTD1:= (COST(3)+HL*1)- (COST(3)+HL*0);CTD2:= (COST(3)+HL*2)- (COST(3)+HL*1);CTD3:= (COST(3)+HL*3)- (COST(3)+HL*2);CTD4:= (COST(3)+HL*4)- (COST(3)+HL*3);CTD5:= (COST(3)+HL*5)- (COST(3)+HL*4);CTD6:= (COST(3)+HL*6)- (COST(3)+HL*5);CTD7:= (COST(3)+HL*7)- (COST(3)+HL*6);CTD8:= (COST(3)+HL*8)- (COST(3)+HL*7);CTD9:= (COST(3)+HL*9)- (COST(3)+HL*8);CTD10:= (COST(3)+HL*10)- (COST(3)+HL*9);MXCTD:=MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(MAX(CTD1,CTD2),CTD3),CTD4),CTD5),CTD6),CTD7),CTD8),CTD9),CTD10);峰价上:=IF(CTD10>=MXCTD,COST(3)+HL*10,IF(CTD9>=MXCTD,COST(3)+HL*9,IF(CTD8>=MXCTD,COST(3)+HL*8,IF(CTD7>=MXCTD,COST(3)+HL*7,IF(CTD6>=MXCTD,COST(3)+HL*6,IF(CTD5>=MXCTD,COST(3)+HL*5,IF(CTD4>=MXCTD,COST(3)+HL*4,IF(CTD3>=MXCTD,COST(3)+HL*3,IF(CTD2>=MXCTD,COST(3)+HL*2,IF(CTD1>=MXCTD,COST(3)+HL*1,0)))))))))),COLORWHITE;峰价下:=峰价上-HL,COLORWHITE;峰价中:=峰价上-HL*0.5,COLORMAGENTA;峰量:MXCTD*100,NODRAW;CB:=COST(60)> REF(COST(60),1);XG:=REF(C,1)< 峰价中 AND CROSS(C,峰价中) AND CB;DRAWICON(XG,峰价中,1);ABT36:=COST(1);ABT37:=COST(10);ABT38:=COST(20);ABT39:=COST(30);ABT40:=COST(40);ABT41:=COST(50);ABT42:=COST(60);ABT43:=COST(70);ABT44:=COST(80);ABT45:=COST(90);ABT46:=COST(99);ABT47:=COST(5);ABT48:=COST(15);ABT49:=COST(25);ABT50:=COST(35);ABT51:=COST(45);ABT52:=COST(55);ABT53:=COST(65);ABT54:=COST(75);ABT55:=COST(85);ABT56:=COST(95);ABT57:=ABT47-ABT36;ABT58:=ABT37-ABT47;ABT59:=ABT48-ABT37;ABT60:=ABT38-ABT48;ABT61:=ABT49-ABT38;ABT62:=ABT39-ABT49;ABT63:=ABT50-ABT39;ABT64:=ABT40-ABT50;ABT65:=ABT51-ABT40;ABT66:=ABT41-ABT51;ABT67:=ABT52-ABT41;ABT68:=ABT42-ABT52;ABT69:=ABT53-ABT42;ABT70:=ABT43-ABT53;ABT71:=ABT54-ABT43;ABT72:=ABT44-ABT54;ABT73:=ABT55-ABT44;ABT74:=ABT45-ABT55;ABT75:=ABT56-ABT45;ABT76:=ABT46-ABT56;ABT77:=MIN(ABT57,MIN(ABT58,MIN(ABT59,MIN(ABT60,MIN(ABT61,MIN(ABT62,MIN(ABT63,MIN(ABT64,MIN(ABT65,MIN(ABT66,MIN(ABT67,MIN(ABT68,MIN(ABT69,MIN(ABT70,MIN(ABT71,MIN(ABT72,MIN(ABT73,MIN(ABT74,MIN(ABT75,ABT76)))))))))))))))))));ABT78:=IF(ABT57=ABT77,(ABT47+ABT36)/2,IF(ABT58=ABT77,(ABT47+ABT37)/2,IF(ABT59=ABT77,(ABT48+ABT37)/2,IF(ABT60=ABT77,(ABT48+ABT38)/2,IF(ABT61=ABT77,(ABT49+ABT38)/2,IF(ABT62=ABT77,(ABT49+ABT39)/2,IF(ABT63=ABT77,(ABT50+ABT39)/2,IF(ABT64=ABT77,(ABT50+ABT40)/2,IF(ABT65=ABT77,(ABT51+ABT40)/2,IF(ABT66=ABT77,(ABT51+ABT41)/2,IF(ABT67=ABT77,(ABT52+ABT41)/2,IF(ABT68=ABT77,(ABT52+ABT42)/2,IF(ABT69=ABT77,(ABT53+ABT42)/2,IF(ABT70=ABT77,(ABT53+ABT43)/2,IF(ABT71=ABT77,(ABT54+ABT43)/2,IF(ABT72=ABT77,(ABT54+ABT44)/2,IF(ABT73=ABT77,(ABT55+ABT44)/2,IF(ABT74=ABT77,(ABT55+ABT45)/2,IF(ABT75=ABT77,(ABT56+ABT45)/2,(ABT56+ABT46)/2)))))))))))))))))));筹码峰线:ABT78,NODRAW,COLOR00EEEE;STICKLINE(ISLASTBAR,筹码峰线,筹码峰线*1.001,60,0),COLORWHITE,COLORLIMAGENTA;筹码顶峰:=IF(CROSS(C,筹码峰线),1,0 );DRAWICON(筹码顶峰 AND ZT,L*0.98,9);