【原】通达信打首板主图指标公式源码破译破解（附源码）

编程思路破译

K赋值:收盘价的2日指数移动平均

K1赋值:K的2日指数移动平均

K2赋值:K1的2日指数移动平均

K3赋值:K2的2日指数移动平均

快赋值:K1的3日指数移动平均,画红色,线宽为1

中赋值:K2的5日指数移动平均,画黄色,线宽为1

慢赋值:K3的7日指数移动平均,画蓝色,线宽为1

画带状线

输出K线:K线

重心赋值:(2*收盘价+最高价+最低价)/4,COLOR00FFFF,线宽为0

SJ赋值:(重心-5日内最低价的最低值)/(5日内最高价的最高值-5日内最低价的最低值)*100的2日加权移动平均

ZJ赋值:0.618*1日前的SJ+0.382*SJ的2日加权移动平均

当满足条件ZJ上穿SJANDSJ>70AND快>慢AND((最高价-开盘价)<(开盘价-收盘价)ANDC<开盘价)ANDREF(收盘价,1)<2日前的收盘价*1.095时,在最高价+0.07位置书写文字,画绿色

A1赋值:收盘价的14日指数移动平均,画白色,线宽为1

A1X赋值:(A1-1日前的A1)/1日前的A1*100,NODRAW

突破赋值:1日前的收盘价的14日指数移动平均,NODRAW

距离赋值:(收盘价-突破)/突破*100,NODRAW

入赋值:如果A1X>=0,返回上次A1X上穿0距今天数+1日前的收盘价的14日指数移动平均,否则返回无效数画红色,线宽为1

逃赋值:如果A1X<0,返回上次0上穿A1X距今天数+1日前的收盘价的14日指数移动平均,否则返回无效数画绿色,线宽为1

当满足条件A1X上穿0ANDC>=1日前的7日内最高价的最高值ANDC>1日前的收盘价*1.097ANDC=HANDCROSS(快,慢)ANDC>=快ANDC>开盘价时,在最低价*0.98位置书写文字画黄色

当满足条件A1X上穿0ANDC>=1日前的7日内最高价的最高值ANDC>1日前的收盘价*1.097ANDC=HANDCROSS(快,慢)ANDC>=快ANDC>开盘价时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色

当满足条件A1X上穿0ANDC>=1日前的7日内最高价的最高值ANDC>1日前的收盘价*1.097ANDC=HANDCROSS(快,慢)ANDC>=快ANDC>开盘价时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画黄色

卖出赋值:当满足条件1日前的收盘价>1日前的快ANDREF(收盘价,2)>2日前的快ANDREF(收盘价,3)>3日前的快ANDC<快ANDREF(快,1)>1日前的慢ANDREF(最低价,1)<1日前的快ANDO>收盘价时,在最高价+0.1位置画15号图标

当满足条件A1X上穿0时,在(收盘价+开盘价)/2和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色

当满足条件0上穿A1X时,在(收盘价+开盘价)/2和开盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画黄色

MA5赋值:收盘价的5日简单移动平均

MA10赋值:收盘价的10日简单移动平均

输出生命线:收盘价的30日简单移动平均,COLORFF00FF,线宽为2

MA60赋值:收盘价的60日简单移动平均,画红色,线宽为1

NN赋值:((1日前的收盘价>2日前的收盘价*1.096 AND 2日前的收盘价>3日前的收盘价*1.096 ) AND 收盘价<1日前的收盘价*1.095)

当满足条件NN时,在最高价位置书写文字,画黄色

斜线,线宽为2

条件1赋值:(收盘价>=计算涨停价)

一板1赋值:条件1 AND 取反 AND 最高价=收盘价 AND 上市的天数>20

一板赋值:收盘价>1日前的收盘价*1.095 AND 收盘价<1日前的收盘价*1.118 AND 收盘价=最高价 AND 1日前的收盘价<2日前的收盘价*1.095

M1赋值:一板 AND 成交量(手)<1日前的成交量(手)

二板1赋值:((收盘价>=计算涨停价 AND 上市的天数>30 AND 1日前的收盘价=计算涨停价) OR (收盘价>=计算涨停价 AND 上市的天数>30 AND 1日前的收盘价=计算涨停价) AND 取反)

二板赋值:收盘价>1日前的收盘价*1.095 AND 收盘价<1日前的收盘价*1.118 AND 收盘价=最高价 AND 1日前的收盘价>2日前的收盘价*1.095 AND 1日前的收盘价<2日前的收盘价*1.118 AND 1日前的收盘价=1日前的最高价 AND 2日前的收盘价<3日前的收盘价*1.095

M2赋值:当满足条件二板ANDV<1日前的成交量(手)时,在(开盘价+收盘价)/2和收盘价位置之间画柱状线,宽度为1,0不为0则画空心柱.,画红色

