 | |  |  |
飞狐原码:
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,COLORRED,LINETHICK2;
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,23);
WLT11:=CROSS(RSI1,RSI2);
WLT22:=COUNT(WLT11,20)=2;
DRAWICON(FILTER(WLT22ANDRSI1<50,5),RSI2,23);
DRAWICON(CROSS(80,RSI1)ANDRSI1<REF(RSI1,1),80,15);
FILLRGN(rsi1>rsi2,rsi1,rsi2),color0000ff;
FILLRGN(rsi2>rsi1,rsi2,rsi1),colorffff00;
STICKLINE(CROSS(RSI1,20)AND(CROSS(RSI1,RSI2)ANDRSI1<50),20,0,8,0),COLOR000099;
STICKLINE(CROSS(RSI1,20)AND(CROSS(RSI1,RSI2)ANDRSI1<50),20,0,6,0),COLOR0000BB;
STICKLINE(CROSS(RSI1,20)AND(CROSS(RSI1,RSI2)ANDRSI1<50),20,0,3,0),COLOR0000DD;
STICKLINE(CROSS(RSI1,20)AND(CROSS(RSI1,RSI2)ANDRSI1<50),20,0,1,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)ANDVAR3<2.1ANDC>O;
STICKLINE(D1,20,0,8,0),COLOR008888;
STICKLINE(D1,20,0,6,0),COLOR00AAAA;
STICKLINE(D1,20,0,3,0),COLOR00CCCC;
STICKLINE(D1,20,0,2,0),COLOR00EEEE;
STICKLINE(D1,20,0,1,0),COLOR00FFFF;
DRAWTEXT(D1,41,'全'),COLORFFFFFF;
DRAWTEXT(D1,35,'仓'),COLORFFFFFF;
n:=14;
TR1:=SUM(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:=SUM(IF(HD>0&&HD>LD,HD,0),N);
DMM:=SUM(IF(LD>0&&LD>HD,LD,0),N);
PDI:DMP*100/TR1;
MDI:DMM*100/TR1;
M:=6;
ADX:MA(ABS(MDI-PDI)/(MDI+PDI)*100,M);
ADXR:MA(ADX,M);
FILLRGN(ADX>ADXr,ADX,ADXr),color00ffff;
FILLRGN(ADXr>ADX,ADXr,ADX),color00ff00;
主升:PDI,COLOR0000FF,LINETHICK2;
主跌:MDI,COLORFFFFFF,LINETHICK2;
天:80,COLOR00FF00,POINTDOT,LINETHICK4;
地:20,COLORFF00FF,POINTDOT,LINETHICK4;
TJJ:=主升>20ANDADX>ADXR;
TJ11:=主升>20ANDADX<ADXR;
TJ22:=主升<=20ANDADX>ADXR;
TJ33:=主升<=20ANDADX<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主跌<20ANDADX>ADXR,20,10,8,0),COLOR990099;
STICKLINE(CROSS(ADX,主跌)AND主跌<20ANDADX>ADXR,20,10,4,0),COLORBB00BB;
STICKLINE(CROSS(ADX,主跌)AND主跌<20ANDADX>ADXR,20,10,2,0),COLORDD00DD;
STICKLINE(CROSS(ADX,主跌)AND主跌<20ANDADX>ADXR,20,10,1,0),COLORDD00FF;
DRAWICON(CROSS(ADX,ADXR)AND主跌<20,20,23);
D2:=CROSS(ADX,主跌)AND主跌<20ANDADX>ADXR;
D33:=COUNT(D1ORD2,3)>=2;
D66:=D1ANDD2;
DRAWICON(FILTER(D33,5),0,23);
DRAWICON(FILTER(D66,5),0,23);
| |  | |  |
|
