编程思路破译
填充背景
DIF赋值:收盘价的12日指数移动平均-收盘价的26日指数移动平均,COLORFF80FF,线宽为1
输出DEA:DIF的9日指数移动平均,画红色,线宽为2
输出平滑异同平均线:(DIF-DEA)*2,COLORSTICK
0,画白色
输出DIF2:收盘价的8日指数移动平均-收盘价的20日指数移动平均,画绿色,线宽为2
A1赋值:上次1日前的DIF2上穿DIF距今天数
A2赋值:上次1日前的DIF2上穿DEA距今天数
DB赋值:A1+1日前的收盘价>收盘价 AND A1+1日前的DIF2<DIF2 AND 1日前的DIF2<DIF2 AND DIF2<0
DB2赋值:A1+1日前的收盘价>收盘价 AND A1+1日前的DIF<DIF AND DIF<0
DB3赋值:A2+1日前的收盘价>收盘价 AND A2+1日前的DIF<DIF AND DIF<0
当满足条件DB时,在DIF2和0位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLOR00FFFF
程序源码
DRAWGBK(1,COLORRGB(0,0,30),COLORRGB(0,0,100),1);
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26),COLORFF80FF,LINETHICK1;
DEA:EMA(DIF,9),COLORRED,LINETHICK2;
MACD:(DIF-DEA)*2,COLORSTICK;
0,COLORWHITE;
DIF2:EMA(CLOSE,8)-EMA(CLOSE,20),COLORGREEN,LINETHICK2;
A1:=BARSLAST(REF(CROSS(DIF2,DIF),1));
A2:=BARSLAST(REF(CROSS(DIF2,DEA),1));
DB:=REF(C,A1+1)>C AND REF(DIF2,A1+1)<DIF2 AND REF(DIF2,1)<DIF2 AND DIF2<0;
DB2:=REF(C,A1+1)>C AND REF(DIF,A1+1)<DIF AND DIF<0 ;
DB3:=REF(C,A2+1)>C AND REF(DIF,A2+1)<DIF AND DIF<0 ;
STICKLINE(DB,DIF2,0,2,0),COLOR00FFFF;
注:
馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。
发文不易,如获益,欢迎赞赏,赞赏必复!
联系客服