三板1赋值:(收盘价>=计算涨停价 AND 上市的天数>20 AND 1日前的收盘价=计算涨停价 AND 2日前的收盘价=计算涨停价) OR (收盘价>=计算涨停价 AND 上市的天数>20 AND 1日前的收盘价=计算涨停价 AND 2日前的收盘价=计算涨停价)

三板赋值:收盘价>1日前的收盘价*1.095 AND 收盘价<1日前的收盘价*1.118 AND 收盘价=最高价 AND 1日前的收盘价>2日前的收盘价*1.095 AND 1日前的收盘价<2日前的收盘价*1.118 AND 1日前的收盘价=1日前的最高价 AND 2日前的收盘价>3日前的收盘价*1.095 AND 2日前的收盘价<3日前的收盘价*1.118 AND 2日前的收盘价=2日前的最高价

M3赋值:三板 AND 成交量(手)<1日前的成交量(手)

MAVOL1赋值:成交量(手)的5日简单移动平均

当满足条件一板ANDC>OANDV>1日前的MAVOL1*2时,在最低价*0.95位置书写文字,画红色

当满足条件一板ANDC>OANDV>1日前的MAVOL1*2时,在收盘价和开盘价位置之间画柱状线,宽度为2,0不为0则画空心柱.,画黄色

当满足条件一板ANDC>OANDV>1日前的MAVOL1*2时,在最高价和最低价位置之间画柱状线,宽度为0,0不为0则画空心柱.,画黄色

当满足条件M2时,在最低价-0.07位置书写文字,画黄色

当满足条件M3时,在开盘价位置书写文字,画黄色

M4赋值:收盘价>1日前的收盘价*1.095 AND 1日前的收盘价<2日前的收盘价*1.095 AND 2日前的收盘价>3日前的收盘价*1.095 AND 3日前的收盘价<4日前的收盘价*1.095

当满足条件M4时,在最低价-0.09位置书写文字,画黄色

M5赋值:收盘价>1日前的收盘价*1.095 AND 1日前的收盘价<2日前的收盘价*1.095 AND 2日前的收盘价<3日前的收盘价*1.095 AND 3日前的收盘价>4日前的收盘价*1.095 AND 4日前的收盘价<5日前的收盘价*1.095

当满足条件M5时,在最低价-0.09位置书写文字,画黄色

程序源码

K:=EMA(C,2);

K1:=EMA(K,2);

K2:=EMA(K1,2);

K3:=EMA(K2,2);

快:=EMA(K1,3),COLORRED,LINETHICK1;

中:=EMA(K2,5),COLORYELLOW,LINETHICK1;

慢:=EMA(K3,7),COLORBLUE,LINETHICK1;

DRAWBAND(快,RGB(55,55,225),慢,RGB(0,105,0));

k线:DRAWKLINE(H,O,L,C);

重心:=(2*C+H+L)/4,COLOR00FFFF,LINETHICK0;

SJ:=WMA((重心-LLV(L,5))/(HHV(H,5)-LLV(L,5))*100,2);

ZJ:=WMA(0.618*REF(SJ,1)+0.382*SJ,2);

DRAWTEXT(crOSS(ZJ,SJ) AND SJ>70 AND 快>慢 AND ((H-O)<(O-C) AND C<O) AND REF(C,1)<REF(C,2)*1.095,H+0.07,'洗'),COLORGREEN;

A1:=EMA(C,14),COLORWHITE,LINETHICK1;

A1X:=(A1-REF(A1,1))/REF(A1,1)*100,NODRAW;

突破:=REF(EMA(C,14),1),NODRAW;

距离:=(C-突破)/突破*100,NODRAW;

入:=IF(A1X>=0,REF(EMA(C,14),BArslAST(CROSS(A1X,0))+1),DRAWNULL)COLORRED,LINETHICK1;

逃:=IF(A1X<0,REF(EMA(C,14),BARSLAST(CROSS(0,A1X))+1),DRAWNULL)COLORGREEN,LINETHICK1;

DRAWTEXT(CROSS(A1X,0) AND C>=REF(HHV(H,7),1) AND C>REF(C,1)*1.097 AND C=H AND CROSS(快,慢) AND C>=快 AND C>O,L*0.98,'←首板')COLORYELLOW;

STICKLINE(CROSS(A1X,0) AND C>=REF(HHV(H,7),1) AND C>REF(C,1)*1.097 AND C=H AND CROSS(快,慢) AND C>=快 AND C>O,C,O,2,0),COLORYELLOW;

STICKLINE(CROSS(A1X,0) AND C>=REF(HHV(H,7),1) AND C>REF(C,1)*1.097 AND C=H AND CROSS(快,慢) AND C>=快 AND C>O,H,L,0,0),COLORYELLOW;

