|
以下是通达信支撑线源码附图（无源码的请下载附件导入）
{支撑线}
GUOQI:=DATE>=1110101;
BAOLIU:=DAY>=24 AND DAY<=30 AND FRACPART(MONTH/2)=0.5;
WUXIAO:=GUOQI=1 AND BAOLIU=1;
五分:=5;
十五分:=五分*3;
三十分:=十五分*2;
六十分:=三十分*2;
日:=六十分*4;
周:=日*5;
月:=周*4;
季:=月*3;
半年:=季*2;
年:=半年*2;
A:=(OPEN+HIGH+LOW+CLOSE+CLOSE)/5;
日线1:=IF(PERIOD=1,EMA(EMA(A,日/五分),SQRT(日/五分*5)),IF(PERIOD=2,EMA(EMA(A,日/十五分),SQRT(日/十五分*5)),IF(PERIOD=3,EMA(EMA(A,日/三十分),SQRT(日/三十分*5)),IF(PERIOD=4,EMA(EMA(A,日/六十分),SQRT(日/六十分*5)),DRAWNULL)))),COLORFFFFFF;
周线1:=IF(PERIOD=1,EMA(EMA(A,周/五分),SQRT(周/五分*5)),IF(PERIOD=2,EMA(EMA(A,周/十五分),SQRT(周/十五分*5)),IF(PERIOD=3,EMA(EMA(A,周/三十分),SQRT(周/三十分*5)),IF(PERIOD=4,EMA(EMA(A,周/六十分),SQRT(周/六十分*5)),IF(PERIOD=5,EMA(EMA(A,周/日),SQRT(周/日*5)),DRAWNULL))))),COLOR00FFFF;
月线1:=IF(PERIOD=1,EMA(EMA(A,月/五分),SQRT(月/五分*5)),IF(PERIOD=2,EMA(EMA(A,月/十五分),SQRT(月/十五分*5)),IF(PERIOD=3,EMA(EMA(A,月/三十分),SQRT(月/三十分*5)),IF(PERIOD=4,EMA(EMA(A,月/六十分),SQRT(月/六十分*5)),IF(PERIOD=5,EMA(EMA(A,月/日),SQRT(月/日*5)),IF(PERIOD=6,EMA(EMA(A,月/周),SQRT(月/周*5)),DRAWNULL)))))),COLOR00FF00;
季线1:=IF(PERIOD=1,EMA(EMA(A,季/五分),SQRT(季/五分*5)),IF(PERIOD=2,EMA(EMA(A,季/十五分),SQRT(季/十五分*5)),IF(PERIOD=3,EMA(EMA(A,季/三十分),SQRT(季/三十分*5)),IF(PERIOD=4,EMA(EMA(A,季/六十分),SQRT(季/六十分*5)),IF(PERIOD=5,EMA(EMA(A,季/日),SQRT(季/日*5)),IF(PERIOD=6,EMA(EMA(A,季/周),SQRT(季/周*5)),IF(PERIOD=7,EMA(EMA(A,季/月),SQRT(季/月*5)),DRAWNULL))))))),COLORFFFF00;
半年线1:=IF(PERIOD=1,EMA(EMA(A,半年/五分),SQRT(半年/五分*5)),IF(PERIOD=2,EMA(EMA(A,半年/十五分),SQRT(半年/十五分*5)),IF(PERIOD=3,EMA(EMA(A,半年/三十分),SQRT(半年/三十分*5)),IF(PERIOD=4,EMA(EMA(A,半年/六十分),SQRT(半年/六十分*5)),IF(PERIOD=5,EMA(EMA(A,半年/日),SQRT(半年/日*5)),IF(PERIOD=6,EMA(EMA(A,半年/周),SQRT(半年/周*5)),IF(PERIOD=7,EMA(EMA(A,半年/月),SQRT(半年/月*5)),DRAWNULL))))))),COLORFF4040;
年线1:=IF(PERIOD=1,EMA(EMA(A,年/五分),SQRT(年/五分*5)),IF(PERIOD=2,EMA(EMA(A,年/十五分),SQRT(年/十五分*5)),IF(PERIOD=3,EMA(EMA(A,年/三十分),SQRT(年/三十分*5)),IF(PERIOD=4,EMA(EMA(A,年/六十分),SQRT(年/六十分*5)),IF(PERIOD=5,EMA(EMA(A,年/日),SQRT(年/日*5)),IF(PERIOD=6,EMA(EMA(A,年/周),SQRT(年/周*5)),IF(PERIOD=7,EMA(EMA(A,年/月),SQRT(年/月*5)),DRAWNULL))))))),COLORFF00FF;
日线:IF(NOT(WUXIAO),日线1,DRAWNULL),COLORFFFFFF;
周线:IF(NOT(WUXIAO),周线1,DRAWNULL),COLOR00FFFF;
月线:IF(NOT(WUXIAO),月线1,DRAWNULL),COLOR00FF00;
季线:IF(NOT(WUXIAO),季线1,DRAWNULL),COLORFFFF00;
半年线:IF(NOT(WUXIAO),半年线1,DRAWNULL),COLORFF4040;
年线:IF(NOT(WUXIAO),年线1,DRAWNULL),COLORFF00FF;
月线上拐:=月线>REF(月线,1) AND REF(月线,1)<=REF(月线,2);
月线下拐:=月线<REF(月线,1) AND REF(月线,1)>=REF(月线,2);
DRAWICON(月线上拐=1,月线*0.98,1);
DRAWICON(月线下拐=1,月线*1.02,2);
季线上拐:=季线>REF(季线,1) AND REF(季线,1)<=REF(季线,2);
季线下拐:=季线<REF(季线,1) AND REF(季线,1)>=REF(季线,2);
DRAWICON(季线上拐=1,季线*0.98,9);
DRAWICON(季线下拐=1,季线*1.02,15);
GUOQIRI:=COUNT(GUOQI=1,-1);
WUXIAORI:=COUNT(WUXIAO=1,-1);
71000719.jpg
|
