通达信万事万物公式

阅读作者：股海网时间 2009-12-22 通达信公式

通达信万事万物公式

{股海网提供：www.guhai.com.cn}

复制内容到剪贴板

A0:=(L+H+C*2)/4;
工作:=EMA(A0,14)COLORYELLOW,LINETHICK1;
度假:=EMA(A0,25)COLORYELLOW,LINETHICK2;
A1X:=(工作-REF(工作,1))/REF(工作,1)*100;
A2X:=(度假-REF(度假,1))/REF(度假,1)*100;
G:=BARSLAST(CROSS(A1X,0));
买入止损:REF(A0,G),COLORBLUE,LINETHICK1;
IF(A1X>=0,买入止损,DRAWNULL),LINETHICK1,COLORYELLOW;
A2:=3*EMA((C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100,5)-2*EMA((C-LLV(L,30))/(HHV(H,30)-LLV(L,30))*100,5);
A4:=(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34))*100;
A5:=EMA(CLOSE,12)-EMA(CLOSE,26);
A6:=EMA(A5,9);
A7:=(A5<-0.1 AND A5>A6);
财神:IF(A7,LLV(L,21),DRAWNULL)COLORRED,CIRCLEDOT;
DRAWICON(CROSS(A2,EMA(A2,5)) AND (A4-EMA(A2,5))>40 AND A7,LLV(L,21)*1.02,1);
STICKLINE(C>REF(C,1)*1.09,C,O,2,0)COLORRED,LINETHICK2;
STICKLINE(C<REF(C,1)*0.901,C,O,2,0)COLORGREEN,LINETHICK1;
减:IF(A2X>=0,度假,DRAWNULL),COLORMAGENTA,LINETHICK1;
少:IF(A1X>=0,工作,DRAWNULL),COLORRED,LINETHICK1;
操:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.05,REF(A0,BARSLAST(CROSS(A1X,0)))*1.05,DRAWNULL),LINETHICK1,COLORWHITE;
作:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.1,REF(A0,BARSLAST(CROSS(A1X,0)))*1.1,DRAWNULL),COLORGREEN,;
顺:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.2,REF(A0,BARSLAST(CROSS(A1X,0)))*1.2,DRAWNULL),,COLORC9BE3F,;
应:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,REF(A0,BARSLAST(CROSS(A1X,0)))*1.3,DRAWNULL),,COLORFFFF00,;
趋:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.4,REF(A0,BARSLAST(CROSS(A1X,0)))*1.4,DRAWNULL),,COLORFFFFB9,;
势:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.5,REF(A0,BARSLAST(CROSS(A1X,0)))*1.5,DRAWNULL),,COLORC4E1F4,;
破:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.6,REF(A0,BARSLAST(CROSS(A1X,0)))*1.6,DRAWNULL),,,COLORC5C9F3,LINETHICK2;
位:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.7,REF(A0,BARSLAST(CROSS(A1X,0)))*1.7,DRAWNULL),,,COLOR00FFFF,LINETHICK2;
出:IF(H>=REF(A0,BARSLAST(CROSS(A1X,0)))*1.8,REF(A0,BARSLAST(CROSS(A1X,0)))*1.8,DRAWNULL),,COLORFF00FF,CROSSDOT,LINETHICK2;
MA20:=MA(C,20);{20均线}
MA30:=MA(C,30);{30均线，不作图}
MA40:=MA(C,40);{40均线}
MA60:=MA(C,60);{60均线}
AA:=CROSS(MA30,MA60);{30线金叉60线，代替20、40金叉60，为了好看}
BB:=BARSLAST(AA);{金叉到现在的天数}
托辐射:REF(MA40,BB)COLORBLUE, CROSSDOT;{画托辐射(小叉叉线)};
LC:=REF(CLOSE,1);
RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;
跑了不悔:IF(CROSS(84,RSI),HIGH*1.02,HIGH+1),POINTDOT,LINETHICK7,COLORYELLOW;
HIGH+1,POINTDOT,LINETHICK7,COLOR000000;