编程思路破译 填充背景 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; 注: 馆内各种公式为学习编程而保存,实战使用前一定要看其中是否有未来函数并自己亲自测试成功率,决不能依据公式名称的描述和形容去投资,据此入市造成投资损失由投资者自己承担。 发文不易,如获益,欢迎赞赏,赞赏必复! |
|