{ BL1201 }
RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9));
RSV2:=(RSV1-0.5)/5*EMA(C,20);
RSVK:=SMA(RSV2,3,1);
RSVD:=SMA(RSVK,3,1);
RSVJ:=RSVK*3-RSVD*2;
KQ:RSVK+EMA(C,20),COLORWHITE;
DQ:RSVD+EMA(C,20),COLORYELLOW;
JQ:RSVJ+EMA(C,20),COLORRED,LINETHICK2;
压力A:MA(REF(HHV(C,30),1),2),COLOR00FF00,LINETHICK3;
支撑A:MA(REF(LLV(C,30),1),2),COLOR0000FF,LINETHICK3;
VAR1:=BACKSET(REF(HIGH,2)=HHV(HIGH,5),3);
VAR2:=CROSS(VAR1,0.9);
VAR3:=BACKSET(REF(LOW,2)=LLV(LOW,5),3);
VAR4:=CROSS(VAR3,0.9);
VAR5:=IF(VAR2,HIGH,IF(VAR4,LOW,0));
POLYLINE:=(VAR5,VAR5),COLORFF00FF;
VAR6:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VAR7:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VAR8:=BACKSET(REF(HIGH,2)=HHV(HIGH,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
VAR9:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW>REF(LOW,1) AND HIGH>REF(HIGH,1),3);
VARA:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND LOW<REF(LOW,1) AND HIGH<REF(HIGH,1),3);
VARB:=BACKSET(REF(LOW,2)=LLV(LOW,5) AND HIGH<REF(HIGH,1) AND LOW>REF(LOW,1)
AND REF(LOW,1)>REF(LOW,2) AND REF(HIGH,1)<REF(HIGH,2),3);
压力: REF(HIGH,BARSLAST(VAR2)),POINTDOT,COLORFFFFCC;
STICKLINE(CLOSE,REF(HIGH,BARSLAST(VAR2)),REF(HIGH,BARSLAST(VAR2)),5,0),POINTDOT,COLORFFFFCC;
支撑: REF(LOW,BARSLAST(VAR4)),POINTDOT,COLORFFFFCC;
STICKLINE(CLOSE,REF(LOW,BARSLAST(VAR4)),REF(LOW,BARSLAST(VAR4)),5,0),POINTDOT,COLORFFFFCC;
MAXADD1:=PEAKBARS(1,BL,1);
MAXADD2:=PEAKBARS(1,BL,2);
MAXADD3:=PEAKBARS(1,BL,3);
MAXADD4:=PEAKBARS(1,BL,4);
MINADD1:=TROUGHBARS(2,BL,1);
MINADD2:=TROUGHBARS(2,BL,2);
MINADD3:=TROUGHBARS(2,BL,3);
MINADD4:=TROUGHBARS(2,BL,4);
MAX1:=PEAK(1,BL,1);
MIN1:=TROUGH(2,BL,1);
MAX2:=IF(MAXADD2>MINADD1,PEAK(1,BL,2),IF(MAXADD3>MINADD1,PEAK(1,BL,3),PEAK(1,BL,4)));
MIN2:=IF(MINADD2>MAXADD1,TROUGH(2,BL,2),IF(MINADD3>MAXADD1,TROUGH(2,BL,3),TROUGH(2,BL,4)));
MAXADD22:=IF(MAXADD2>MINADD1,MAXADD2,IF(MAXADD3>MINADD1,MAXADD3,MAXADD4));
MINADD22:=IF(MINADD2>MAXADD1,MINADD2,IF(MINADD3>MAXADD1,MINADD3,MINADD4));
HIGHZIG:=ZIG(1,BL);
LOWZIG:=ZIG(2,BL);
DRAWTEXT(MIN1=LOWZIG ,LOW,'▲'),COLORYELLOW;
DRAWTEXT(MAX1=HIGHZIG,HIGH,'▼'),COLORGREEN;
ZZDZ:=IF(MIN1=LOWZIG,LOW,IF(MAX1=HIGHZIG,HIGH,IF(ISLASTBAR,C,0)))COLORBLUE,LINETHICK;
PLOYLINE(MIN1=LOWZIG OR MAX1=HIGHZIG OR ISLASTBAR,ZZDZ)COLORBLUE,LINETHICK2;
LC:=REF(CLOSE,1);
RSI:=((SMA(MAX((CLOSE - LC),0),3,1) / SMA(ABS((CLOSE - LC)),3,1)) * 100);
FF:=EMA(CLOSE,3);
MA15:=EMA(CLOSE,21);
DRAWTEXT(CROSS(FF,MA15),(LOW * 0.99),'底背离'),COLORA6E500;
DRAWTEXT(CROSS(88,RSI),(HIGH * 1.009),'顶背离'),COLOR1880FF;
VAR2Q:=LLV(LOW,27);
VAR3Q:=HHV(HIGH,34);
VAR4Q:=EMA((CLOSE-VAR2Q)/(VAR3Q-VAR2Q)*4,4)*25;
注意买:=IF((VAR4Q<10),80,100);
RSV:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
超跌:=IF(J<0,10,0);
BDDD:=LLV(J,2)=LLV(J,8);
买入:=IF(CROSS(J,REF(J+0.01,1)) AND BDDD AND J<20,30,0);
DRAWTEXT(买入 AND 注意买=100 AND 超跌=0,LOW,'短线'),COLOR8000FF;
MTM:=C-REF(C,1);
DX:=100*EMA(EMA(MTM,6),6)/EMA(EMA(ABS(MTM),6),6);
买:=IF(LLV(DX,2)=LLV(DX,7) AND COUNT(DX<0,2) AND CROSS(DX,MA(DX,2)),1,0);
DRAWTEXT(FILTER(买=1,5),LOW-0.1,'拉升'),COLORFFDE00;
VAR9Q:=C= HHV(C,4)AND (REF(C,1)>=REF(C,2) OR REF(C,1)>=REF(C,3)) OR REF(C,1)=HHV(C,4) AND CLOSE>=REF(C,2) OR REF(C,2)=HHV(C,4) AND REF(C,3)=LLV(C,4) AND C>=REF(C,1) OR REF(C,3)=HHV(C,4) AND C>=REF(C,1) AND C>=REF(C,2);
{时间窗}
A:=BARSCOUNT(C);
AH:=HHV(H,72);
AL:=LLV(L,72);
A0:=(AH-AL)/21;
B1:=L-A0;
STICKLINE((A+0)/13=FLOOR((A+0)/13),B1,B1-3*A0,1,0);
DRAWTEXT((A+0)/13=FLOOR((A+0)/13),B1-5.5*A0,'转向'),COLORWHITE;
DRAWKLINE(HIGH,OPEN,LOW,CLOSE);
向下跳空:=HIGH<REF(LOW,1);
STICKLINE(向下跳空,HIGH,REF(LOW,1),8,0),COLORGREEN;
向上跳空:=LOW>REF(HIGH,1);
STICKLINE(向上跳空,LOW,REF(HIGH,1),8,0),COLORYELLOW;
STICKLINE(CLOSE> REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORRED;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR000033;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR000066;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR000099;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLOR0000CC;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLOR0000FF;
STICKLINE(CLOSE> REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORCC66FF;
STICKLINE(CLOSE< REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORCYAN;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR990000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLORCC0000;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLORFF4400;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORFF8800;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORFFCC00;
STICKLINE(CLOSE< REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORCYAN;
STICKLINE(CLOSE= REF(CLOSE,1) ,HIGH,LOW,0,1 ),COLORWHITE;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,3.1,0 ),COLOR555555;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.7,0 ),COLOR777777;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,2.1,0 ),COLOR999999;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,1.5,0 ),COLORBBBBBB;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.9,0 ),COLORDDDDDD;
STICKLINE(CLOSE= REF(CLOSE,1) ,OPEN,CLOSE,0.3,0 ),COLORFFFFFF;
{MACD}
RC:=DYNAINFO(3)*1.1;
DK:="MACD.MACD"(10,30,10)*2;
控盘:=DK;
STICKLINE(控盘<0 AND 控盘<REF(控盘,1),控盘+RC,RC,1,0),COLORWHITE;
STICKLINE(控盘<0 AND 控盘>REF(控盘,1),控盘+RC,RC,1,0),COLORBROWN;
STICKLINE(控盘>REF(控盘,1) AND 控盘>0,控盘+RC,RC,1,0),COLORRED;
VAR2E:=100*WINNER(CLOSE*0.95);
STICKLINE(VAR2E>50 AND COST(85)<CLOSE AND 控盘>0,控盘+RC,RC,1,0),COLORFF00FF;
STICKLINE(控盘<REF(控盘,1) AND 控盘>0,控盘+RC,RC,1,0),COLOR00FF00;
 |
