通达信筹码顶峰主图 大牛爆发 源码
{筹码顶峰主图}
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);
未来函数检测结果如下：
该公式包含未来函数:COST
解密、编写股票、期货策略请联系QQ或微信同号：88652583
相关股票指标公式
原理解析：
如果130>TOTALBARSCOUNT返回TOTALBARSCOUNT否则返回130
如果 到最后交易的周期>DA1返回0否则返回DA1
HI赋值:REFDATE(DA日内H最高值,DATE)
LO赋值:REFDATE(DA日内L最低值,DATE)
如果 到最后交易的周期<=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)
如果C1>=LO AND C1< LO*GZ返回V否则返回0
L1赋值:REFDATE(DA日内ABC1最高值,DATE)
L2赋值:REFDATE(DA日内ABC2最高值,DATE)
L3赋值:REFDATE(DA日内ABC3最高值,DATE)
L4赋值:REFDATE(DA日内ABC4最高值,DATE)
L5赋值:REFDATE(DA日内ABC5最高值,DATE)
L6赋值:REFDATE(DA日内ABC6最高值,DATE)
L7赋值:REFDATE(DA日内ABC7最高值,DATE)
L8赋值:REFDATE(DA日内ABC8最高值,DATE)
L9赋值:REFDATE(DA日内ABC9最高值,DATE)
L10:=REFDATE(DA日内ABC10最高值,DATE)
SS赋值:(L1+L2+L3+L4+L5+L6+L7+L8+L9+L10)
ZT赋值:C/1日前的C>1.094 AND H=C
当满足条件ZT时,在C和O之间画柱状线
输出W5:获利盘为5%的成本分布,DOTLINE
输出W95:获利盘为95%的成本分布,DOTLINE
输出C2:W95-W5,NODRAW
输出获利筹码:CONST( (C)*100),NODRAW
ZG赋值:598日内H最高值
BZ赋值:C2/ZG*100,NODRAW
JZ赋值:BZ< 20 AND CROSS(C,获利盘为90%的成本分布) AND C/1日前的C>1.0618
当满足条件JZ时,在L*0.989和38之间画图标
GJ赋值:21日内H最高值,COLORRED,POINTDOT
ZTS:上次GJ<>1日前的GJ距今天数>=6,NODRAW
TJ1赋值:上次GJ=1日前的GJ距今天数
输出HX:H>IF(ZTS=1,1日前的GJ,DRAWNULL),NODRAW
AA1赋值:21日前的GJ=2*21+1日内GJ最高值
BB1赋值:AA1的21过滤
CC1赋值: (BB1,21+1)
DD1赋值:CC1的21过滤,NODRAW
前期高点赋值:REF(GJ,上次DD1距今天数),COLORFF00FF,DOTLINE
当满足条件C>0时,在前期高点和前期高点之间画柱状线
PL1赋值:(CROSS(C,1日前的前期高点)OR L< 前期高点 AND C>前期高点) AND C/1日前的C>=1.098 AND C=H,NODRAW
STICKLINE(PL1,(C+O)/2,C,3,0),COLORRED
HL赋值:(获利盘为97%的成本分布-COST(3))/10
CTD1赋值: (获利盘为3%的成本分布+HL*1)- (获利盘为3%的成本分布+HL*0)
CTD2赋值: (获利盘为3%的成本分布+HL*2)- (获利盘为3%的成本分布+HL*1)
CTD3赋值: (获利盘为3%的成本分布+HL*3)- (获利盘为3%的成本分布+HL*2)
CTD4赋值: (获利盘为3%的成本分布+HL*4)- (获利盘为3%的成本分布+HL*3)
CTD5赋值: (获利盘为3%的成本分布+HL*5)- (获利盘为3%的成本分布+HL*4)
CTD6赋值: (获利盘为3%的成本分布+HL*6)- (获利盘为3%的成本分布+HL*5)
CTD7赋值: (获利盘为3%的成本分布+HL*7)- (获利盘为3%的成本分布+HL*6)
CTD8赋值: (获利盘为3%的成本分布+HL*8)- (获利盘为3%的成本分布+HL*7)
CTD9赋值: (获利盘为3%的成本分布+HL*9)- (获利盘为3%的成本分布+HL*8)
CTD10:= (获利盘为3%的成本分布+HL*10)- (获利盘为3%的成本分布+HL*9)
MXCTD赋值:CTD1和CTD2较大值,CTD3),CTD4),CTD5),CTD6),CTD7),CTD8),CTD9),CTD10)
峰价上赋值:IF(CTD10>=MXCTD,获利盘为3%的成本分布+HL*10,IF(CTD9>=MXCTD,获利盘为3%的成本分布+HL*9,IF(CTD8>=MXCTD,获利盘为3%的成本分布+HL*8,IF(CTD7>=MXCTD,获利盘为3%的成本分布+HL*7,IF(CTD6>=MXCTD,获利盘为3%的成本分布+HL*6,IF(CTD5>=MXCTD,获利盘为3%的成本分布+HL*5,IF(CTD4>=MXCTD,获利盘为3%的成本分布+HL*4,IF(CTD3>=MXCTD,获利盘为3%的成本分布+HL*3,IF(CTD2>=MXCTD,获利盘为3%的成本分布+HL*2,IF(CTD1>=MXCTD,获利盘为3%的成本分布+HL*1,0)))))))))),COLORWHITE
峰价下赋值:峰价上-HL,COLORWHITE
峰价中赋值:峰价上-HL*0.5,COLORMAGENTA
输出峰量:MXCTD*100,NODRAW
CB赋值:获利盘为60%的成本分布> REF(获利盘为60%的成本分布,1)
XG赋值:1日前的C< 峰价中 AND C上穿峰价中 AND CB
当满足条件XG时,在峰价中和1之间画图标
ABT36赋值:获利盘为1%的成本分布
ABT37赋值:获利盘为10%的成本分布
ABT38赋值:获利盘为20%的成本分布
ABT39赋值:获利盘为30%的成本分布
ABT40赋值:获利盘为40%的成本分布
ABT41赋值:获利盘为50%的成本分布
ABT42赋值:获利盘为60%的成本分布
ABT43赋值:获利盘为70%的成本分布
ABT44赋值:获利盘为80%的成本分布
ABT45赋值:获利盘为90%的成本分布
ABT46赋值:获利盘为99%的成本分布
ABT47赋值:获利盘为5%的成本分布
ABT48赋值:获利盘为15%的成本分布
ABT49赋值:获利盘为25%的成本分布
ABT50赋值:获利盘为35%的成本分布
ABT51赋值:获利盘为45%的成本分布
ABT52赋值:获利盘为55%的成本分布
ABT53赋值:获利盘为65%的成本分布
ABT54赋值:获利盘为75%的成本分布
ABT55赋值:获利盘为85%的成本分布
ABT56赋值:获利盘为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
当满足条件ISLASTBAR时,在筹码峰线和筹码峰线*1.001之间画柱状线
筹码顶峰赋值:IF(C上穿筹码峰线,1,0 )
当满足条件筹码顶峰 AND ZT时,在L*0.98和9之间画图标
