牛B主力资金A 双龙阁股市A通达信公式 主图 源码附图

N1:=STRCAT(CON2STR(YEAR,0),' 年 ');

Y1:=STRCAT(CON2STR(MONTH,0),' 月 '); 

R:=STRCAT(CON2STR(DAY,0),' 日 '); 

SJ:=STRCAT(STRCAT(N1,Y1), R); 

DRAWTEXT_FIX(C>0,0.05,0,0,SJ),COLORYELLOW;

A1:EXPMA(C,4);

A2:EXPMA(C,8);

A3:EXPMA(C,12);

A4:EXPMA(C,16);

A5:EXPMA(C,20);

A6:EXPMA(C,47);

{驭龙阁主图}

DRAWTEXT_FIX(1,0.05,0.1,0,'制作：风口寻妖驭龙阁主'),COLORYELLOW,LINETHICK8;

{题材数据}

DRAWTEXT_FIX(ISLASTBAR,0,0,0,CODE),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0,0.05,0,STKNAME),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR,0,0.1,0,HYBLOCK),COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0,0.15,0,DYBLOCK),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR,0,0.2,0,GNBLOCK),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR,0,0.25,0,FGBLOCK),COLORWHITE;

{风口寻妖}

月DIF:="MACD.DIF#MONTH";

月DEA:="MACD.DEA#MONTH",;

周DIF:="MACD.DIF#WEEK";

周DEA:="MACD.DEA#WEEK",;

日DIF:="MACD.DIF";

日DEA:="MACD.DEA";

日金叉:=CROSS(日DIF,日DEA);

周金叉:=CROSS(周DIF,周DEA);

月金叉:=CROSS(月DIF,月DEA);

共振A:= ( 周DIF>周DEA  AND 日金叉)  OR  ( 日DIF>日DEA AND 周金叉) OR (日金叉 AND 周金叉 ) ;  

共振B:=  日DIF>0  AND  MACD>0  AND C/REF(C,1)>1.08 ;

MA_1:= IF(4 > 1, MA(CLOSE,4), 1);

MA_2:= IF(8 > 1, MA(CLOSE,8), MA_1);

MA_3:= IF(12 > 1, MA(CLOSE,12), MA_1);

MA_4:= IF(16 > 1, MA(CLOSE,16), MA_1);

MA_5:= IF(20 > 1, MA(CLOSE,20), MA_1);

MAX_MA:= MAX(MA_1,MAX(MA_2,MAX(MA_3,MAX(MA_4,MA_4))));

MIN_MA:= MIN(MA_1,MIN(MA_2,MIN(MA_3,MIN(MA_4,MA_5))));

爆发点: (MAX_MA - MIN_MA) / MIN_MA * 100,NODRAW;

上攻力度:ATAN((MA_1/REF(MA_1,1)-1) * 100)*180/3.1415926,NODRAW;

共振C:=上攻力度<85;

共振:=共振A  AND   共振B AND 共振C;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,3,0),COLOR000099;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,2.2,0),COLOR0000CC;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,1.5,0),COLOR0000FF;

STICKLINE(共振 AND C/REF(C,1)>1.092,C,REF(C,1)*1.05,0.5,0),COLORCC66FF;

STICKLINE(共振 AND C/REF(C,1)>1.092,REF(C,1)*1.05,C,0.5,0),COLORYELLOW;

DRAWTEXT(共振 AND C/REF(C,1)>1.092,REF(C,1)*1.058,'↖驭龙'),COLORYELLOW;






{公式名称: 牛B主力资金A

公式描述: 1年期20170930到期

无参数

公式类型: 技术指标公式-其他类型

画线方法: 副图

公式版本: 0

显示小数: 缺省位数

坐标线位置: 自动

额外Y轴分界: 无

 

参数精灵:无

用法注释:无

公式源码:}

DRAWGBK(CLOSE>0,RGB(0,0,0),RGB(0,50,50),0,8,0);

X_1:=1990930;

X_2:=1991008;

X_3:=IF(DATE>X_1,IF(CLOSE<80,1,0),0);

X_4:=IF(DATE>X_2,1,X_3);

X_5:=IF(X_4=1,0,SMA((CLOSE-REF(CLOSE,1))*VOL,3,1)/10000);

X_6:=EMA(X_5,12)-EMA(X_5,26);

X_7:=EMA(X_6,9);

X_8:=(X_6-X_7)*2;

W1:STICKLINE(X_8>0,X_8,0,3,1),COLORRED;

W2:STICKLINE(X_8<0,X_8,0,3,1),COLORCYAN;

X_9:=HHVBARS(X_8,BARSLAST(X_8<0)+1);

X_10:=CROSS(BACKSET(CROSS(0,X_8),REF(X_9,1)+2),0.5);

