生命线:MA(CLOSE,21),COLORRED,LINETHICK1; IF(C>=生命线,生命线,DRAWNULL),COLORRED,LINETHICK2; IF(C<生命线,生命线,DRAWNULL),COLORBLUE,LINETHICK2; MA80:MA(CLOSE,80)COLORLIGREEN,LINETHICK2; MA160:MA(CLOSE,160)COLORMAGENTA,LINETHICK2; 选股1:=CROSS(C,MA80) AND CROSS(C,MA160) AND CROSS(C,生命线)COLORBLUE; DRAWICON(选股1,L*0.997,1)COLORBLUE; A1:=C>REF(C,4); NT:=BARSLASTCOUNT(A1); TJ11:=NT=9; TJ13:=ISLASTBAR AND BETWEEN(NT,5,8); AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT; DRAWTEXT(AY>0,H*1.002,VAR2STR(AY,0)),COLORRED; DRAWTEXT(NT=9,H*1.002,'9'),COLORBLUE; B1:=C<REF(C,4); NT0:=BARSLASTCOUNT(B1); TJ21:=NT0=9 ; TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8); AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0; DRAWTEXT(AY1>0,L*0.99,VAR2STR(AY1,0)),COLORBLACK; DRAWTEXT(NT0=9,L*0.99,'9'),COLORLIMAGENTA; {======行业概念======} Z11:=STRCAT(DYBLOCK,' '); Z22:=STRCAT(Z11,HYBLOCK); Z33:=STRCAT(Z22,' '); Z44:=STRCAT(Z33,GNBLOCK); Z55:=STRCAT(Z44,' '); Z66:=STRCAT(Z55,FGBLOCK); DRAWTEXT_FIX(ISLASTBAR,0.10,0.99,0,STRCAT(Z66,ZHBLOCK)),COLORYELLOW; {顶底指标} RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1)COLORRED,LINETHICK1; D:=SMA(K,3,1)COLORBLUE,LINETHICK1; J:=3*K-2*D,COLORLICYAN,LINETHICK2; 顶背离:=IF(H>REF(HHV(H,10),1) AND J<HHV(J,15) AND (CROSS(100,J)),1,0),COLORBLUE,NODRAW; 顶背离1:=IF(H>REF(HHV(H,10),1) AND J<HHV(J,15) AND J<REF(J,1),1,0)AND J<100,COLORBLUE,NODRAW; DRAWTEXT(顶背离,H,'顶'),COLORLIMAGENTA; DRAWTEXT(顶背离1,H,'顶'),COLORLIMAGENTA; DRAWICON(J<100 AND REF(J,1)>100,H,2); 底背离:=IF(L<REF(L,1) AND J>REF(LLV(J,15),1) AND J>REF(J,1) AND J<=25 AND J>0,1,0),COLORMAGENTA,NODRAW; 底背离1:=IF(L<REF(L,1) AND J>LLV(J,15) AND CROSS(J,0),1,0),COLORLIGREEN,NODRAW; J值上拐:=IF(CROSS(J,0),1,0),COLORBLACK,NODRAW; DRAWTEXT(底背离,L*0.99,'底'),COLORRED; DRAWTEXT(J值上拐,L*0.99,'底'),COLORRED; DRAWTEXT(底背离1,L*0.99,'底'),COLORRED; TC1:=IF(H=HHV(H,48),H,DRAWNULL); TC2:=CONST(BARSLAST(TC1=H))+1; UPPER:=CONST(IF(TC2=1,H,REF(H,TC2-1))); BC1:=IF(L=LLV(L,48),L,DRAWNULL); BC2:=CONST(BARSLAST(BC1=L))+1; LOWER:=CONST(IF(BC2=1,L,REF(L,BC2-1))); LP:=CURRBARSCOUNT<=BC2 AND L=LOWER;{低点定位} HP:=CURRBARSCOUNT<=TC2 AND H=UPPER;{高点定位} DRAWTEXT(LP,L*0.99,'↖波段底'),COLORLIGREEN;{波段底文字提示} DRAWTEXT(HP,H*1.0051,'←波段顶'),COLORMAGENTA;{波段顶文字提示}; STICKLINE(HP,OPEN,CLOSE,0.5,0),COLORGREEN; STICKLINE(LP,OPEN,CLOSE,0.5,0),COLORYELLOW; |