|
以下是通达信空心好用主图源码（无源码的请下载附件导入）
STICKLINE(O>C,H,O,0,1), COLORGREEN;
STICKLINE(O>C,O,C,2,1),COLORGREEN;
STICKLINE(O>C,L,C,0,1), COLORGREEN;
STICKLINE(O<C,H,C,0,1), COLORRED;
STICKLINE(O<C,O,C,2,1),COLORRED;
STICKLINE(O<C,L,O,0,1), COLORRED;
STICKLINE(CLOSE=O,LOW,H,0,1),COLORRED;
STICKLINE(CLOSE=O,O,C,2,1),COLORRED;
MA2:MA(CLOSE,M2),COLORCYAN;
MA3:=MA(CLOSE,M3),COLORA6A6A6;
MA4:=MA(CLOSE,M4),COLORGREEN;
MA1:MA(CLOSE,M1),COLORYELLOW;
LC:=REF(CLOSE,1);
RSI5:=((SMA(MAX((CLOSE - LC),0),5,1) / SMA(ABS((CLOSE - LC)),5,1)) * 100);
TR1:=SUM(MAX(MAX((HIGH - LOW),ABS((HIGH - REF(CLOSE,1)))),ABS((LOW - REF(CLOSE,1)))),10);
HD:=(HIGH - REF(HIGH,1));
LD:=(REF(LOW,1) - LOW);
DMP:=SUM(IF(((HD > 0) AND (HD > LD)),HD,0),10);
DMM:=SUM(IF(((LD > 0) AND (LD > HD)),LD,0),10);
PDI:=((DMP * 100) / TR1);
MDI:=((DMM * 100) / TR1);
ADX:=MA(((ABS((MDI - PDI)) / (MDI + PDI)) * 100),5);
AV:=(RSI5 + ADX);
DXR:=(((ADX + REF(ADX,5)) / 2) + RSI5);
WR10:=((100 * (HHV(HIGH,10) - CLOSE)) / (HHV(HIGH,10) - LLV(LOW,10)));
NEWVOL:=(RSI5 - WR10);
买:=(AV + NEWVOL);
DRAWTEXT(CROSS(买,0),L*0.965,'买'),COLORFF00FF;
DRAWICON(CROSS(买,0),L*0.98,1);
650188415.jpg
| 