X_11:=CROSS(BACKSET(CROSS(0,X_8) OR (ISLASTBAR AND X_8>0),REF(X_9,1)+2),0.5);

前高:DRAWLINE(X_10,X_8,REF(X_10,1),REF(X_8,1),1),COLORGRAY;

X_12:=LLVBARS(X_8,BARSLAST(X_8>0)+1);

X_13:=CROSS(BACKSET(CROSS(X_8,0),REF(X_12,1)+2),0.5);

X_14:=BARSLAST(FILTERX(CROSS(0,X_8),BARSCOUNT(CLOSE)));

前低:DRAWLINE(X_13,X_8,REF(X_13,1),REF(X_8,1),1),COLORGRAY;

X_15:=IF(X_8<0,FILTERX(X_8=LLV(X_8,BARSLAST(X_8>0)),BARSCOUNT(CLOSE)),DRAWNULL);

X_16:=BARSLAST(X_15);

X_17:=FILTERX(X_8<CONST(LLV(X_8,X_14+1)),BARSCOUNT(CLOSE));

X_18:=BARSLAST(X_17);

本低:IF(X_14+1>=1,CONST(LLV(X_8,X_14+1)),DRAWNULL);

X_19:=CROSS(COUNT(CROSS(X_8>本低/2 AND X_8<0,0.5),X_16)=1,0.5) AND X_16>=0;

X_20:=IF(ISLASTBAR AND X_8>0 AND X_8=HHV(X_8,BARSLAST(X_8<0)),1,IF(FILTERX(X_11,BARSCOUNT(CLOSE)),2,DRAWNULL));

X_21:=X_20=1 OR X_20=2 AND X_8>0;

X_22:=FILTERX(X_21,BARSCOUNT(CLOSE));

本高:DRAWLINE(X_22,X_8,REF(X_22,1),REF(X_8,1),1),COLORWHITE;

X_23:=CONST(REF(X_8,BARSLAST(X_22)));

X_24:=X_8>X_23;

X_25:=FILTERX(REFX(BARSLAST(X_24),1)=1,BARSCOUNT(CLOSE));

天数:BARSLAST(X_25),NODRAW,COLORYELLOW;

上横线:DRAWLINE(X_25,X_23,X_22,X_23,0),DOTLINE,COLORGREEN;

下横线:DRAWLINE(X_17,CONST(LLV(X_8,X_14+1)),X_15=1,X_8,0),DOTLINE,COLORYELLOW;

DRAWNUMBER(X_15,CONST(LLV(X_8,X_14+1))*0.9,X_18);

DRAWNUMBER(X_22,上横线*1.1,天数);

X_26:=IF(X_25,BARSNEXT(X_22),DRAWNULL);

X_27:=IF(天数>0 AND 天数<=REF(X_26,天数),SUM(X_8>0,天数),DRAWNULL);

X_28:=REF(CLOSE,天数);

X_29:=(X_28-CLOSE)/CLOSE*100;

X_30:=BARSLAST(X_22);

X_31:=CROSS(COUNT(CROSS(X_8<本高/2 AND X_8>0,0.5),X_22)=1,0.5) AND X_22>=0;

STICKLINE(X_8>前高 AND 本高>前高 AND BARSLAST(CROSS(X_8<本高/2,0.5))>0 AND X_8>(前高+本高)/2,X_8,前高,1,0),COLORYELLOW;

X_32:=IF(X_8>0 AND 本高!=前高,DRAWLINE(X_31,(前高+本高)/2,REF(X_31,1),REF((前高+本高)/2,1),1),DRAWNULL);

STICKLINE(X_8>前高,X_8,前高,1,0),COLORYELLOW;

STICKLINE(X_31,X_8,0,1,0),COLORGREEN;

STICKLINE(X_8<0 AND X_8<前低 AND 前低<0,X_8,前低,1,0),COLORBLUE;

X_33:=IF(CROSS(X_8<0,0.5),BARSNEXT(X_15),DRAWNULL);

X_34:=BARSLAST(X_8>0)-1;

STICKLINE(BARSLAST(X_19)>=0 AND X_8<前低 AND X_8<0,X_8,前低,1,0),COLORGREEN;

STICKLINE(X_19,X_8,0,1,0),COLORWHITE;

STICKLINE(X_8>前高 AND 本高>前高 AND BARSLAST(X_31)>0,X_8,前高,1,0),COLORRED;

STICKLINE(CROSS(前高,0.01) OR CROSS(本高,0.01),X_8,0,0,0),COLORWHITE;

STICKLINE(CROSS(前低<0,0.01) OR CROSS(本低<0,0.01),X_8,0,0,0),COLORWHITE;

