通达信初学缠论判定 主图源码 说明

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);