N1:=5;
N2:=8;
N3:=13;
LC:=REF(CLOSE,1);
RSI1:=SMA(MAX(CLOSE-LC,0),N1,1)/SMA(ABS(CLOSE-LC),N1,1)*100;
RSI2:=SMA(MAX(CLOSE-LC,0),N2,1)/SMA(ABS(CLOSE-LC),N2,1)*100;
RSI3:=SMA(MAX(CLOSE-LC,0),N3,1)/SMA(ABS(CLOSE-LC),N3,1)*100;
{DRAWICON(CROSS(RSI1,20),20,10);}
WLT11:=CROSS(RSI1,RSI2);
WLT22:=COUNT(WLT11,20)=2;
{DRAWICON(FILTER(WLT22 AND RSI1<50,5),RSI2,1);
DRAWICON(CROSS(RSI1,RSI2) AND RSI1<50,RSI2,1);}
DRAWICON(CROSS(80,RSI1) AND RSI1<REF(RSI1,1),80,2);
FILLRGN(RSI1,RSI2,RSI1<RSI2,RGB(0,0,250));
FILLRGN(RSI1,RSI2,RSI1>RSI2,RGB(250,0,0)),COLORRED;
STICKLINE(CROSS(RSI1,20) AND (CROSS(RSI1,RSI2) AND RSI1<50),20,0,4,0 ),COLOR000099;
STICKLINE(CROSS(RSI1,20) AND (CROSS(RSI1,RSI2) AND RSI1<50),20,0,3,0 ),COLOR0000BB;
STICKLINE(CROSS(RSI1,20) AND (CROSS(RSI1,RSI2) AND RSI1<50),20,0,1.5,0 ),COLOR0000DD;
STICKLINE(CROSS(RSI1,20) AND (CROSS(RSI1,RSI2) AND RSI1<50),20,0,0.3,0 ),COLOR0000FF;
VAR2:=(CLOSE-LLV(LOW,20))/(HHV(HIGH,20)-LLV(LOW,20))*100;
VAR3:=SMA(SMA(VAR2,3,1),3,1)/28.57;
VAR4:=EMA(VAR3,5);
操盘:=3*VAR3-2*VAR4;
D1:=CROSS(操盘,VAR3) AND VAR3<2.1 AND C>O;
STICKLINE(D1,20,0,4,0),COLOR008888;
STICKLINE(D1,20,0,3,0),COLOR00AAAA;
STICKLINE(D1,20,0,2,0),COLOR00CCCC;
STICKLINE(D1,20,0,1,0),COLOR00EEEE;
STICKLINE(D1,20,0,0.3,0),COLOR00FFFF;
DRAWTEXT(D1,41,'全'),COLORFFFFFF;
DRAWTEXT(D1,35,'仓'),COLORFFFFFF;
N:=14;M:=6;
TR:=EMA(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(REF(CLOSE,1)-LOW)),N);
HD :=HIGH-REF(HIGH,1);
LD :=REF(LOW,1)-LOW;
DMP:=EMA(IF(HD>0 AND HD>LD,HD,0),N);
DMM:=EMA(IF(LD>0 AND LD>HD,LD,0),N);
PDI:=DMP*100/TR;
MDI:=DMM*100/TR;
ADX:EMA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:EMA(ADX,M);
FILLRGN(ADX,ADXR,ADX<ADXR,RGB(0,250,0)),colorBLUE;
FILLRGN(ADX,ADXR,ADX>ADXR,RGB(250,250,0)),Color0098FF;
主升:PDI,COLOR0000FF,LINETHICK1;
主跌:MDI,COLORFFFFFF,LINETHICK1;
天:80,COLOR00FF00,POINTDOT,LINETHICK3;
地:20,COLORFF00FF,POINTDOT,LINETHICK3;
TJJ:=主升>20 AND ADX>ADXR;
TJ11:=主升>20 AND ADX<ADXR;
TJ22:=主升<=20 AND ADX>ADXR;
TJ33:=主升<=20 AND ADX<ADXR;
STICKLINE(TJJ,主升,20,0.1,0),COLORRED;
STICKLINE(TJ11,主升,20,0.1,0),COLORDDDD00;
STICKLINE(TJ22,主升,20,0.1,0),COLORDD00DD;
STICKLINE(TJ33,主升,20,0.1,0),COLOR00DD00;
STICKLINE(CROSS(ADX,主跌) AND 主跌<20 AND ADX>ADXR,20,10,4,0),COLOR990099;
STICKLINE(CROSS(ADX,主跌) AND 主跌<20 AND ADX>ADXR,20,10,2,0),COLORBB00BB;
STICKLINE(CROSS(ADX,主跌) AND 主跌<20 AND ADX>ADXR,20,10,1,0),COLORDD00DD;
STICKLINE(CROSS(ADX,主跌) AND 主跌<20 AND ADX>ADXR,20,10,0.5,0),COLORDD00FF;
{DRAWICON(CROSS(ADX,ADXR) AND 主跌<20,20,23);}
D2:=CROSS(ADX,主跌) AND 主跌<20 AND ADX>ADXR;
D33:=COUNT(D1 OR D2,3)>=2;
D66:=D1 AND D2;{DRAWICON(FILTER(D33,5),0,23);
DRAWICON(FILTER(D66,5),0,23);};
 |
