通达信〖擒牛捉马〗一眼辨多空变色趋势王由多组EMA与加权均价源码
该指标是一套通达信主图公式，核心由多组EMA与加权均价构成。短中期判断时，先以(2C+H+L)/4生成EMA6、EMA13，并同EMA10进行比较，红线示涨、绿线示跌；再以(C+H+L)/3生成EMA3、EMA6、EMA10、EMA18，只要其中任一均线向上或向下，就把K线相应染成红色或绿色，从而形成红绿K线的多空提示。WAPRC来自QUAPRC的20周期线性加权均线，用来判断强弱。若WAPRC低于其EMA10、MIDLN金叉且C>MA20，则视为“大牛”；若WAPRC强于其EMA10、MIDLN金叉、C>MA20且MA20向上，则视为“黑马”。当12EMA上穿144EMA时，标注“★大趋势多”；下穿时，标注“★大趋势空”。
使用时，该公式放在主图观察：红K、红粗线偏多，绿K、绿粗线偏空。出现“大牛/黑马”后，可先加入股票池，再结合成交量、板块和大盘进一步筛选；12EMA与144EMA金叉，确认大趋势偏多，死叉则转空。它更适合趋势跟踪和波段选股。震荡行情中假信号较多，必须设置止损。源码里的公众号文字可以删除，144线也可改名为“大趋势线”。整体来看，这套通达信指标源码融合了红绿K线多空、大牛黑马选股和均线趋势跟踪，仅作技术参考，不构成投资建议。
{主图源码如下}
{擒牛捉马趋势}
BASPRC:=EMA((2*C+H+L)/4,5);
SHRTTR:=EMA((2*C+H+L)/4,6);
MIDTR:=EMA((2*C+H+L)/4,13);
IF(SHRTTR>REF(SHRTTR,1),BASPRC,DRAWNULL),COLOR0000FF,LINETHICK3;
IF(SHRTTR< REF(SHRTTR,1),BASPRC,DRAWNULL),COLOR00FF00,LINETHICK3;
IF(EMA((2*C+H+L)/4,10)>REF(MIDTR,1),MIDTR,DRAWNULL),COLOR0000FF,LINETHICK5;
IF(EMA((2*C+H+L)/4,10)< REF(MIDTR,1),MIDTR,DRAWNULL),LINETHICK5,COLOR00FF00;
WXMARK:DRAWTEXT_FIX(1,0.52,0,0,'☆☆'),COLOR333333;
QUAPRC:=(3*C+L+O+H)/6;
WAPRC:=(20*QUAPRC+19*REF(QUAPRC,1)+18*REF(QUAPRC,2)+17*REF(QUAPRC,3)+16*REF(QUAPRC,4)+15*REF(QUAPRC,5)+14*REF(QUAPRC,6)+13*REF(QUAPRC,7)+12*REF(QUAPRC,8)+11*REF(QUAPRC,9)+10*REF(QUAPRC,10)+9*REF(QUAPRC,11)+8*REF(QUAPRC,12)+7*REF(QUAPRC,13)+6*REF(QUAPRC,14)+5*REF(QUAPRC,15)+4*REF(QUAPRC,16)+3*REF(QUAPRC,17)+2*REF(QUAPRC,18)+REF(QUAPRC,20))/210;
ULSHTR:=EMA((C+H+L)/3,3);
SHRTLN:=EMA((C+H+L)/3,6);
MIDLN:=EMA((C+H+L)/3,10);
LONGLN:=EMA((C+H+L)/3,18);
BUYLOC:=LONGLN>REF(LONGLN,1) OR MIDLN>REF(MIDLN,1) OR SHRTLN>REF(SHRTLN,1) OR ULSHTR>REF(ULSHTR,1);
STICKLINE(BUYLOC=1,L,H,0.0,1)+WXMARK,COLORRED;
STICKLINE(BUYLOC=1,C,O,3,1)+WXMARK,COLORRED;
SELLLOC:=LONGLN< REF(LONGLN,1) OR MIDLN< REF(MIDLN,1) OR SHRTLN< REF(SHRTLN,1);
STICKLINE(SELLLOC=1,L,H,0.0,0)+WXMARK,COLORGREEN;
STICKLINE(SELLLOC=1,C,O,3,1)+WXMARK,COLORGREEN;
BULLBUY:=WAPRC< EMA(WAPRC,10) AND CROSS(MIDLN,REF(MIDLN,1)) AND C>MA(C,20);
DRAWTEXT(BULLBUY,L,'大牛'),COLORFF00FF;
HORSEBUY:=WAPRC>=EMA(WAPRC,10) AND CROSS(MIDLN,REF(MIDLN,1)) AND C>MA(C,20) AND MA(C,20)>REF(MA(C,20),1);
DRAWTEXT(HORSEBUY,L,'黑马'),COLORFF00FF;
SHRTMA:=EMA(C,12),LINETHICK2;
乐淘网:EMA(C,144),LINETHICK2;
BASX:=CROSS(SHRTMA,乐淘网);
BASSX:=CROSS(乐淘网,SHRTMA);
DRAWICON(BASX,乐淘网,1);
DRAWICON(BASSX,乐淘网,2);
DRAWTEXT(BASX,乐淘网,'★大趋势多'),COLORYELLOW;
DRAWTEXT(BASSX,乐淘网*1.02,'★大趋势空'),COLORGREEN;
{选股源码如下}
{黑马选股}
QUAPRC:=(3*C+L+O+H)/6;
乐淘网:=(20*QUAPRC+19*REF(QUAPRC,1)+18*REF(QUAPRC,2)+17*REF(QUAPRC,3)+16*REF(QUAPRC,4)+15*REF(QUAPRC,5)+14*REF(QUAPRC,6)+13*REF(QUAPRC,7)+12*REF(QUAPRC,8)+11*REF(QUAPRC,9)+10*REF(QUAPRC,10)+9*REF(QUAPRC,11)+8*REF(QUAPRC,12)+7*REF(QUAPRC,13)+6*REF(QUAPRC,14)+5*REF(QUAPRC,15)+4*REF(QUAPRC,16)+3*REF(QUAPRC,17)+2*REF(QUAPRC,18)+REF(QUAPRC,20))/210;
MIDLN:=EMA((C+H+L)/3,10);
黑马XG:乐淘网>=EMA(乐淘网,10) AND CROSS(MIDLN,REF(MIDLN,1)) AND C>MA(C,20) AND MA(C,20)>REF(MA(C,20),1);
未来函数检测结果
BASPRC赋值:(2*收盘价+最高价+最低价)/4的5日指数移动平均
SHRTTR赋值:(2*收盘价+最高价+最低价)/4的6日指数移动平均
MIDTR赋值:(2*收盘价+最高价+最低价)/4的13日指数移动平均
如果SHRTTR>1日前的SHRTTR,返回BASPRC,否则返回无效数,COLOR0000FF,线宽为3
如果SHRTTR<1日前的SHRTTR,返回BASPRC,否则返回无效数,COLOR00FF00,线宽为3
如果(2*收盘价+最高价+最低价)/4的10日指数移动平均>1日前的MIDTR,返回MIDTR,否则返回无效数,COLOR0000FF,线宽为5
如果(2*收盘价+最高价+最低价)/4的10日指数移动平均<1日前的MIDTR,返回MIDTR,否则返回无效数,线宽为5,COLOR00FF00
输出WXMARK:当满足条件1时,在横轴0.52纵轴0位置书写文字,COLOR333333
QUAPRC赋值:(3*收盘价+最低价+开盘价+最高价)/6
WAPRC赋值:(20*QUAPRC+19*1日前的QUAPRC+18*2日前的QUAPRC+17*3日前的QUAPRC+16*4日前的QUAPRC+15*5日前的QUAPRC+14*6日前的QUAPRC+13*7日前的QUAPRC+12*8日前的QUAPRC+11*9日前的QUAPRC+10*10日前的QUAPRC+9*11日前的QUAPRC+8*12日前的QUAPRC+7*13日前的QUAPRC+6*14日前的QUAPRC+5*15日前的QUAPRC+4*16日前的QUAPRC+3*17日前的QUAPRC+2*18日前的QUAPRC+20日前的QUAPRC)/210
ULSHTR赋值:(收盘价+最高价+最低价)/3的3日指数移动平均
SHRTLN赋值:(收盘价+最高价+最低价)/3的6日指数移动平均
MIDLN赋值:(收盘价+最高价+最低价)/3的10日指数移动平均
LONGLN赋值:(收盘价+最高价+最低价)/3的18日指数移动平均
BUYLOC赋值:LONGLN>1日前的LONGLN OR MIDLN>1日前的MIDLN OR SHRTLN>1日前的SHRTLN OR ULSHTR>1日前的ULSHTR
当满足条件BUYLOC=1时,在最低价和最高价位置之间画柱状线,宽度为0.0,1不为0则画空心柱.+WXMARK,画红色
当满足条件BUYLOC=1时,在收盘价和开盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.+WXMARK,画红色
SELLLOC赋值:LONGLN< 1日前的LONGLN OR MIDLN< 1日前的MIDLN OR SHRTLN< 1日前的SHRTLN
当满足条件SELLLOC=1时,在最低价和最高价位置之间画柱状线,宽度为0.0,0不为0则画空心柱.+WXMARK,画绿色
当满足条件SELLLOC=1时,在收盘价和开盘价位置之间画柱状线,宽度为3,1不为0则画空心柱.+WXMARK,画绿色
BULLBUY赋值:WAPRC< WAPRC的10日指数移动平均 AND MIDLN上穿1日前的MIDLN AND 收盘价>收盘价的20日简单移动平均
当满足条件BULLBUY时,在最低价位置书写文字,COLORFF00FF
HORSEBUY赋值:WAPRC>=WAPRC的10日指数移动平均 AND MIDLN上穿1日前的MIDLN AND 收盘价>收盘价的20日简单移动平均 AND 收盘价的20日简单移动平均>1日前的收盘价的20日简单移动平均
当满足条件HORSEBUY时,在最低价位置书写文字,COLORFF00FF
SHRTMA赋值:收盘价的12日指数移动平均,线宽为2
输出乐淘网:收盘价的144日指数移动平均,线宽为2
BASX赋值:SHRTMA上穿乐淘网
BASSX赋值:乐淘网上穿SHRTMA
当满足条件BASX时,在乐淘网位置画1号图标
当满足条件BASSX时,在乐淘网位置画2号图标
当满足条件BASX时,在乐淘网位置书写文字,画黄色
当满足条件BASSX时,在乐淘网*1.02位置书写文字,画绿色
QUAPRC赋值:(3*收盘价+最低价+开盘价+最高价)/6
乐淘网赋值:(20*QUAPRC+19*1日前的QUAPRC+18*2日前的QUAPRC+17*3日前的QUAPRC+16*4日前的QUAPRC+15*5日前的QUAPRC+14*6日前的QUAPRC+13*7日前的QUAPRC+12*8日前的QUAPRC+11*9日前的QUAPRC+10*10日前的QUAPRC+9*11日前的QUAPRC+8*12日前的QUAPRC+7*13日前的QUAPRC+6*14日前的QUAPRC+5*15日前的QUAPRC+4*16日前的QUAPRC+3*17日前的QUAPRC+2*18日前的QUAPRC+20日前的QUAPRC)/210
MIDLN赋值:(收盘价+最高价+最低价)/3的10日指数移动平均
输出黑马XG:乐淘网>=乐淘网的10日指数移动平均 AND MIDLN上穿1日前的MIDLN AND 收盘价>收盘价的20日简单移动平均 AND 收盘价的20日简单移动平均>1日前的收盘价的20日简单移动平均
