通达信博尔洞察先机指标源码[通达信公式]

相关标签:

通达信博尔洞察先机指标源码

原理解析：
DIF赋值:收盘价的12日指数移动平均 - 收盘价的26日指数移动平均 DEA赋值:DIF的9日指数移动平均 输出平滑异同平均:2*(DIF-DEA),COLORSTICK A4赋值:上次1日前的DIF上穿DEA距今天数 B1赋值:A4+1日前的收盘价>收盘价 AND A4+1日前的DIF<DIF AND DIF上穿DEA 当满足条件B1>0的5日过滤时,在DIF+0.2位置书写文字,画黄色 输出操盘:当满足条件MACD>=0ANDMACD>=1日前的MACD时,在0和MACD位置之间画柱状线,宽度为2,0不为0则画空心柱.,画红色 输出减仓:当满足条件MACD>=0ANDMACD<1日前的MACD时,在0和MACD位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFF9900 输出反弹:当满足条件MACD<0ANDMACD>=1日前的MACD时,在0和MACD位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色 输出寻底:当满足条件MACD<0ANDMACD<1日前的MACD时,在0和MACD位置之间画柱状线,宽度为2,0不为0则画空心柱.,COLORFFFF00 RSV赋值:(收盘价-9日内最低价的最低值)/(9日内最高价的最高值-9日内最低价的最低值)*100 K赋值:RSV的3日[1日权重]移动平均 D赋值:K的3日[1日权重]移动平均 J赋值:3*K-2*D 周Ｋ赋值:"KDJ的K[取周线数据]"(9,3,3)的5日简单移动平均 周Ｄ赋值:"KDJ的D[取周线数据]"(9,3,3)的5日简单移动平均 周Ｊ赋值:"KDJ的J[取周线数据]"(9,3,3)的5日简单移动平均 当满足条件K<20ANDCROSS(K,D)时,在MACD位置画1号图标 输出周金:当满足条件"KDJ的K[取周线数据]"(9,3,3)上穿"KDJ的D[取周线数据]"(9,3,3)时,在MACD位置书写文字,画红色 输出周死:当满足条件"KDJ的D[取周线数据]"(9,3,3)上穿"KDJ的K[取周线数据]"(9,3,3)时,在MACD*1.5位置书写文字,画绿色 输出月金:当满足条件"KDJ的K[取月线数据]"(9,3,3)上穿"KDJ的D[取月线数据]"(9,3,3)时,在MACD位置书写文字,画洋红色 输出月死:当满足条件"KDJ的D[取月线数据]"(9,3,3)上穿"KDJ的K[取月线数据]"(9,3,3)时,在MACD*1.5位置书写文字,画黄色 VAR1C赋值:(最高价 - 开盘价和收盘价的较小值) VAR2C赋值:(收盘价 - 开盘价) VAR3C赋值:(开盘价和收盘价的较小值 - 最低价) VAR4C赋值:(最高价 - 最低价) VAR5C赋值:((成交量(手) * VAR1C) / VAR4C) VAR6C赋值:((成交量(手) * VAR2C) / VAR4C) VAR7C赋值:((成交量(手) * VAR3C) / VAR4C) VAR8C赋值:((VAR5C - VAR6C) - VAR7C) VAR4赋值:收盘价的5日简单移动平均 VAR5赋值:收盘价的10日简单移动平均 VAR6赋值:收盘价的30日简单移动平均 VAR7赋值:收盘价的60日简单移动平均 VAR8赋值:获利盘为85%的成本分布的7日指数移动平均 VAR9赋值:获利盘为15%的成本分布的7日指数移动平均 VARA赋值:(((收盘价*成交量(手))*10)的4日累和 / (成交量(手)*200)的4日累和) VARB赋值:((VARA*10)的整数部分 / 10) VARC赋值:(((收盘价*成交量(手))*10)的7日累和 / (成交量(手)*200)的7日累和) VARD赋值:((VARC*10)的整数部分 / 10) VARE赋值:(((收盘价*成交量(手))*10)的28日累和 / (成交量(手)*200)的28日累和) VARF赋值:((VARE*10)的整数部分 / 10) 输出短线趋势:(收盘价的5日指数移动平均 - 收盘价的10日指数移动平均),画红色,线宽为1 输出中线趋势:短线趋势的9日指数移动平均,画洋红色,线宽为2 VAR10赋值:((0 - ((10 * (5日内收盘价的最高值 - 收盘价)) / (5日内收盘价的最高值 - 5日内最低价的最低值))) + 10) VAR11赋值:((0 - ((10 * (10日内收盘价的最高值 - 收盘价)) / (10日内收盘价的最高值 - 10日内最低价的最低值))) + 10) VAR12赋值:((0 - ((10 * (20日内收盘价的最高值 - 收盘价)) / (20日内收盘价的最高值 - 20日内最低价的最低值))) + 10) VAR13赋值:((0 - ((10 * (30日内收盘价的最高值 - 收盘价)) / (30日内收盘价的最高值 - 30日内最低价的最低值))) + 10) VAR14赋值:1日前的中线趋势 VAR15赋值:中线趋势 VAR16赋值:(VAR15 - VAR14) VAR17赋值:1日前的短线趋势 VAR18赋值:短线趋势 VAR19赋值:(VAR18 - VAR17) VAR1A赋值:开盘价 VAR1B赋值:收盘价 输出庄家吸筹:如果(((((((VAR1A<=VAR4)AND(VAR1A<=VAR5))AND(VAR1A<=VAR6))AND(VAR1B>=VAR4))AND(VAR1B>=VARF))AND(VAR16>0))AND(VAR19>0)),返回0.5,否则返回0,线宽为2,COLOR66FF00 输出短线指标:如果((((短线趋势上穿中线趋势AND(短线趋势<0))AND(中线趋势<(0-0.2)))AND(VAR11>45))AND(VAR16>0)),返回0.3,否则返回0.1,COLOR66FF00 当满足条件收阳线时,在横轴0.01纵轴0.9位置书写文字,画红色 当满足条件收阳线时,在横轴1纵轴1位置书写文字,画红色

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

