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

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);