|
以下是通达信初学缠论判定 主图源码 说明（无源码的请下载附件导入）
MACD面积公式
DIF:EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:EMA(DIF,9);
MACD:(DIF-DEA)*2,COLORSTICK;
红面积:SUM(MACD,BARSLAST(MACD<0))*(MACD>0),COLOR0000FF,NODRAW;
绿面积:SUM(MACD,BARSLAST(MACD>0))*(MACD<0),COLORFFFF00,NODRAW;
AA:=ROUND(REF(绿面积,1)*100);
BB:=ROUND(REF(红面积,1)*100);
DRAWNUMBER(CROSS(0,MACD),HHV(REF(MACD,1),5)+0.03,ABS(BB)),COLORMAGENTA;
DRAWNUMBER(CROSS(MACD,0),LLV(REF(MACD,1),5)-0.03,ABS(AA)),COLORGREEN;
初学缠论判定
DRAWGBK(C>0, RGB(80,100,120),RGB(00,00,00),0,'0',1);
DRAWKLINE(HIGH,IF(C>O,L,H),L,IF(C>O,H,L));
MA5:=MA(C,5);
MA13:=MA(C,13);
MA21:=MA(C,21);
MA34:=MA(C,34);
MA55:=MA(C,55);
MA89:=MA(C,89);
MA144:=MA(C,144);
MA233:=MA(C,233);
TMP1:=IF(C>MA5,1,0);
TMP2:=IF(C>MA13,1,0);
TMP3:=IF(C>MA21,1,0);
TMP4:=IF(C>MA34,1,0);
TMP5:=IF(C>MA55,1,0);
TMP6:=IF(C>MA89,1,0);
TMP7:=IF(C>MA144,1,0);
TMP8:=IF(C>MA233,1,0);
缠论强度:TMP1+TMP2+TMP3+TMP4+TMP5+TMP6+TMP7+TMP8+1,NODRAW;
F:=100*(C-REF(C,1))/REF(C,1);
VAR2:=(100 - ((90 * (HHV(HIGH,21) - CLOSE)) / (HHV(HIGH,21) - LLV(LOW,21))));
VAR3:=(100 - MA(((100 * (HHV(HIGH,6) - CLOSE)) / (HHV(HIGH,6) - LLV(LOW,6))),34));
西点:=CROSS(VAR2,MA(VAR3,6));
西电:=CROSS(MA(VAR3,6),VAR2);
STICKLINE(西点,OPEN,CLOSE,3,0),COLOR22FFFF;
STICKLINE(西电,OPEN,CLOSE,3,0),COLORGREEN;
DRAWTEXT(西点,O,'▲-买入-----下破止损---'),COLOR22FFFF;
STICKLINE((C-REF(C,1))*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLORFF00FF;
STICKLINE((REF(C,1)-C)*100/REF(C,1)>=(10-0.01*100/REF(C,1)),OPEN,CLOSE,3,0),COLORBLUE;
DRAWICON(CROSS(C,MA(C,5)),MA(C,5),1);
DRAWICON(CROSS(MA(C,5),C),MA(C,5),2);
717288293.jpg
|
