MA5:MA(((SLOPE(C,4)*5)+C),5),COLORWHITE,LINETHICK2;
MA18:=MA(((SLOPE(C,10)*5)+C),18);
压力:MA(C,12)*IF(CAPITAL=0,1.035,1.12),LINETHICK1;
支撑:MA(C,10)*IF(CAPITAL=0,0.965,0.92),LINETHICK1;
TJ1:=REF(MA5,1)< MA5 AND REF(MA5,1)< REF(MA5,2) AND REF(MA5,2)< REF(MA18,2) AND RANGE(REF(MA5,2),REF(MA5,1),REF(MA5,3)) AND REF(支撑,1)/REF(MA5,1)>=0.98;
TJ2:=REF(MA5,1)>压力 AND REF(MA5,1)>REF(MA5,2) AND REF(MA5,1)>MA5;
DRAWICON(TJ1,LOW*0.94,1);
DRAWICON(TJ2,1.02*HIGH,2);
VAR1:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR2:=(100 - ((90 * (HHV(HIGH,14) - CLOSE)) / (HHV(HIGH,14) - LLV(LOW,14))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
DIR1:=ABS(CLOSE-REF(CLOSE,5));
VIR1:=SUM(ABS(CLOSE-REF(CLOSE,1)),5);
ER1:=DIR1/VIR1;
CS1:=ER1*(0.8-2/8)+2/8;
CQ1:=CS1*CS1;
DIR2:=ABS(CLOSE-REF(CLOSE,10));
VIR2:=SUM(ABS(CLOSE-REF(CLOSE,1)),10);
ER2:=DIR2/VIR2;
CS2:=ER2*(0.8-2/24)+2/24;
CQ2:=CS2*CS2;
STICKLINE(VAR2 < MA(VAR3,6),LOW,HIGH,0,1),COLORLIBLUE;
STICKLINE(VAR2 > MA(VAR3,6),LOW,HIGH,0,1),COLORRED;
STICKLINE(((OPEN>CLOSE)AND(VAR2< MA(VAR3,6))),(CLOSE-0.03),OPEN,3.05,0),COLORLIBLUE;
STICKLINE(((OPEN< CLOSE)AND(VAR2< MA(VAR3,6))),CLOSE,OPEN,3.05,1),COLORLIBLUE;
STICKLINE(((OPEN>CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,(CLOSE-0.03),3.05,0),COLORRED;
STICKLINE(((OPEN< CLOSE)AND(VAR2>MA(VAR3,6))),OPEN,CLOSE,3.05,1),COLORRED;
PT:=REF(H,1)-REF(L,1);
CDP:=(REF(H,1)+REF(L,1)+REF(C,1)*2)/4;
AH:=CDP+PT;
AL:=CDP-PT;
NH:=CDP*2-REF(L,1);
NL:=CDP*2-REF(H,1);
强:IF(AH>REF(C,1)*1.1,REF(C,1)*1.1,AH)NODRAW;
阻:IF(NH>强,(强-CDP)*0.618+CDP,NH)NODRAW,COLORBLUE;
M:=IF(AL< REF(C,1)/1.1,REF(C,1)/1.1,AL);
撑:IF(NL< M,CDP-(CDP-M)*0.618,NL)NODRAW;
底:IF(AL< REF(C,1)/1.1,REF(C,1)/1.1,AL)NODRAW;
N:=75;
P:=5;
P1:=10;
A1:=REF(H,P)=HHV(H,2*P+1);
B1:=FILTER(A1,P);
C1:=BACKSET(B1,P+1);
D1:=FILTER(C1,P);
E1:=BACKSET(ISLASTBAR,BARSLAST(D1)+1);
F1:=E1>REF(E1,1);
短压:DRAWLINE(D1,H,F1,H,1),COLORCYAN;
A2:=REF(L,P)=LLV(L,2*P+1);
B2:=FILTER(A2,P);
C2:=BACKSET(B2,P+1);
D2:=FILTER(C2,P);
E2:=BACKSET(ISLASTBAR,BARSLAST(D2)+1);
F2:=E2>REF(E2,1);
短支:DRAWLINE(D2,L,F2,L,1),COLORLIRED;
AA1:=REF(H,P1)=HHV(H,2*P1+1);
BB1:=FILTER(AA1,P1);
CC1:=BACKSET(BB1,P1+1);
DD1:=FILTER(CC1,P1);
EE1:=BACKSET(ISLASTBAR,BARSLAST(DD1)+1);
FF1:=EE1>REF(EE1,1);
长压:DRAWLINE(DD1,H,FF1,H,1),COLORGREEN;
AA2:=REF(L,P1)=LLV(L,2*P1+1);
BB2:=FILTER(AA2,P1);
CC2:=BACKSET(BB2,P1+1);
DD2:=FILTER(CC2,P1);
EE2:=BACKSET(ISLASTBAR,BARSLAST(DD2)+1);
FF2:=EE2>REF(EE2,1);
长支:DRAWLINE(DD2,L,FF2,L,1),COLORRED;
高:=REFDATE(HHV(H,N),DATE);
低:=REFDATE(LLV(L,N),DATE);
H1:=高-(高-低)*0.191;
H2:=高-(高-低)*0.382;
H3:=高-(高-低)*0.5;
H4:=高-(高-低)*0.618;
H5:=高-(高-低)*0.809;
DRAWTEXT(CURRBARSCOUNT=1,高,'高'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=1,H1,'809'),COLORCYAN;
DRAWTEXT(CURRBARSCOUNT=1,H2,'618'),COLORGRAY;
DRAWTEXT(CURRBARSCOUNT=1,H3,'中'),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=1,H4,'382'),COLORLIRED;
DRAWTEXT(CURRBARSCOUNT=1,H5,'191'),COLORMAGENTA;
DRAWTEXT(CURRBARSCOUNT=1,低,'低'),COLORRED;
STICKLINE(CURRBARSCOUNT=13,高,高,100,-1),COLORGREEN;
STICKLINE(CURRBARSCOUNT=13,H1,H1,100,-1),COLORCYAN;
STICKLINE(CURRBARSCOUNT=13,H2,H2,100,-1),COLORGRAY;
STICKLINE(CURRBARSCOUNT=13,H3,H3,100,-1),COLORYELLOW;
STICKLINE(CURRBARSCOUNT=13,H4,H4,100,-1),COLORLIRED;
STICKLINE(CURRBARSCOUNT=13,H5,H5,100,-1),COLORMAGENTA;
STICKLINE(CURRBARSCOUNT=13,低,低,100,-1),COLORRED;
ZBGS1:=3;
ZBGS2:=0;
ZBGS3:=REF(HIGH,3)=HHV(HIGH,ZBGS1*3+1);
ZBGS4:=FILTER(ZBGS3,3);
ZBGS5:=BACKSET(ZBGS4,3+1);
ZBGS6:=FILTER(ZBGS5,3);
ZBGS7:=REF(LOW,3)=LLV(LOW,ZBGS1*3+1);
ZBGS8:=FILTER(ZBGS7,3);
ZBGS9:=BACKSET(ZBGS8,3+1);
ZBGS10:=FILTER(ZBGS9,3);
ZBGS11:=(REF(LLV(LOW,2*3),1)+REF(HHV(HIGH,2*3),1))/2;
ZBGS12:=(HIGH+LOW)/2;
ZBGS13:=(ZBGS6 AND NOT(ZBGS10 AND ZBGS11>=ZBGS12)) OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
ZBGS14:=ZBGS6 AND NOT(ZBGS10 AND ZBGS11>=ZBGS12);
ZBGS15:=ZBGS10 AND NOT(ZBGS6 AND ZBGS11=ZBGS12);
ZBGS16:=REF(BARSLAST(ZBGS13),1)+1;
ZBGS17:=BACKSET(ZBGS13 AND COUNT(ZBGS15,ZBGS16)>0,LLVBARS(IF(ZBGS15,LOW,10000),ZBGS16));
ZBGS18:=ZBGS17>REF(ZBGS17,1);
ZBGS19:=BACKSET(ZBGS18,2);
ZBGS20:=ZBGS19>REF(ZBGS19,1);
ZBGS21:=ZBGS20 OR BARSTATUS=2 OR BARSCOUNT(CLOSE)=1;
ZBGS22:=REF(BARSLAST(ZBGS21),1)+1;
ZBGS23:=BACKSET(ZBGS21 AND COUNT(ZBGS14,ZBGS22)>0,HHVBARS(IF(ZBGS14,HIGH,0),ZBGS22));
ZBGS24:=ZBGS23>REF(ZBGS23,1);
ZBGS25:=BACKSET(ZBGS24,2);
ZBGS26:=ZBGS25>REF(ZBGS25,1);
DRAWLINE(ZBGS20,L,ZBGS26,H,0),COLORYELLOW,LINETHICK1;
DRAWLINE(ZBGS26,H,ZBGS20,L,0),COLORYELLOW,LINETHICK1;
ZBGS27:=BACKSET(BARSTATUS=2,MIN(BARSLAST(ZBGS26),BARSLAST(ZBGS20))+1);
ZBGS28:=ZBGS27>REF(ZBGS27,1);
ZBGS29:=H;
ZBGS30:=REF(H,REF(BARSLAST(ZBGS26),1)+1)>REF(H,REF(BARSLAST(ZBGS26),1)+2+REF(BARSLAST(ZBGS26),REF(BARSLAST(ZBGS26),1)+2));
ZBGS31:=ZBGS29 AND ZBGS30 AND ZBGS26;
ZBGS32:=BACKSET(ZBGS31,REF(BARSLAST(ZBGS26),1)+2);
ZBGS33:=ZBGS32>REF(ZBGS32,1);
ZBGS34:=L>REF(L,REF(BARSLAST(ZBGS20),1)+1);
ZBGS35:=REF(L,REF(BARSLAST(ZBGS20),1)+1);
ZBGS36:=ZBGS34 AND ZBGS35 AND ZBGS20;
ZBGS37:=BACKSET(ZBGS36,REF(BARSLAST(ZBGS20),1)+2);
ZBGS38:=ZBGS37>REF(ZBGS37,1);
ZBGS39:=ZBGS33 OR BARSTATUS=2 OR BARSCOUNT(C)=1;
ZBGS40:=REF(BARSLAST(ZBGS39),1)+1;
ZBGS41:=BACKSET(ZBGS39 AND COUNT(ZBGS38,ZBGS40)>0,LLVBARS(IF(ZBGS38,L,POW(10,20)),ZBGS40));
ZBGS42:=ZBGS41>REF(ZBGS41,1);
ZBGS43:=BACKSET(ZBGS42,2);
ZBGS44:=ZBGS43>REF(ZBGS43,1);
ZBGS45:=ZBGS44 OR BARSTATUS=2 OR BARSCOUNT(C)=1;
ZBGS46:=REF(BARSLAST(ZBGS45),1)+1;
ZBGS47:=BACKSET(ZBGS45 AND COUNT(ZBGS33,ZBGS46)>0,HHVBARS(IF(ZBGS33,H,-POW(10,20)),ZBGS46));
ZBGS48:=ZBGS47>REF(ZBGS47,1);
ZBGS49:=BACKSET(ZBGS48,2);
ZBGS50:=ZBGS49>REF(ZBGS49,1);
ZBGS51:=BACKSET(BARSTATUS=2,MIN(BARSLAST(ZBGS50),BARSLAST(ZBGS44))+1);
ZBGS52:=ZBGS51>REF(ZBGS51,1);
ZBGS53:=BACKSET(BARSTATUS=2,BARSLAST(ZBGS20)+1);
ZBGS54:=ZBGS53>REF(ZBGS53,1);
ZBGS55:=BACKSET(ZBGS54,REF(BARSLAST(ZBGS20),1)+2);
ZBGS56:=ZBGS55>REF(ZBGS55,1);
ZBGS57:=BACKSET(ZBGS56,REF(BARSLAST(ZBGS20),1)+2);
ZBGS58:=ZBGS57>REF(ZBGS57,1);
ZBGS59:=DRAWLINE(ZBGS56,L,ZBGS54,L,1),COLORMAGENTA,LINETHICK2;
ZBGS60:=BACKSET(BARSTATUS=2,BARSLAST(ZBGS26)+1);
ZBGS61:=ZBGS60>REF(ZBGS60,1);
ZBGS62:=BACKSET(ZBGS61,REF(BARSLAST(ZBGS26),1)+2);
ZBGS63:=ZBGS62>REF(ZBGS62,1);
ZBGS64:=BACKSET(ZBGS63,REF(BARSLAST(ZBGS26),1)+2);
ZBGS65:=ZBGS64>REF(ZBGS64,1);
ZBGS66:=BACKSET(ZBGS65,REF(BARSLAST(ZBGS26),1)+2);
ZBGS67:=ZBGS66>REF(ZBGS66,1);
ZBGS68:=DRAWLINE(ZBGS63,H,ZBGS61,H,1),COLORMAGENTA,LINETHICK2;
ZBGS69:=DRAWLINE(ZBGS63,H,ZBGS61,H,1);
ZBGS70:=BARSLAST(ZBGS63>0);
ZBGS71:=BARSLAST(ZBGS56>0);
ZBGS72:=BARSLAST(ZBGS62>0);
ZBGS73:=BARSLAST(ZBGS54>0);
ZBGS74:=BARSLAST(ZBGS58>0);
ZBGS75:=BARSLAST(ZBGS65>0);
ZBGS76:=BARSLAST(ZBGS67>0);
ZBGS77:REF(L,BARSLAST(ZBGS54)),DOTLINE,COLOR99FF66;
ZBGS78:REF(H,BARSLAST(ZBGS61)),DOTLINE,COLOR99FF66;
ZBGS79:REF(L,BARSLAST(ZBGS56)),DOTLINE,COLORFF66FF;
ZBGS80:REF(H,BARSLAST(ZBGS63)),DOTLINE,COLORFF66FF;
ZBGS81:=IF(ZBGS75>ZBGS74,REF(L,BARSLAST(ZBGS58)),0),DOTLINE,COLORCYAN;
ZBGS82:=IF(ZBGS75< ZBGS74,REF(H,BARSLAST(ZBGS65)),0),DOTLINE,COLORCYAN;
ZBGS83:DRAWLINE(ZBGS28,IF(ZBGS26,H,L),BARSTATUS=2,IF(BARSLAST(ZBGS26)>BARSLAST(ZBGS20),H,L),0),DOTLINE,COLORYELLOW,LINETHICK1;
DRAWTEXT( ZBGS54=1 AND ZBGS70>ZBGS71,L,'C')COLORMAGENTA;
DRAWTEXT(ZBGS61=1 AND ZBGS70>ZBGS71,H,'B')COLORMAGENTA;
DRAWTEXT( ZBGS56=1 AND ZBGS70>ZBGS71,L,'A')COLORMAGENTA;
DRAWTEXT(ZBGS63=1 AND ZBGS75>ZBGS74 ,H,'◆2')COLORMAGENTA;
DRAWTEXT(ZBGS58=1 AND ZBGS75>ZBGS74 ,L,'◆1')COLORMAGENTA;
DRAWTEXT( ZBGS54=1 AND ZBGS70< ZBGS71,L,'B-')COLORMAGENTA;
DRAWTEXT(ZBGS61=1 AND ZBGS70< ZBGS71,H,'C-')COLORMAGENTA;
DRAWTEXT(ZBGS63=1 AND ZBGS70< ZBGS71,H,'A-')COLORMAGENTA;
DRAWTEXT(ZBGS56=1 AND ZBGS75< ZBGS74,L,'◆2')COLORMAGENTA;
DRAWTEXT(ZBGS65=1 AND ZBGS75< ZBGS74,H,'◆1')COLORMAGENTA;
ZBGS84:=HIGH< REF(HIGH,1) AND LOW< REF(LOW,1);
ZBGS85:=HIGH< REF(HIGH,1) AND LOW>REF(LOW,1);
ZBGS86:=HIGH>REF(HIGH,1) AND LOW< REF(LOW,1);
ZBGS87:=HIGH>REF(HIGH,1) AND LOW>REF(LOW,1);
ZBGS88:=REF(HIGH,2)< HIGH AND REF(LOW,2)< LOW AND REF(HIGH,2)>REF(HIGH,1) AND REF(LOW,2) < REF(LOW,1);
ZBGS89:=COUNT(ZBGS84,3)>=1 AND LLVBARS(LOW,3)=1 AND ZBGS87;
ZBGS90:=COUNT(ZBGS84,4)>=1 AND LLVBARS(LOW,4)=2 AND ZBGS88;
ZBGS91:=COUNT(ZBGS84,4)>=1 AND COUNT(ZBGS85 OR ZBGS86,4)=1 AND LLVBARS(LOW,4)=1 AND ZBGS87;
ZBGS92:=COUNT(ZBGS84,5)>=1 AND COUNT(ZBGS85 OR ZBGS86,5)=2 AND LLVBARS(LOW,5)=2 AND ZBGS88;
ZBGS93:=ZBGS89 OR ZBGS90 OR ZBGS91 OR ZBGS92;
ZBGS94:=C>REF(HIGH,1);
ZBGS95:=ZBGS93 AND ZBGS94;
TUPO:=CROSS(C,ZBGS78) AND C>O;
STICKLINE(TUPO,OPEN,CLOSE,2.8,0),COLORMAGENTA;
ZBGS98:=ZBGS79< ZBGS77 AND ZBGS80< ZBGS78 AND CROSS(C,ZBGS78) AND C>O;
STICKLINE(ZBGS98,OPEN,CLOSE,2.8,0),COLORMAGENTA;
DRAWTEXT(ZBGS98=1,H,'强势突破'),COLORYELLOW;