飞狐版北沙MACD幅图指标公式公式[其他软件公式]

相关标签:

飞狐版北沙MACD幅图公式由于在飞狐里无法使用画直线函数 DRAWLINE 作为变量引用，只能使用飞狐的趋势线数值函数 LINEVALUE 代替，但因为此函数的特殊性质『估计此函数设计出来就是为了预警使用的』，相同的画线条件在个股图形中只能显示最新成立的一段画线，无法在历史图形中显示，这个也是无奈之举，如果哪位老师有更好的方法解决 通达信 画直线函数 DRAWLINE 在飞狐中的变量引用问题，请一定指教，我这里先万分感谢了源码

原理解析：
输出平滑异同平均:"MACD.MACD",线宽为0 输出W1:当满足条件MACD>0时,在MACD和0位置之间画柱状线,宽度为8,1不为0则画空心柱.,画红色 输出W2:当满足条件MACD<0时,在MACD和0位置之间画柱状线,宽度为8,1不为0则画空心柱.,画青色 VA1赋值:上次MACD<0距今天数+1日内MACD距今天数 VA2赋值:若0上穿MACD则将最近1日前的VA1+2周期置为1上穿0.5 QG赋值:若0上穿MACDOR(ISLASTBARANDMACD>0)则将最近1日前的VA1+2周期置为1上穿0.5 输出前高:LINEVALUE(VA2,MACD,1日前的VA2,1日前的MACD,0,0),画洋红色 VA3赋值:上次MACD>0距今天数+1日内MACD距今天数 VA4赋值:若MACD上穿0则将最近1日前的VA3+2周期置为1上穿0.5 BD赋值:上次0上穿MACD的收盘价的有效数据周期数日反向过滤距今天数 输出前低:LINEVALUE(VA4,MACD,1日前的VA4,1日前的MACD,0,0) BDTJ赋值:如果MACD<0,返回MACD=上次MACD>0距今天数日内MACD的最低值的收盘价的有效数据周期数日反向过滤,否则返回0 TSBDTJ赋值:上次BDTJ距今天数 ZQ赋值:DATACOUNT-BARPOS BDZH赋值:MACD<ZQ日后的BD+1日内MACD的最低值的收盘价的有效数据周期数日反向过滤 BDTS赋值:上次BDZH距今天数 输出本低:如果BD+1>=1,返回ZQ日后的BD+1日内MACD的最低值,否则返回0,线宽为0 PARTLINE(BD+1>=1,ZQ日后的BD+1日内MACD的最低值) BDCL赋值:统计TSBDTJ日中满足MACD>本低/2ANDMACD<0上穿0.5的天数=1上穿0.5 AND TSBDTJ>=0 终点赋值:如果ISLASTBARANDMACD>0ANDMACD=上次MACD<0距今天数日内MACD的最高值,返回1,否则返回如果QG的收盘价的有效数据周期数日反向过滤,返回2,否则返回0 UU赋值:(终点=1 OR 终点=2) AND MACD>0 ZZ赋值:UU的收盘价的有效数据周期数日反向过滤 输出本高:LINEVALUE(ZZ,MACD,1日前的ZZ,1日前的MACD,0,0),画白色 横线赋值:ZQ日后的上次ZZ距今天数日前的MACD WW赋值:MACD>横线 起始点赋值:1日后的上次WW距今天数=1的收盘价的有效数据周期数日反向过滤 输出天数┃:上次起始点距今天数,画黄色,线宽为0 输出上横线:LINEVALUE(起始点,横线,ZZ,横线,0,0),画绿色,LINEDOT 输出下横线:当满足条件BDZH时,在ZQ日后的BD+1日内MACD的最低值位置画直线起点，当满足条件BDTJ=1时,在MACD位置画直线终点,0表示是否延长.,COLOR8080FF,LINEDOT 当满足条件BDTJ时,在ZQ日后的BD+1日内MACD的最低值*0.9位置书写数字 当满足条件ZZ时,在上横线*1.1位置书写数字 AQ赋值:SETVAL(起始点,上次ZZ距今天数,0-上次ZZ距今天数,上次ZZ距今天数) TJ赋值:如果起始点,返回AQ,否则返回0 输出红柱数量:如果天数┃>0AND天数┃<=天数┃日前的TJ,返回MACD>0的天数┃日累和,否则返回0,画白色,线宽为0 输出横线起始价:天数日前的收盘价,线宽为0 输出空间评估:(横线起始价-收盘价)/收盘价*100,线宽为0 TT赋值:上次ZZ距今天数 WQG赋值:统计ZZ日中满足MACD<本高/2ANDMACD>0上穿0.5的天数=1上穿0.5 AND ZZ>=0 当满足条件MACD>前高AND本高>前高ANDBARSLAST(MACD<本高/2上穿0.5)>0ANDMACD>(前高+本高)/2时,在MACD和前高位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画黄色 输出前高本高二分位:如果MACD>0AND本高不等于前高,返回LINEVALUE(WQG,(前高+本高)/2,1日前的WQG,1日前的(前高+本高)/2,0,0),否则返回0,COLORC0C000,LINEDOT,线宽为0 PARTLINE(MACD>0 AND 本高不等于前高,LINEVALUE(WQG,(前高+本高)/2,1日前的WQG,1日前的(前高+本高)/2,0,0)),COLORC0C000,LINEDOT AA赋值:'〖'+'上升空间'+'〗'+NUMTOSTR(如果空间评估,返回空间评估,否则返回0,2) DRAWTEXTEX(收盘价>0,1,0,1000,AA + '﹪'),画白色 当满足条件WQG时,在MACD*1.1位置书写文字,画白色 当满足条件BDCL时,在MACD*1.1位置书写文字,画白色 当满足条件MACD>前高时,在MACD和前高位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色 当满足条件WQG时,在MACD和0位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画绿色 当满足条件MACD<0ANDMACD<前低AND前低<0时,在MACD和前低位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画蓝色 AQ1赋值:SETVAL(MACD<0上穿0.5,上次BDTJ距今天数,0-上次BDTJ距今天数,上次BDTJ距今天数) B1赋值:如果MACD<0上穿0.5,返回AQ1,否则返回0 TSB1赋值:上次MACD>0距今天数-1 当满足条件上次BDCL距今天数>=0ANDMACD<前低ANDMACD<0时,在MACD和前低位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画绿色 当满足条件BDCL时,在MACD和0位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画白色 当满足条件MACD>前高AND本高>前高ANDBARSLAST(WQG)>0时,在MACD和前高位置之间画柱状线,宽度为2.6666666666666666666666666666667,0不为0则画空心柱.,画红色 当满足条件VA2ANDVA2不等于UU时,在(MACD/10)*9位置书写文字 当满足条件VA2ANDVA2不等于UU时,在MACD/10位置书写文字 当满足条件ZZ时,在(MACD/10)*9位置书写文字,画白色 当满足条件ZZ时,在MACD/10位置书写文字,画白色 当满足条件BDTJ时,在(MACD/10)*9位置书写文字,画红色 当满足条件BDTJ时,在MACD/10位置书写文字,画红色

 来源:程序化99（ WWW.CXH99.COM ）

