股市三角洲－精品通达信指标公式源码分享

初始农历日:=3;

朔望月:=29.53058782;

日差:=DATETODAY(DATE)+1;

月余数:=(((日差+初始农历日)/朔望月-INTPART((日差+初始农历日)/朔望月))*朔望月);

农历日:=IF(月余数<1,ROUND(月余数+朔望月),INTPART(月余数));

ISCOLOR:=IF(REF(农历日,1)>=农历日 OR 农历日=1,1,0);  {农历初一，或者农历初一后的第一交易日画彩线}

NUM:=COUNT(ISCOLOR,0);                                       { //当前彩线的个数}; 

IF(ISCOLOR AND MOD(NUM,4)=1,CONST(HHV(H,0)),DRAWNULL),STICK,COLORRED;

IF(ISCOLOR AND MOD(NUM,4)=2,CONST(HHV(H,0)),DRAWNULL),STICK,COLORBLUE;

IF(ISCOLOR AND MOD(NUM,4)=3,CONST(HHV(H,0)),DRAWNULL),STICK,COLORGREEN;

IF(ISCOLOR AND MOD(NUM,4)=0,CONST(HHV(H,0)),DRAWNULL),STICK,COLORWHITE;

DRAWTEXT_FIX(1,0.02,0.05,0,'★股市三角洲理论--隐藏在市场的时间变盘次序★'),COLORYELLOW;

DRAWTEXT_FIX(1,0.02,0.10,0,'★大盘日线-低点提前出为强势，高点提前出为弱势★'),COLORYELLOW;

DRAWTEXT_FIX(1,0.02,0.15,0,'★白0、白6、白10、白15；红0、红3、红9、红15；★'),COLORYELLOW;

DRAWTEXT_FIX(1,0.02,0.20,0,'★蓝4、蓝12、蓝15、蓝18；绿4、绿11、绿16；★'),COLORYELLOW;