N:=13;
UR:=6;
LR:=2;
////
TC1:=IF(H=HHV(H,8*UR),H,NULL);
TC2:=REFX1(BARSLAST(TC1=H),10000)+1;
UP:=REFX1(IF(TC2=1,H,REF(H,TC2-1)),10000);
BC1:=IF(L=LLV(L,8*LR),L,NULL);
BC2:=REFX1(BARSLAST(BC1=L),10000)+1;
LL:=REFX1(IF(BC2=1,L,REF(L,BC2-1)),10000);
CURRBARSCOUNT:=DATACOUNT-BARPOS+1;
LP:=CURRBARSCOUNT<=BC2 AND L=LL;
HP:=CURRBARSCOUNT<=TC2 AND H=UP;
STICKLINE1(IF(BC2>TC2,HP,LP),LL,UP,0,0),COLORGREEN;
STICKLINE1(IF(BC2>TC2,LP,HP),LL,UP,0,0),COLORRED;
NOD:=(IF(TC2>BC2,TC2,BC2)-IF(TC2>BC2,BC2,TC2));
LR1:=FORCAST(C,NOD+1);
NP:=IF(CURRBARSCOUNT<=MAX(BC2,TC2),REFX1(IF(MIN(TC2,BC2)=1,LR1,REF(LR1,MIN(TC2,BC2)-1)),100000),NULL),POINTDOT,COLOR93BDA8;
LR2:=SLOPE(C,NOD+1);
LR3:=REFX1(IF(MIN(TC2,BC2)=1,LR2,REF(LR2,MIN(TC2,BC2)-1)),10000);
FP:=NP-LR3*(NOD),POINTDOT,COLOR93BDA8;
EQU:=(NP+FP)/2,POINTDOT,COLOR93BDA8;
AD:=ABS(NP-FP);
DBL:=BARSLAST(NOT(ISNULL(BC1)))+1;
DBH:=BARSLAST(NOT(ISNULL(TC1)))+1;
BSP:=IF(BC2>TC2,DBL,DBH)-1;
LRL:=IF(NP>FP,FP+AD/NOD*BSP,FP-AD/NOD*BSP);
AT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND H>LRL,H,LRL);
AT2:=HHV(AT1-LRL,MAX(BC2,TC2));
AT3:=REFX1(BARSLAST(AT1-LRL=AT2),10000);
AT4:=REFX1(IF(AT3=0,H,REF(H,AT3)),10000);
AT5:=REFX1(IF(AT3=0,AT1-LRL,REF(AT1-LRL,AT3)),10000);
ATL:=LRL+AT5;
UT1:=IF(BETWEEN(CURRBARSCOUNT,BC2,TC2) AND L<LRL,L,LRL);
UT2:=HHV(LRL-UT1,MAX(BC2,TC2));
UT3:=REFX1(BARSLAST(LRL-UT1=UT2),10000);
UT4:=REFX1(IF(UT3=0,H,REF(H,UT3)),10000);
UT5:=REFX1(IF(UT3=0,LRL-UT1,REF(LRL-UT1,UT3)),10000);
UTL:=LRL-UT5;
RH:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,ATL,REFX1(REF(ATL,MIN(BC2,TC2)-11),100000));
RL:=IF(CURRBARSCOUNT>=MIN(BC2,TC2)-10,UTL,REFX1(REF(UTL,MIN(BC2,TC2)-11),100000));
上轨
:=IF(NP>FP,IF(ATL<=RH,ATL,NULL),IF(ATL>=RL,ATL,NULL)),COLORGREEN;
中轨
:=IF(NP>FP,IF(LRL<=RH,LRL,NULL),IF(LRL>=RL,LRL,NULL)),COLORYELLOW;
下轨
:=IF(NP>FP,IF(UTL<=RH,UTL,NULL),IF(UTL>=RL,UTL,NULL)),COLORMAGENTA;
波动率1
:=(HHV(上轨,0)-HHV(下轨,0))*0.01;
波动率2
:=(HHV(上轨,0)-HHV(下轨,0))*0.03;
波动率3
:=(HHV(上轨,0)-HHV(下轨,0))*0.05;
波动率4
:=(HHV(上轨,0)-HHV(下轨,0))*0.08;
波动率5
:=(HHV(上轨,0)-HHV(下轨,0))*0.13;
波动率6
:=(HHV(上轨,0)-HHV(下轨,0))*0.21;
波动率7
:=(HHV(上轨,0)-HHV(下轨,0))*0.34;
波动率8
:=(HHV(上轨,0)-HHV(下轨,0))*0.55;
G0
:=上轨;
D0
:=下轨;
X1X
:=D0+波动率1;
X2X
:=D0+波动率2;
X3
:=D0+波动率3;
X4
:=D0+波动率4;
X5
:=D0+波动率5;
X6
:=D0+波动率6;
X7
:=D0+波动率7;
X8
:=D0+波动率8;
ZJ
:=(上轨+下轨)/2;
S1
:=G0-波动率1;
S2
:=G0-波动率2;
S3
:=G0-波动率3;
S4
:=G0-波动率4;
S5
:=G0-波动率5;
S6
:=G0-波动率6;
S7
:=G0-波动率7;
S8
:=G0-波动率8;
下穿通道线
:IF(C<S1,S1,NULL),COLORGREEN,DOT;
IF(C<S2,S2,NULL),COLORGREEN,DOT;
IF(C<S3,S3,NULL),COLORGREEN,DOT;
IF(C<S4,S4,NULL),COLORGREEN,DOT;
IF(C<S5,S5,NULL),COLORGREEN,DOT;
IF(C<S6,S6,NULL),COLORGREEN,DOT;
IF(C<S7,S7,NULL),COLORGREEN,DOT;
IF(C<ZJ,ZJ,NULL),COLORGREEN,DOT;
IF(C<S8,S8,NULL),COLORGREEN,DOT;
上穿通道线
:IF(C>X1X,X1X,NULL),COLORRED,DOT;
IF(C>X2X,X2X,NULL),COLORRED,DOT;
IF(C>X3,X3,NULL),COLORRED,DOT;
IF(C>X4,X4,NULL),COLORRED,DOT;
IF(C>X5,X5,NULL),COLORRED,DOT;
IF(C>X6,X6,NULL),COLORRED,DOT;
IF(C>X7,X7,NULL),COLORRED,DOT;
IF(C>ZJ,ZJ,NULL),COLORRED,DOT;
IF(C>X8,X8,NULL),COLORRED,DOT;
//{极品波浪指标，有此公式必发达}
A1:=REF(HIGH,3)=HHV(HIGH,2*3+1);
B1:=FILTER(A1,3);
C1:=BACKSET(B1,3+1);
D1:=FILTER(C1,3);
{高点}
A2:=REF(LOW,3)=LLV(LOW,2*3+1);
B2:=FILTER(A2,3);
C2:=BACKSET(B2,3+1);
D2:=FILTER(C2,3);
{低点}
E1:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
E2:=(HIGH+LOW)/2;
H1:=(D1 AND NOT((D2 AND E1>=E2))) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
L1:=(D2 AND NOT((D1 AND E1<E2)));
H2:=D1 AND NOT((D2 AND E1>=E2));
X1:=REF(BARSLAST(H1),1)+1;
F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));
G1:=F1>REF(F1,1);
I1:=BACKSET(G1,2);
LD:=I1>REF(I1,1);
{过滤后低点}
L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;
X2:=REF(BARSLAST(L2),1)+1;
F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
G2:=F2>REF(F2,1);
I2:=BACKSET(G2,2);
HD:=I2>REF(I2,1);
DRAWLINE1(LD,L,HD,H,0),COLORMAGENTA,LINETHICK1;
DRAWLINE1(HD,H,LD,L,0),COLORMAGENTA,LINETHICK1;
J1:=BACKSET(ISLASTBAR ,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
拐点:=TRENDLINES(J2,IF(HD,H,L),ISLASTBAR ,IF(BARSLAST(HD)>BARSLAST(LD),H,L)),COLORWHITE,LINETHICK1;
上:NP,DOT,COLORBLUE,DOT;
中:EQU,DOT,COLORBLUE,DOT;
下:FP,DOT,COLORBLUE,DOT;
DRAWTEXT(LP,(H+L)/2,'如果跌破多单止损'),COLORCYAN;
DRAWTEXT(LP,L,'起涨点'),COLORYELLOW;
DRAWTEXT(HP,H,'起跌点'),COLORGREEN;
DRAWTEXT(HP,(H+L)/2,'如果突破空单止损'),COLORYELLOW;
上穿空止损:IF(C<拐点,拐点,NULL),COLORGREEN,DOT;
下穿多止损:IF(C>拐点,拐点,NULL),COLORRED,DOT;
DRAWNUMBER1(CURRBARSCOUNT=2,上穿空止损,上穿空止损,2),COLORGREEN;
DRAWNUMBER1(CURRBARSCOUNT=2,下穿多止损,下穿多止损,2),COLORRED;
HIGHN:=10;
LOWN:=10;
HIGHDISPLAY:=0;
LOWDISPLAY:=0;
ZGDISPLAY:=0;
MADISPLAY:=0;
AAB:=REF(H,HIGHN)=HHV(H,2*HIGHN+1);
QY:=BACKSET(AAB,HIGHN+1);
CC:=FILTER(QY,HIGHN) AND H=HHV(H,HIGHN+1);
DDD:=BARSLAST(CC);
GDTS:=IF(CC,CURRBARSCOUNT,0);
DINGBU:=IF(DDD,REF(H,DDD),H);
DINGBUTS:=IF(DDD,REF(GDTS,DDD),GDTS);
DINGBU1:=REF(DINGBU,DDD+1);
GDCS1:=REFX1(DINGBUTS,10000);
DINGBUTS1:=REF(DINGBUTS,DDD+1);
GDCS2:=REFX1(DINGBUTS1,10000);
DINGBU2:=REF(DINGBU1,DDD+1);
MMM:=IF(CURRBARSCOUNT>GDCS2,0,1);
高点压力:=TRENDLINES(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H) ,COLORGREEN,DOT;
现在压力:TRENDLINES(CURRBARSCOUNT=GDCS2,H,CURRBARSCOUNT=GDCS1,H) ,COLORGREEN,DOT;
压力A:=TRENDLINES(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1)),COLOR0055FF,DOT;
远期压力:TRENDLINES(CURRBARSCOUNT=GDCS2,H,ISLASTBAR,REF(H,GDCS2-1)),COLORGREEN,DOT;
压力B:=TRENDLINES(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1)),COLORYELLOW,DOT;
近期压力:TRENDLINES(CURRBARSCOUNT=GDCS1,H,ISLASTBAR,REF(H,GDCS1-1)),COLORGREEN,DOT;
AA1:=REF(L,LOWN)=LLV(L,2*LOWN+1);
QY1:=BACKSET(AA1,LOWN+1);
CC1:=FILTER(QY1,LOWN) AND L=LLV(L,LOWN+1);
DD1:=BARSLAST(CC1);
DDTS:=IF(CC1,CURRBARSCOUNT,0);
YDB:=IF(DD1,REF(L,DD1),L);
DDTS1:=IF(DD1,REF(DDTS,DD1),DDTS);
DDCS1:=REFX1(DDTS1,10000);
ZDB:=REF(YDB,DD1+1);
DDTS2:=REF(DDTS1,DD1+1);
DDCS2:=REFX1(DDTS2,10000);
低点支撑:=TRENDLINES(CURRBARSCOUNT=DDCS2,L,CURRBARSCOUNT=DDCS1,L), COLORRED,DOT;
ZGSTAR:=(高点压力+低点支撑)/2;
ZGEND:=REFX1((高点压力+低点支撑)/2,10000);
STARDAY:=IF(DDCS2<GDCS2,DDCS2,GDCS2);
居中轨:=TRENDLINES(CURRBARSCOUNT=STARDAY,ZGSTAR,ISLASTBAR,ZGEND),POINTDOT,COLORMAGENTA,LINETHICK1;
TTT:=6;
AK1:=REF(HIGH,6)=HHV(HIGH,2*TTT+1);
BK1:=FILTER(AK1,TTT);
CK1:=BACKSET(BK1,TTT+1);
DK1:=FILTER(CK1,TTT);
AK2:=REF(LOW,TTT)=LLV(LOW,2*TTT+1);
BK2:=FILTER(AK2,TTT);
CK2:=BACKSET(BK2,TTT+1);
DK2:=FILTER(CK2,TTT);
EK1:=(REF(LLV(LOW,2*TTT),1)+REF(HHV(HIGH,2*TTT),1))/2;
EK2:=(HIGH+LOW)/2;
HK1:=(D1 AND NOT(DK2 AND E1>=E2)) OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
LK1:=(D2 AND NOT(D1 AND E1<E2));
HK2:=D1 AND NOT(D2 AND E1>=E2);
XK1:=REF(BARSLAST(H1),1)+1;
FK1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,1000000),X1));
GK1:=CROSS(F1=1,0.5);
IK1:=BACKSET(G1,2);
LKD:=I1>REF(I1,1);
LK2:=LD OR BARSTATUS OR BARSCOUNT(CLOSE)=1;
XK2:=REF(BARSLAST(L2),1)+1;
FK2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));
GK2:=CROSS(F2=1,0.5);
IK2:=BACKSET(G2,2);
HKD:=I2>REF(I2,1);
UU:=BACKSET(BARSTATUS,BARSLAST(LD)+1);
VV:=UU>REF(UU,1);
WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);
XX:=WW>REF(WW,1);
UU2:=BACKSET(BARSTATUS,BARSLAST(HD)+1);
VV2:=UU2>REF(UU2,1);
WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);
XX2:=WW2>REF(WW2,1);
近低A
:=REF(L,BARSLAST(VV)),COLORYELLOW,LINETHICK1,DOT;
近期低点
:REF(L,BARSLAST(VV)),COLORYELLOW,LINETHICK1,DOT;
近低B
:=REF(L,BARSLAST(XX)),COLORMAGENTA,DOT;
远期低点
:REF(L,BARSLAST(XX)),COLORYELLOW,DOT;
DRAWNUMBER1(CURRBARSCOUNT=2,高点压力,高点压力,2),COLORGREEN;
DRAWNUMBER1(CURRBARSCOUNT=2,低点支撑,低点支撑,2),COLORMAGENTA;
DRAWNUMBER1(CURRBARSCOUNT=2,中轨,中轨,2),COLORYELLOW;
DRAWNUMBER1(CURRBARSCOUNT=2,压力A,压力A,2),COLORGREEN;
DRAWNUMBER1(CURRBARSCOUNT=2,压力B,压力B,2),COLORGREEN;
DRAWNUMBER1(CURRBARSCOUNT=2,近低A,近低A,2),COLORYELLOW;
DRAWNUMBER1(CURRBARSCOUNT=2,近低B,近低B,2),COLORYELLOW;