源码：

MACD:"MACD.MACD",LINETHICK;
W1:STICKLINE(MACD>0,MACD,0,8,1),COLORRED;
W2:STICKLINE(MACD<0,MACD,0,8,1),COLORCYAN;
VA1:=HHVBARS(MACD,BARSLAST(MACD<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,MACD),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,MACD) OR (ISLASTBAR AND MACD>0),REF(VA1,1)+2),0.5);
前高:LINEVALUE(VA2,MACD,REF(VA2,1),REF(MACD,1),0,0),COLORMAGENTA;
VA3:=LLVBARS(MACD,BARSLAST(MACD>0)+1);
VA4:=CROSS(BACKSET(CROSS(MACD,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,MACD),BARSCOUNT(C)));
前低:LINEVALUE(VA4,MACD,REF(VA4,1),REF(MACD,1),0,0);
BDTJ:=IF(MACD<0,FILTERX(MACD=LLV(MACD,BARSLAST(MACD>0)),
BARSCOUNT(C)),0);
TSBDTJ:=BARSLAST(BDTJ);
ZQ:=DATACOUNT-BARPOS;
BDZH:=FILTERX(MACD<REFX(LLV(MACD,BD+1),ZQ),BARSCOUNT(C));
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,REFX(LLV(MACD,BD+1),ZQ),0),LINETHICK;
PARTLINE(BD+1>=1,REFX(LLV(MACD,BD+1),ZQ));
BDCL:=CROSS(COUNT(CROSS(MACD>本低/2 AND MACD<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
终点:=IF(ISLASTBAR AND MACD>0 AND MACD=HHV(MACD,BARSLAST(MACD<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,0));
UU:=(终点=1 OR 终点=2) AND MACD>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:LINEVALUE(ZZ,MACD,REF(ZZ,1),REF(MACD,1),0,0),COLORWHITE;
横线:=REFX(REF(MACD,BARSLAST(ZZ)),ZQ);
WW:=MACD>横线;
起始点:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天数┃:BARSLAST(起始点),COLORYELLOW,LINETHICK;
上横线:LINEVALUE(起始点,横线,ZZ,横线,0,0),COLORGREEN,LINEDOT;
下横线:DRAWLINE(BDZH,REFX(LLV(MACD,BD+1),ZQ),BDTJ=1,MACD,0),COLOR8080FF,LINEDOT;
DRAWNUMBER(BDTJ,REFX(LLV(MACD,BD+1),ZQ)*0.9,BDTS,2);
DRAWNUMBER(ZZ,上横线*1.1,天数┃,2);
AQ:=SETVAL(起始点,BARSLAST(ZZ),0-BARSLAST(ZZ),BARSLAST(ZZ));
TJ:=IF(起始点,AQ,0);
红柱数量:IF(天数┃>0 AND 天数┃<=REF(TJ,天数┃),SUM(MACD>0,天数┃),0),COLORWHITE,LINETHICK;
横线起始价:REF(C,天数),LINETHICK;
空间评估:(横线起始价-C)/C*100,LINETHICK;
TT:=BARSLAST(ZZ);
WQG:=CROSS(COUNT(CROSS(MACD<本高/2 AND MACD>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(CROSS(MACD<本高/2,0.5))>0 AND
MACD>(前高+本高)/2,MACD,前高,2.6666666666666666666666666666667,0),COLORYELLOW;
前高本高二分位:IF(MACD>0 AND 本高<>前高,LINEVALUE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),0,0)
,0),COLORC0C000,LINEDOT,LINETHICK;
PARTLINE(MACD>0 AND 本高<>前高,LINEVALUE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),0,0)),COLORC0C000,LINEDOT;
AA:='〖'+'上升空间'+'〗'+NUMTOSTR(IF(空间评估,空间评估,0),2);
DRAWTEXTEX(C>0,1,0,1000,AA + '﹪'),COLORWHITE;
DRAWTEXT(WQG,MACD*1.1,'本高成立'),COLORWHITE;
DRAWTEXT(BDCL,MACD*1.1,'本低成立'),COLORWHITE;
STICKLINE(MACD>前高,MACD,前高,1,0),COLORYELLOW;
STICKLINE(WQG,MACD,0,2.6666666666666666666666666666667,0),COLORGREEN;
STICKLINE(MACD<0 AND MACD<前低 AND 前低<0,MACD,前低,2.6666666666666666666666666666667,0),COLORBLUE;
AQ1:=SETVAL(CROSS(MACD<0,0.5),BARSLAST(BDTJ),0-BARSLAST(BDTJ),BARSLAST(BDTJ));
B1:=IF(CROSS(MACD<0,0.5),AQ1,0);
TSB1:=BARSLAST(MACD>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND MACD<前低 AND MACD<0,MACD,前低,2.6666666666666666666666666666667,0),COLORGREEN;
STICKLINE(BDCL,MACD,0,2.6666666666666666666666666666667,0),COLORWHITE;
STICKLINE(MACD>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
MACD,前高,2.6666666666666666666666666666667,0),COLORRED;
DRAWTEXT(VA2 AND VA2<>UU,(MACD/10)*9,'前');
DRAWTEXT(VA2 AND VA2<>UU,MACD/10,'高');
DRAWTEXT(ZZ,(MACD/10)*9,'本'),COLORWHITE;
DRAWTEXT(ZZ,MACD/10,'高'),COLORWHITE;
DRAWTEXT(BDTJ,(MACD/10)*9,'低'),COLORRED;
DRAWTEXT(BDTJ,MACD/10,'本'),COLORRED;
PARTLINE(BARSLAST(BDCL)>=0,本低/2),COLORRED,LINEDOT;{程序化交易 www.cxh99.com }

公式导入教程: 【通达信公式源码导入方法教程】 【同花顺公式源码导入方法教程】 【大智慧新一代公式源码导入方法教程】