筹码峰指标公式源码 找起爆点

筹码峰指标公式源码 

    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))ANDC1<(HI/GZ),V,0),DA);

    LH3:=SUM(IF(C1>=(HI/POW(GZ,3))ANDC1<(HI/POW(GZ,2)),V,0),DA);

    LH4:=SUM(IF(C1>=(HI/POW(GZ,4))ANDC1<(HI/POW(GZ,3)),V,0),DA);

    LH5:=SUM(IF(C1>=(HI/POW(GZ,5))ANDC1<(HI/POW(GZ,4)),V,0),DA);

    LH6:=SUM(IF(C1>=(HI/POW(GZ,6))ANDC1<(HI/POW(GZ,5)),V,0),DA);

    LH7:=SUM(IF(C1>=(HI/POW(GZ,7))ANDC1<(HI/POW(GZ,6)),V,0),DA);

    LH8:=SUM(IF(C1>=(HI/POW(GZ,8))ANDC1<(HI/POW(GZ,7)),V,0),DA);

    LH9:=SUM(IF(C1>=(LO*GZ)ANDC1<LO*POW(GZ,2),V,0),DA);

    LH10:=SUM(IF(C1>=LOANDC1<LO*GZ,V,0),DA);

    L1:=REFDATE(HHV(LH1,DA),DATE);

    L2:=REFDATE(HHV(LH2,DA),DATE);

    L3:=REFDATE(HHV(LH3,DA),DATE);

    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

    ),

    ,COLOR002288,LINETHICK3;

    STICKLINE(CEILING(DA*L2/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,1)*99/10

    0

    ,HI/POW(GZ,2),9,0),COLOR800600,LINETHICK3;

    STICKLINE(CEILING(DA*L3/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,2)*99/10

    0

    ,HI/POW(GZ,3),9,0),COLOR808300,LINETHICK3;

    STICKLINE(CEILING(DA*L4/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,3)*99/10

    0

    ,HI/POW(GZ,4),9,0),COLOR883D88,LINETHICK3;

    STICKLINE(CEILING(DA*L5/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,4)*99/10

    0

    ,HI/POW(GZ,5),9,0),COLOR777700,LINETHICK3;

    STICKLINE(CEILING(DA*L6/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,5)*99/10

    0

    ,HI/POW(GZ,6),9,0),COLOR804000,LINETHICK3;

    STICKLINE(CEILING(DA*L7/SS)*3>=CURRBARSCOUNT,HI/POW(GZ,6)*99/10

    0

    ,HI/POW(GZ,7),9,0),COLOR003377,LINETHICK3;

    STICKLINE(CEILING(DA*L8/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,2),LO*P

    OW(GZ,3)

    *99/100,9,0),COLORLICYAN,LINETHICK3;

    STICKLINE(CEILING(DA*L9/SS)*3>=CURRBARSCOUNT,LO*POW(GZ,1),LO*P

    OW(GZ,2)

    *99/100,9,0),COLORLIMAGENTA,LINETHICK3;

    STICKLINE(CEILING(DA*L10/SS)*3>=CURRBARSCOUNT,LO,LO*POW(GZ,1)*

    99/100,9,0)

    ,COLORBROWN,LINETHICK3;

    DRAWKLINE(H,O,L,C);

    STICKLINE(C>=O,C,O,4,0),COLOR0000AA;

    STICKLINE(C>=O,C,O,3.5,0),COLOR0000BB;

    STICKLINE(C>=O,C,O,3,0),COLOR0000CC;

    STICKLINE(C>=O,C,O,2.5,0),COLOR0000DD;

    STICKLINE(C>=O,C,O,2,0),COLOR0000EE;

    STICKLINE(C>=O,C,O,1.5,0),COLOR0000FF;

    STICKLINE(C>=O,C,O,1,0),COLOR0000FF;

    STICKLINE(C>=O,H,L,0.5,0),COLORRED;

    STICKLINE(C<=O,C,O,4,0),COLORAAAA00;

    STICKLINE(C<=O,C,O,3.5,0),COLORBBBB00;

    STICKLINE(C<=O,C,O,3,0),COLORCCCC00;

    STICKLINE(C<=O,C,O,2.5,0),COLORDDDD00;

    STICKLINE(C<=O,C,O,2,0),COLOREEEE00;

    STICKLINE(C<=O,C,O,1.5,0),COLORFFFF00;

    STICKLINE(C<=O,C,O,1,0),COLORFFFF00;

    STICKLINE(C<=O,H,L,0.5,0),COLORFFFF00;

    STICKLINE(C/REF(C,1)>1.05,(C+O)/2,C,3,0),COLOR00AAAA;

    STICKLINE(C/REF(C,1)>1.05,(C+O)/2,C,2,0),COLOR00CCCC;

    STICKLINE(C/REF(C,1)>1.05,(C+O)/2,C,1,0),COLOR00EEEE;

    STICKLINE(C/REF(C,1)>1.05,(C+O)/2,C,0.5,0),COLORYELLOW;

    DH:=(((CLOSE-REF(CLOSE,1))/REF(CLOSE,1))*100);

    STICKLINE(DH<=-4,(C+O)/2,C,3,0),COLORAA0000;

    STICKLINE(DH<=-4,(C+O)/2,C,2,0),COLORCC0000;

    STICKLINE(DH<=-4,(C+O)/2,C,1,0),COLOREE0000;

    STICKLINE(DH<=-4,(C+O)/2,C,0.5,0),COLORFF0000;

   找起爆点