卖出:=DRAWICON(REF(C,1)>REF(快,1) AND REF(C,2)>REF(快,2) AND REF(C,3)>REF(快,3) AND C<快 AND REF(快,1)>REF(慢,1) AND REF(L,1)<REF(快,1) AND O>C,H+0.1,15);

STICKLINE(CROSS(A1X,0),(C+O)/2,O,1,0),COLORRED;

STICKLINE(CROSS(0,A1X),(C+O)/2,O,1,0),COLORYELLOW;

MA5:=MA(CLOSE,5);

MA10:=MA(CLOSE,10);

生命线:MA(CLOSE,30),COLORFF00FF,LINETHICK2;

MA60:=MA(CLOSE,60),COLORRED,LINETHICK1;

NN:=((REF(C,1)>REF(C,2)*1.096 AND REF(C,2)>REF(C,3)*1.096 ) AND C<REF(C,1)*1.095);

DRAWTEXT(NN,H,'逃'),COLORYELLOW;

DRAWSL(快=慢,REF(H,1),0,3,0),LINETHICK2;

条件1:=(CLOSE>=ZTPRICE(REF(CLOSE,1),IF(FINANCE(3)=4,0.2,0.1)));

一板1:=条件1 AND NOT(REF(条件1,1)) AND H=C AND FINANCE(42)>20;

一板:=C>REF(C,1)*1.095 AND C<REF(C,1)*1.118 AND C=H AND REF(C,1)<REF(C,2)*1.095;

M1:=一板 AND V<REF(V,1);

二板1:=((C>=ZTPRICE(REF(C,1),0.1) AND FINANCE(42)>30 AND REF(C,1)=ZTPRICE(REF(C,2),0.1)) OR (C>=ZTPRICE(REF(C,1),0.2) AND FINANCE(42)>30 AND REF(C,1)=ZTPRICE(REF(C,2),0.2)) AND NOT(REF(条件1,2)));

二板:=C>REF(C,1)*1.095 AND C<REF(C,1)*1.118 AND C=H AND REF(C,1)>REF(C,2)*1.095 AND REF(C,1)<REF(C,2)*1.118 AND REF(C,1)=REF(H,1) AND REF(C,2)<REF(C,3)*1.095;

M2:=STICKLINE(二板 AND V<REF(V,1),(O+C)/2,C,1,0),COLORRED;

三板1:=(C>=ZTPRICE(REF(C,1),0.1) AND FINANCE(42)>20 AND REF(C,1)=ZTPRICE(REF(C,2),0.1) AND REF(C,2)=ZTPRICE(REF(C,3),0.1)) OR (C>=ZTPRICE(REF(C,1),0.2) AND FINANCE(42)>20 AND REF(C,1)=ZTPRICE(REF(C,2),0.2) AND REF(C,2)=ZTPRICE(REF(C,3),0.2));

三板:=C>REF(C,1)*1.095 AND C<REF(C,1)*1.118 AND C=H AND REF(C,1)>REF(C,2)*1.095 AND REF(C,1)<REF(C,2)*1.118 AND REF(C,1)=REF(H,1) AND REF(C,2)>REF(C,3)*1.095 AND REF(C,2)<REF(C,3)*1.118 AND REF(C,2)=REF(H,2);

M3:=三板 AND V<REF(V,1);

MAvol1:=MA(V,5);

DRAWTEXT(一板 AND C>O AND V>REF(MAVOL1,1)*2,L*0.95,'←试盘'),COLORRED;

STICKLINE(一板 AND C>O AND V>REF(MAVOL1,1)*2,C,O,2,0),COLORYELLOW;

STICKLINE(一板 AND C>O AND V>REF(MAVOL1,1)*2,H,L,0,0),COLORYELLOW;

DRAWTEXT(M2 ,L-0.07,'二进三'),COLORYELLOW;

DRAWTEXT(M3 ,O,'妖'),COLORYELLOW;

M4:=C>REF(C,1)*1.095 AND REF(C,1)<REF(C,2)*1.095 AND REF(C,2)>REF(C,3)*1.095 AND REF(C,3)<REF(C,4)*1.095;

DRAWTEXT(M4 ,L-0.09,'一进二'),COLORYELLOW;

M5:=C>REF(C,1)*1.095 AND REF(C,1)<REF(C,2)*1.095 AND REF(C,2)<REF(C,3)*1.095 AND REF(C,3)>REF(C,4)*1.095 AND REF(C,4)<REF(C,5)*1.095;

DRAWTEXT(M5 ,L-0.09,'一进二'),COLORYELLOW;

注：

       馆内各种公式为学习编程而保存，实战使用前一定要看其中是否有未来函数并自己亲自测试成功率，决不能依据公式名称的描述和形容去投资，据此入市造成投资损失由投资者自己承担。

       发文不易，如获益，欢迎赞赏，赞赏必复！