源码：

DIF:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:2*(DIF-DEA),COLORSTICK;
A4:=BARSLAST(REF(CROSS(DIF,DEA),1));
B1:=REF(C,A4+1)>C AND REF(DIF,A4+1)<DIF AND CROSS(DIF,DEA);
DRAWTEXT(FILTER(B1>0,5),DIF+0.2,'背离'),COLORYELLOW;
操盘:STICKLINE(MACD>=0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLORRED{COLOR6058FF};
减仓:STICKLINE(MACD>=0 AND MACD< REF(MACD,1),0,MACD,2,0),COLORFF9900{COLOR6058FF};
反弹:STICKLINE(MACD<0 AND MACD>=REF(MACD,1),0,MACD,2,0),COLORYELLOW{COLORFFFF00};
寻底:STICKLINE(MACD<0 AND MACD< REF(MACD,1),0,MACD,2,0),COLORFFFF00;
{空仓:0,COLORWHITE;
IF(DIF<0,DIF,0),COLORYELLOW,LINETHICK1;
IF(DIF<0,0,DIF),COLORRED,LINETHICK1;
IF(DIF<DEA,DIF,DEA),COLORWHITE,LINETHICK1;
IF(DIF>DEA,DEA,DEA),COLORGREEN,LINETHICK1;}
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
J:=3*K-2*D;
周Ｋ:=MA("KDJ.K#WEEK"(9,3,3) ,5);
周Ｄ:=MA("KDJ.D#WEEK"(9,3,3) ,5);
周Ｊ:=MA("KDJ.J#WEEK"(9,3,3) ,5);
DRAWICON(K<20 AND CROSS(K,D),MACD,1);
周金:DRAWTEXT(CROSS("KDJ.K#WEEK"(9,3,3),"KDJ.D#WEEK"(9,3,3)) ,MACD,'▲'),COLORRED;
周死:DRAWTEXT(CROSS("KDJ.D#WEEK"(9,3,3),"KDJ.K#WEEK"(9,3,3)) ,MACD*1.5,'▼'),COLORGREEN;
月金:DRAWTEXT(CROSS("KDJ.K#MONTH"(9,3,3),"KDJ.D#MONTH"(9,3,3)) ,MACD,'▲'),COLORMAGENTA;
月死:DRAWTEXT(CROSS("KDJ.D#MONTH"(9,3,3),"KDJ.K#MONTH"(9,3,3)) ,MACD*1.5,'▼'),COLORYELLOW;
VAR1C:=(HIGH - MIN(OPEN,CLOSE));
VAR2C:=(CLOSE - OPEN);
VAR3C:=(MIN(OPEN,CLOSE) - LOW);
VAR4C:=(HIGH - LOW);
VAR5C:=((VOL * VAR1C) / VAR4C);
VAR6C:=((VOL * VAR2C) / VAR4C);
VAR7C:=((VOL * VAR3C) / VAR4C);
VAR8C:=((VAR5C - VAR6C) - VAR7C);
VAR4:=MA(CLOSE,5);
VAR5:=MA(CLOSE,10);
VAR6:=MA(CLOSE,30);
VAR7:=MA(CLOSE,60);
VAR8:=EMA(COST(85),7);
VAR9:=EMA(COST(15),7);
VARA:=(SUM(((CLOSE * VOL) * 10),4) / SUM((VOL * 200),4));
VARB:=(INTPART((VARA * 10)) / 10);
VARC:=(SUM(((CLOSE * VOL) * 10),7) / SUM((VOL * 200),7));
VARD:=(INTPART((VARC * 10)) / 10);
VARE:=(SUM(((CLOSE * VOL) * 10),28) / SUM((VOL * 200),28));
VARF:=(INTPART((VARE * 10)) / 10);
短线趋势:(EMA(CLOSE,5) - EMA(CLOSE,10)),COLORRED,LINETHICK1;
中线趋势:EMA(短线趋势,9),COLORMAGENTA,LINETHICK2;
VAR10:=((0 - ((10 * (HHV(CLOSE,5) - CLOSE)) / (HHV(CLOSE,5) - LLV(LOW,5)))) + 10);
VAR11:=((0 - ((10 * (HHV(CLOSE,10) - CLOSE)) / (HHV(CLOSE,10) - LLV(LOW,10)))) + 10);
VAR12:=((0 - ((10 * (HHV(CLOSE,20) - CLOSE)) / (HHV(CLOSE,20) - LLV(LOW,20)))) + 10);
VAR13:=((0 - ((10 * (HHV(CLOSE,30) - CLOSE)) / (HHV(CLOSE,30) - LLV(LOW,30)))) + 10);
VAR14:=REF(中线趋势,1);
VAR15:=中线趋势;
VAR16:=(VAR15 - VAR14);
VAR17:=REF(短线趋势,1);
VAR18:=短线趋势;
VAR19:=(VAR18 - VAR17);
VAR1A:=OPEN;
VAR1B:=CLOSE;
庄家吸筹:IF((((((((VAR1A <= VAR4) AND (VAR1A <= VAR5)) AND (VAR1A <= VAR6)) AND (VAR1B >= VAR4)) AND (VAR1B >= VARF)) AND (VAR16 > 0)) AND (VAR19 > 0)),0.5,0),LINETHICK2,COLOR66FF00;
短线指标:IF(((((CROSS(短线趋势,中线趋势) AND (短线趋势 < 0)) AND (中线趋势 < (0 - 0.2))) AND (VAR11 > 45)) AND (VAR16 > 0)),0.3,0.1),COLOR66FF00;DRAWTEXT_FIX(C>O,0.01,0.9,0,' WWW.CXH99.COM '),COLORRED;
DRAWTEXT_FIX(C>O,1,1,0,'程序化交易模型'),COLORRED;

 

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