通达信三角洲预测（指标主图贴图和谐源码分享）

 {公式名称: 三角洲预测

公式描述:
无参数
公式类型: 技术指标公式-其他类型
画线方法: 主图叠加
公式版本: 0
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无
 
参数精灵:无
用法注释:无
公式源码:}
X_1:=1;
X_2:=28.530588;
X_3:=DATETODAY(DATE)+1;
X_4:=((X_3+X_1)/X_2-INTPART((X_3+X_1)/X_2))*X_2;
X_5:=IF(X_4<1,ROUND(X_4+X_2),INTPART(X_4));
X_6:=IF(REF(X_5,1)>=X_5 OR X_5=1,1,0);
X_7:=COUNT(X_6,0);
IF(X_6 AND MOD(X_7,4)=0,CONST(HHV(HIGH,0)),DRAWNULL),STICK,COLORGREEN;
IF(X_6 AND MOD(X_7,4)=1,CONST(HHV(HIGH,0)),DRAWNULL),STICK,COLORRED;
IF(X_6 AND MOD(X_7,4)=2,CONST(HHV(HIGH,0)),DRAWNULL),STICK,COLORYELLOW;
IF(X_6 AND MOD(X_7,4)=3,CONST(HHV(HIGH,0)),DRAWNULL),STICK,COLORBLUE;
IF(X_6 AND MOD(X_7,4)=0,CONST(HHV(LOW,0)),DRAWNULL),STICK,COLORGREEN;
IF(X_6 AND MOD(X_7,4)=1,CONST(HHV(LOW,0)),DRAWNULL),STICK,COLORRED;
IF(X_6 AND MOD(X_7,4)=2,CONST(HHV(LOW,0)),DRAWNULL),STICK,COLORYELLOW;
IF(X_6 AND MOD(X_7,4)=3,CONST(HHV(LOW,0)),DRAWNULL),STICK,COLORBLUE;