参数： N 0 50 5 ; M 0 50 5

MA5:MA(C,5),COLORFFFFFF;

MA13:MA(C,13),COLORRED;

MA34:MA(C,34),COLORFF00FF,CIRCLEDOT;

MA50:MA(C,50),COLOR00FF00,CIRCLEDOT;

MA250:MA(C,250),COLORBLUE;

DRAWTEXT_FIX(1,0.5,0.8,0,'【白色--90 度支撑】 【红色-生命线】 【粉色-警惕】

【绿色---生死线】 【兰色----牛熊】 '),COLORFF00FF;

VAR2:=CLOSE*VOL;

VAR3:=EMA((EMA(VAR2,3)/EMA(VOL,3)+EMA(VAR2,6)/EMA(VOL,6)

+EMA(VAR2,12)/EMA(VOL,12)+EMA(VAR2,24)/EMA(VOL,24))/4,13);

VAR4:=EMA(CLOSE,9);

攻击迫线:=OPEN>REF(HIGH,1) AND CLOSE>REF(HIGH,1) AND

LOW>REF(HIGH,1) AND HIGH>CLOSE AND

REF(CLOSE,1)/REF(CLOSE,2)>=1.09 AND V>REF(V,1);

比翼双飞:=REF(C,2)/REF(C,3)>=1.0977 AND REF(O,1)>REF(H,2) AND

REF(L,1)>REF(H,2) AND REF(C,1)>REF(O,1) AND C>REF(C,1) AND

L>REF(L,1);

七伤拳:=REF((C-REF(C,1))/REF(C,1)>0.09,6) AND

COUNT((C-REF(C,1))/REF(C,1)>0.09,6+1)=1 AND

(HHV(H,6)-REF(C,6))/REF(C,6)*100<25 AND

(LLV(L,6)-REF(C,6))/REF(C,6)*100>(5*-1);

喜鹊闹梅:=REF((C-REF(C,1))/REF(C,1)>0.09,3) AND L>REF(C,1) AND

ABS(HHV(H,3)-REF(C,3))/REF(C,3)<5 AND

ABS(LLV(H,3)-REF(C,3))/REF(C,3)<5 AND LLV(LOW,3)>REF(C,3)*0.9;

牛熊不败:=CROSS(C,MA(C,250)) AND V>1.5*REF(MA(V,5),1) AND

C/(REF(C,1)-1)>1.3 AND CLOSE/REF(CLOSE,1)>=1.9;

搓揉线:=REF(O,1)=REF(L,1) AND REF(H,1)/REF(C,1)>1.03 AND

REF(C,1)>REF(C,2) AND H=C AND C/L>1.03 AND H>REF(C,1);

黑棒佳丽:=O>MA(C,20) AND (O-C)/O*100>0.01 AND VOL/CAPITAL*100 >=3

AND C>REF(C,1) AND REF(C,1)>REF(C,2) AND HIGH/LOW>=1.05;

绝地反击:=O<REF(L,1) AND C>O AND C<REF(C,1) AND V>REF(V,1) AND

REF(C,1)/REF(C,2)<0.95 AND REF(V,1)<REF(V,2);

吞并反转:=REF(CLOSE,2)/REF(CLOSE,1)>=1.05 AND

CLOSE/REF(LOW,1)>=1.05 AND CLOSE>REF(HIGH,1);

DRAWTEXT((七伤拳 = 1),LOW-0.05,'七伤拳'),LINETHICK2,COLORBLUE;

DRAWTEXT((牛熊不败 = 1),LOW-0.05,'牛'),LINETHICK2,COLORFF00CC;

DRAWTEXT((搓揉线 = 1),LOW-0.05,'搓'),LINETHICK2,COLORGREEN;

DRAWTEXT((黑棒佳丽 = 1),LOW-0.05,'黑棒佳丽'),LINETHICK2,COLOR33FF00;

DIF:=EMA(DCLOSE,12)-EMA(DCLOSE,26);

DEA:=EMA(DIF,9);

AAA:=(DIF-DEA)*2*60;

起爆:=CROSS(AAA-REF(AAA,1),20),COLORRED,LINETHICK2;

DRAWTEXT(起爆,L*0.99,'暴张临界点'),COLORYELLOW,LINETHICK2;

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORRED;

H1:=EMA(DCLOSE,5);

A1:=LLV(DCLOSE,5);

A2:=A1+1/CURRBARSCOUNT*N;

A3:=IF(CURRBARSCOUNT<20 AND A1>REF(A1,1),CONST(REF(A2,10)),A1);

A4:=MA(A3,10);

A5:=H1+1/CURRBARSCOUNT*M;

A6:=IF(CURRBARSCOUNT<20 AND A1>REF(A1,1),CONST(REF(A5,10)),A3);

L1:=LLV(L,10);

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

爆发点:=(DCLOSE-REF(C,1))/REF(C,1)*100;

XG:=CROSS(爆发点,20) OR CROSS(爆发点,6);

L3:IF(XG,O,L1*0.999),COLORYELLOW;

STICKLINE(XG,L3,L3,7,0);

DRAWTEXT(XG,L3,'起爆点'),COLORMAGENTA;

X1:=(C+L+H)/3;

BB13:=ATAN(EMA(X1,13)-REF(EMA(X1,13),1))*3.1416*10;

EMA8:=EMA(C,8);

DRAWTEXT(FILTER(BB13>1 AND EMA(X1,13)>REF(EMA(X1,8),1),10),

EMA8,'∠35 上升'),COLORYELLOW;