IF(BARSLAST(X_19)>=0,本低/2,DRAWNULL),DOTLINE,COLORRED;

DRAWICON(CROSS(X_8,0),REF(X_8,1),38);

DRAWICON(CROSS(0,X_8),REF(X_8,1),39);

 

原理解析：
N1赋值:STRCAT(CON2STR(YEAR,0),' 年 ')
Y1赋值:STRCAT(CON2STR(MONTH,0),' 月 ')
 
R赋值:STRCAT(CON2STR(DAY,0),' 日 ')
 
SJ赋值:STRCAT(STRCAT(N1,Y1), R)
当满足条件C>0时,在横轴0.05纵轴0位置书写文字
输出A1:C的4日指数移动平均
输出A2:C的8日指数移动平均
输出A3:C的12日指数移动平均
输出A4:C的16日指数移动平均
输出A5:C的20日指数移动平均
输出A6:C的47日指数移动平均
当满足条件1时,在横轴0.05纵轴0.1位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0.05位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0.1位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0.15位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0.2位置书写文字
当满足条件ISLASTBAR时,在横轴0纵轴0.25位置书写文字
{风口寻妖}
月DIF赋值:"MACD.DIF#MONTH"
月DEA赋值:"MACD.DEA#MONTH",
周DIF赋值:"MACD.DIF#WEEK"
周DEA赋值:"MACD.DEA#WEEK",
日DIF赋值:"MACD.DIF"
日DEA赋值:"MACD.DEA"
日金叉赋值:日DIF上穿日DEA
周金叉赋值:周DIF上穿周DEA
月金叉赋值:月DIF上穿月DEA
共振A赋值: ( 周DIF>周DEA  AND 日金叉)  OR  ( 日DIF>日DEA AND 周金叉) OR (日金叉 AND 周金叉 )
  
共振B赋值:  日DIF>0  AND  MACD>0  AND C/1日前的C>1.08
MA_1赋值: IF(4 > 1, 收盘价的4日简单移动平均, 1)
MA_2赋值: IF(8 > 1, 收盘价的8日简单移动平均, MA_1)
MA_3赋值: IF(12 > 1, 收盘价的12日简单移动平均, MA_1)
MA_4赋值: IF(16 > 1, 收盘价的16日简单移动平均, MA_1)
MA_5赋值: IF(20 > 1, 收盘价的20日简单移动平均, MA_1)
MAX_MA赋值: MAX(MA_1,MAX(MA_2,MAX(MA_3,MAX(MA_4,MA_4))))
MIN_MA赋值: MIN(MA_1,MIN(MA_2,MIN(MA_3,MIN(MA_4,MA_5))))
输出爆发点: (MAX_MA - MIN_MA) / MIN_MA * 100,NODRAW
输出上攻力度:ATAN((MA_1/1日前的MA_1-1) * 100)*180/3.1415926,NODRAW
共振C赋值:上攻力度<85
共振赋值:共振A  AND   共振B AND 共振C
STICKLINE(共振 AND C/1日前的C>1.092,C,1日前的C*1.05,3,0),COLOR000099
STICKLINE(共振 AND C/1日前的C>1.092,C,1日前的C*1.05,2.2,0),COLOR0000CC
STICKLINE(共振 AND C/1日前的C>1.092,C,1日前的C*1.05,1.5,0),COLOR0000FF
STICKLINE(共振 AND C/1日前的C>1.092,C,1日前的C*1.05,0.5,0),COLORCC66FF
STICKLINE(共振 AND C/1日前的C>1.092,1日前的C*1.05,C,0.5,0),COLORYEL最低价
DRAWTEXT(共振 AND C/1日前的C>1.092,1日前的C*1.058,'↖驭龙'),COLORYEL最低价




{公式名称: 牛B主力资金A
公式描述: 1年期20170930到期
无参数
公式类型: 技术指标公式-其他类型
画线方法: 副图
公式版本: 0
显示小数: 缺省位数
坐标线位置: 自动
额外Y轴分界: 无
 
参数精灵:无
用法注释:无
公式源码:}
DRAWGBK(收盘价>0,RGB(0,0,0),RGB(0,50,50),0,8,0)
X_1赋值:1990930
X_2赋值:1991008
X_3赋值:IF(DATE>X_1,IF(收盘价<80,1,0),0)
如果DATE>X_2返回1否则返回X_3
X_5赋值:IF(X_4=1,0,SMA((收盘价-1日前的收盘价)*成交量,3,1)/10000)
X_6赋值:X_5的12日指数移动平均-X_5的26日指数移动平均
X_7赋值:X_6的9日指数移动平均
X_8赋值:(X_6-X_7)*2
当满足条件X_8>0时,在X_8和0之间画柱状线
当满足条件X_8<0时,在X_8和0之间画柱状线
X_9赋值:HHVBARS(X_8,上次X_8<0距今天数+1)
X_10:=CROSS(BACKSET(CROSS(0,X_8),1日前的X_9+2),0.5)
X_11:=CROSS(BACKSET(CROSS(0,X_8) OR (ISLASTBAR AND X_8>0),1日前的X_9+2),0.5)
输出前高:DRAWLINE(X_10,X_8,1日前的X_10,1日前的X_8,1),COLORGRAY
X_12:=LLVBARS(X_8,上次X_8>0距今天数+1)
X_13:=CROSS(BACKSET(CROSS(X_8,0),1日前的X_12+2),0.5)
X_14:=上次FILTERX(0上穿X_8,收盘价的有效数据周期数距今天数)
输出前低:DRAWLINE(X_13,X_8,1日前的X_13,1日前的X_8,1),COLORGRAY
X_15:=IF(X_8<0,FILTERX(X_8=LLV(X_8,上次X_8>0距今天数),收盘价的有效数据周期数),DRAWNULL)
X_16:=上次X_15距今天数
X_17:=FILTERX(X_8 X_18:=上次X_17距今天数
输出本低:IF(X_14+1>=1,CONST(X_14+1日内X_8最低值),DRAWNULL)
X_19:=CROSS(COUNT(CROSS(X_8>本低/2 AND X_8<0,0.5),X_16)=1,0.5) AND X_16>=0
X_20:=IF(ISLASTBAR AND X_8>0 AND X_8=HHV(X_8,上次X_8<0距今天数),1,IF(FILTERX(X_11,收盘价的有效数据周期数),2,DRAWNULL))
X_21:=X_20=1 OR X_20=2 AND X_8>0
X_22:=FILTERX(X_21,收盘价的有效数据周期数)
输出本高:DRAWLINE(X_22,X_8,1日前的X_22,1日前的X_8,1),COLORWHITE
X_23:=CONST(REF(X_8,上次X_22距今天数))
X_24:=X_8>X_23
X_25:=FILTERX(REFX(上次X_24距今天数,1)=1,收盘价的有效数据周期数)
输出天数:上次X_25距今天数,NODRAW,COLORYEL最低价
输出上横线:DRAWLINE(X_25,X_23,X_22,X_23,0),DOTLINE,COLORGREEN
输出下横线:DRAWLINE(X_17,CONST(X_14+1日内X_8最低值),X_15=1,X_8,0),DOTLINE,COLORYEL最低价
DRAWNUMBER(X_15,CONST(X_14+1日内X_8最低值)*0.9,X_18)
DRAWNUMBER(X_22,上横线*1.1,天数)
X_26:=IF(X_25,BARSNEXT(X_22),DRAWNULL)
X_27:=IF(天数>0 AND 天数<=天数日前的X_26,天数的X_8>0日累和,DRAWNULL)
X_28:=天数日前的收盘价
X_29:=(X_28-收盘价)/收盘价*100
X_30:=上次X_22距今天数
X_31:=CROSS(COUNT(CROSS(X_8<本高/2 AND X_8>0,0.5),X_22)=1,0.5) AND X_22>=0
STICKLINE(X_8>前高 AND 本高>前高 AND 上次X_8<本高/2上穿0.5距今天数>0 AND X_8>(前高+本高)/2,X_8,前高,1,0),COLORYEL最低价
X_32:=IF(X_8>0 AND 本高!=前高,DRAWLINE(X_31,(前高+本高)/2,1日前的X_31,REF((前高+本高)/2,1),1),DRAWNULL)
当满足条件X_8>前高时,在X_8和前高之间画柱状线
当满足条件X_31时,在X_8和0之间画柱状线
当满足条件X_8<0 AND X_8<前低 AND 前低<0时,在X_8和前低之间画柱状线
X_33:=IF(X_8<0上穿0.5,BARSNEXT(X_15),DRAWNULL)
X_34:=上次X_8>0距今天数-1
STICKLINE(上次X_19距今天数>=0 AND X_8<前低 AND X_8<0,X_8,前低,1,0),COLORGREEN
当满足条件X_19时,在X_8和0之间画柱状线
STICKLINE(X_8>前高 AND 本高>前高 AND 上次X_31距今天数>0,X_8,前高,1,0),COLORRED
STICKLINE(前高上穿0.01 OR 本高上穿0.01,X_8,0,0,0),COLORWHITE
STICKLINE(前低<0上穿0.01 OR 本低<0上穿0.01,X_8,0,0,0),COLORWHITE
IF(上次X_19距今天数>=0,本低/2,DRAWNULL),DOTLINE,COLORRED
DRAWICON(X_8上穿0,1日前的X_8,38)
DRAWICON(0上穿X_8,1日前的X_8,39)