通达信快乐金指主图指标公式源码

STICKLINE(L>REF(H,1) ,REF(H,1),L,9,-1),COLORFD00DF;

STICKLINE(H< REF(L,1) ,REF(L,1),H,9,-1),COLORFDFD00;

DRAWKLINE(H,O,L,C);

XA_1:=HIGH;

XA_2:=LOW;

XA_3:=REF(XA_1,10)=HHV(XA_1,2*10+1);

XA_4:=FILTER(XA_3,10);

XA_5:=BACKSET(XA_4,10+1);

XA_6:=FILTER(XA_5,10);

XA_7:=REF(XA_2,10)=LLV(XA_2,2*10+1);

XA_8:=FILTER(XA_7,10);

XA_9:=BACKSET(XA_8,10+1);

XA_10:=FILTER(XA_9,10);

前期高位:REF(HIGH,BARSLAST(XA_6)),POINTDOT,COLORRED;

STICKLINE(HIGH,前期高位,前期高位,8,0),COLORRED;

前期低位:REF(LOW,BARSLAST(XA_10)),POINTDOT,COLORGREEN;

STICKLINE(LOW,前期低位,前期低位,8,0),COLORGREEN;

DRAWNUMBER(FILTER(XA_5,10),HIGH,HIGH),LINETHICK9;

DRAWNUMBER(FILTER(XA_9,10),LOW,LOW);

选股1:crOSS(CLOSE,前期高位),NODRAW;

选股2:CLOSE>REF(前期低位,1) AND CROSS(REF(前期低位,1),LOW),NODRAW;

STICKLINE(选股1,OPEN,CLOSE,1,0),COLORYELLOW;

STICKLINE(选股1,HIGH,LOW,0,1),COLORYELLOW;

STICKLINE(选股2,OPEN,CLOSE,1,0),COLORYELLOW;

STICKLINE(选股2,HIGH,LOW,0,1),COLORYELLOW;

出场1:CLOSE< REF(前期高位,1) AND CROSS(HIGH,REF(前期高位,1)),NODRAW;

STICKLINE(出场1,OPEN,CLOSE,1,0),COLORBLUE;

出场2:CROSS(前期低位,CLOSE),NODRAW;

STICKLINE(出场2,OPEN,CLOSE,1,0),COLORBLUE;

XA_11:=(OPEN+CLOSE)/2;

XA_12:=REF(XA_11,1);

STICKLINE(ISLASTBAR,XA_12,XA_12,10,0),COLORWHITE;

DRAWNUMBER(ISLASTBAR,XA_12,XA_12);

XA_13:=REF(CLOSE,1);

XA_14:=REF(CLOSE,1)*1.1-CLOSE< 0.01 AND HIGH=CLOSE;

STICKLINE(XA_14,OPEN,CLOSE,1,0),COLORRED;

STICKLINE(XA_14,HIGH,LOW,0,0),COLORRED;

XA_15:=IF((XA_13-CLOSE)*100/XA_13>=10-0.01*100/XA_13 AND LOW=CLOSE,1,0);

STICKLINE(XA_15,OPEN,CLOSE,1,0),COLORGREEN;

STICKLINE(XA_15,HIGH,LOW,0,1),COLORGREEN;

MA3:=MA(CLOSE,25);

MA4:=MA(CLOSE,60);

箱底:=TROUGH(CLOSE,10,1)*1.02,COLOR008888,LINETHICK2;

价低箱底:=COUNT(L< 箱底,3);

底箱:=TROUGH(CLOSE,10,1)*1.05,COLOR008888,LINETHICK1;

DRAWTEXT(价低箱底>=1 AND 箱底< MA3 AND CROSS(C,底箱),L*0.999,'●杀入'),COLOR00CCCC;

DRAWTEXT(MA3>MA4 AND 价低箱底>=1 AND 箱底< MA3 AND CROSS(C,底箱),L*0.99,'●强杀入'),COLOR00CCCC;

A1:=REF(V,1);

A2:=Dvol;

A3:=A2/A1;

LNX:=A3-REF(A3,1),COLOR00CCCC,LINETHICK1;

E1:=REF(C,1);

E2:=DCLOSE;

E3:=(E2-E1)/E1*100;

QMX:=E3-REF(E3,1),COLOR00CCCC,LINETHICK2;

XG:=CROSS(LNX,500) AND CROSS(QMX,10);

DRAWTEXT(XG=1,L*0.985,'---金指'),COLORYELLOW;

DRAWICON(XG=1,L*0.99,11);

ZF:=Abs(100*(H-L)/REF(C,1))>3;

DIF:=EMA(CLOSE,8)-EMA(CLOSE,13);

DEA:=EMA(DIF,6);

macd:=2*(DIF-DEA);

金叉:=CROSS(DIF,DEA);

死叉:=CROSS(DEA,DIF);

DIF下拐:=REF(DIF,3)< REF(DIF,2)AND REF(DIF,2)< REF(DIF,1)AND REF(DIF,1)>DIF=REF(DIF,1);

MACD下拐:=REF(DIF,3)< REF(DIF,2)AND REF(MACD,2)< REF(MACD,1)AND REF(MACD,1)>MACD=REF(MACD,1);

下拐:=MAX(DIF下拐,MACD下拐);

GD1:=EVERY(DIF>REF(DIF,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;

GD2:=EVERY(MACD>REF(MACD,1),BARSLASTCOUNT(DIF>DEA))AND DIF>DEA;

GD:=MAX(GD1,GD2);

高点1:=REF(MAX(C,O),BARSLAST(GD1)+1);

高点2:=REF(MAX(C,O),BARSLAST(GD2)+1);

高点:=IF(高点2>=高点1,高点2,高点1);

AA:=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(高点)+1)=HHV(IF(C>O,C,MAX(C,O)),BARSLASTCOUNT(bbi>REF(BBI,1)AND C>BBI));

压力:DRAWLINE(BARSLAST(AA)=0,IF(C>O,C,MAX(C,O)),BARSNEXT(AA),REF(IF(C>O,C,MAX(C,O)),BARSLAST(AA)),1),DOTLINE,COLORYELLOW;

LD1:=EVERY(DIF< REF(DIF,1),BARSLASTCOUNT(DIF< DEA))AND DIF< DEA;

LD2:=EVERY(MACD< REF(MACD,1),BARSLASTCOUNT(DIF< DEA))AND DIF< DEA;

LD:=MIN(LD1,LD2);

低点1:=REF(MIN(C,O),BARSLAST(LD1)+1);

低点2:=REF(MIN(C,O),BARSLAST(LD2)+1);

低点:=IF(低点2<=低点1,低点1,低点2);

BB:=LLV(IF(C< O,C,MIN(C,O)),BARSLASTCOUNT(LD)+1)=LLV(IF(C< O,C,MIN(C,O)),BARSLASTCOUNT(DIF< REF(DIF,1) AND BBI< REF(BBI,1) AND L< BBI));

支撑:DRAWLINE(BARSLAST(BB)=0,IF(C< O,C,MIN(C,O)),BARSNEXT(BB),REF(IF(C< O,C,MIN(C,O)),BARSLAST(BB)),1),DOTLINE,COLORGREEN;

PP1:=BARSLAST(AA)=1;

YLX:=REF(MAX(C,O),BARSLAST(PP1)+1);

突破:CROSS(C,YLX),NODRAW,COLORWHITE;

STICKLINE(突破,C,O,2,0),COLORWHITE;

DIF突破:=REF(DIF,BARSLAST(PP1)+1);

有效突破:=突破 AND DIF>DIF突破;

STICKLINE(有效突破,C,O,2,0),COLORLIRED;

PP2:=BARSLAST(BB)=1;

ZCX:=REF(MIN(C,O),BARSLAST(PP2)+1);

破位:CROSS(ZCX,C),NODRAW,COLORLIGREEN;

STICKLINE(破位,C,O,2,0),COLORLIGREEN;

PP7:=BARSLAST(破位)=1;

破位k线:=REF(O,BARSLAST(PP7)+1);

突破破位:CROSS(C,破位K线),NODRAW,COLORLIMAGENTA;

STICKLINE(突破破位 AND C>O AND MACD>REF(MACD,1),C,O,2,0),COLORLIMAGENTA;

实体:=(C-O)/C=HHV((C-O)/C,15);

阳15:=C>O AND VOL>=HHV(VOL,15);

单阳:=(C>REF(C,1)*1.035 OR 实体)AND C>O AND (阳15 OR VOL>REF(VOL,1)*1.9),NODRAW,COLORYELLOW;

低不破价:=REF(O,BARSLAST(单阳));

单阳不破:=CURRBARSCOUNT< 100 AND BARSLAST(单阳)< 11 AND LLV(C,BARSLAST(单阳))>=低不破价;

DRAWTEXT(BARSLAST(单阳)=01 AND 单阳不破,低不破价,'[1]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=02 AND 单阳不破,低不破价,'[2]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=03 AND 单阳不破,低不破价,'[3]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=04 AND 单阳不破,低不破价,'[4]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=05 AND 单阳不破,低不破价,'[5]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=06 AND 单阳不破,低不破价,'[6]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=07 AND 单阳不破,低不破价,'[7]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=08 AND 单阳不破,低不破价,'[8]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=09 AND 单阳不破,低不破价,'[9]'),COLORLIGRAY;

DRAWTEXT(BARSLAST(单阳)=10 AND 单阳不破,低不破价,'[10]'),COLORLIGRAY;

原理解析：
STICKLINE(L>1日前的H ,1日前的H,L,9,-1),COLORFD00DF
STICKLINE(H< 1日前的L ,1日前的L,H,9,-1),COLORFDFD00
DRAWKLINE(H,O,L,C)
XA_1赋值:最高价
XA_2赋值:最低价
XA_3赋值:10日前的XA_1=2*10+1日内XA_1最高值
XA_4赋值:XA_3的10过滤
XA_5赋值:BACKSET(XA_4,10+1)
XA_6赋值:XA_5的10过滤
XA_7赋值:10日前的XA_2=2*10+1日内XA_2最低值
XA_8赋值:XA_7的10过滤
XA_9赋值:BACKSET(XA_8,10+1)
XA_10:=XA_9的10过滤
输出前期高位:REF(最高价,上次XA_6距今天数),POINTDOT,画红色
当满足条件最高价时,在前期高位和前期高位之间画柱状线
输出前期低位:REF(最低价,上次XA_10距今天数),POINTDOT,画绿色
当满足条件最低价时,在前期低位和前期低位之间画柱状线
DRAWNUMBER(XA_5的10过滤,最高价,最高价),LINETHICK9
DRAWNUMBER(XA_9的10过滤,最低价,最低价)
输出选股1:收盘价上穿前期高位,NODRAW
输出选股2:收盘价>1日前的前期低位 AND CROSS(1日前的前期低位,最低价),NODRAW
当满足条件选股1时,在开盘价和收盘价之间画柱状线
当满足条件选股1时,在最高价和最低价之间画柱状线
当满足条件选股2时,在开盘价和收盘价之间画柱状线
当满足条件选股2时,在最高价和最低价之间画柱状线
输出出场1:收盘价< 1日前的前期高位 AND CROSS(最高价,1日前的前期高位),NODRAW
当满足条件出场1时,在开盘价和收盘价之间画柱状线
输出出场2:前期低位上穿收盘价,NODRAW
当满足条件出场2时,在开盘价和收盘价之间画柱状线
XA_11:=(开盘价+收盘价)/2
XA_12:=1日前的XA_11
当满足条件ISLASTBAR时,在XA_12和XA_12之间画柱状线
DRAWNUMBER(ISLASTBAR,XA_12,XA_12)
XA_13:=1日前的收盘价
XA_14:=1日前的收盘价*1.1-收盘价< 0.01 AND 最高价=收盘价
当满足条件XA_14时,在开盘价和收盘价之间画柱状线
当满足条件XA_14时,在最高价和最低价之间画柱状线
XA_15:=IF((XA_13-收盘价)*100/XA_13>=10-0.01*100/XA_13 AND 最低价=收盘价,1,0)
当满足条件XA_15时,在开盘价和收盘价之间画柱状线
当满足条件XA_15时,在最高价和最低价之间画柱状线
MA3赋值:收盘价的25日简单移动平均
MA4赋值:收盘价的60日简单移动平均
箱底赋值:TROUGH(收盘价,10,1)*1.02,COLOR008888, 线宽为2
价低箱底赋值:统计3日满足L< 箱底的天数
底箱赋值:TROUGH(收盘价,10,1)*1.05,COLOR008888,LINETHICK1
DRAWTEXT(价低箱底>=1 AND 箱底< MA3 AND C上穿底箱,L*0.999,'●杀入'),COLOR00CCCC
DRAWTEXT(MA3>MA4 AND 价低箱底>=1 AND 箱底< MA3 AND C上穿底箱,L*0.99,'●强杀入'),COLOR00CCCC
A1赋值:1日前的V
A2赋值:D成交量
A3赋值:A2/A1
LNX赋值:A3-1日前的A3,COLOR00CCCC,LINETHICK1
E1赋值:1日前的C
E2赋值:D收盘价
E3赋值:(E2-E1)/E1*100
QMX赋值:E3-1日前的E3,COLOR00CCCC, 线宽为2
XG赋值:LNX上穿500 AND QMX上穿10
当满足条件XG=1时,在L*0.985和'---金指'位置书写文字
当满足条件XG=1时,在L*0.99和11之间画图标
ZF赋值:100*(H-L的绝对值/1日前的C)>3
DIF赋值:收盘价的8日指数移动平均-收盘价的13日指数移动平均
DEA赋值:DIF的6日指数移动平均
MACD赋值:2*(DIF-DEA)
金叉赋值:DIF上穿DEA
死叉赋值:DEA上穿DIF
DIF下拐赋值:3日前的DIF< 2日前的DIFAND 2日前的DIF< 1日前的DIFAND 1日前的DIF>DIF=1日前的DIF
MACD下拐赋值:3日前的DIF< 2日前的DIFAND 2日前的MACD< 1日前的MACDAND 1日前的MACD>MACD=1日前的MACD
下拐赋值:DIF下拐和MACD下拐较大值
GD1赋值:EVERY(DIF>1日前的DIF,BARSLASTCOUNT(DIF>DEA))AND DIF>DEA
GD2赋值:EVERY(MACD>1日前的MACD,BARSLASTCOUNT(DIF>DEA))AND DIF>DEA
GD赋值:GD1和GD2较大值
高点1赋值:REF(C和O较大值,上次GD1距今天数+1)
高点2赋值:REF(C和O较大值,上次GD2距今天数+1)
如果高点2>=高点1返回高点2否则返回高点1
AA赋值:HHV(IF(C>O,C,C和O较大值),BARSLASTCOUNT(高点)+1)=HHV(IF(C>O,C,C和O较大值),BARSLASTCOUNT(BBI>1日前的BBIAND C>BBI))
输出压力:DRAWLINE(上次AA距今天数=0,IF(C>O,C,C和O较大值),BARSNEXT(AA),REF(IF(C>O,C,C和O较大值),上次AA距今天数),1),DOTLINE,画黄色
LD1赋值:EVERY(DIF< 1日前的DIF,BARSLASTCOUNT(DIF< DEA))AND DIF< DEA
LD2赋值:EVERY(MACD< 1日前的MACD,BARSLASTCOUNT(DIF< DEA))AND DIF< DEA
LD赋值:LD1和LD2的较小值
低点1赋值:REF(C和O的较小值,上次LD1距今天数+1)
低点2赋值:REF(C和O的较小值,上次LD2距今天数+1)
如果低点2<=低点1返回低点1否则返回低点2
BB赋值:LLV(IF(C< O,C,C和O的较小值),BARSLASTCOUNT(LD)+1)=LLV(IF(C< O,C,C和O的较小值),BARSLASTCOUNT(DIF< 1日前的DIF AND BBI< 1日前的BBI AND L< BBI))
输出支撑:DRAWLINE(上次BB距今天数=0,IF(C< O,C,C和O的较小值),BARSNEXT(BB),REF(IF(C< O,C,C和O的较小值),上次BB距今天数),1),DOTLINE,画绿色
PP1赋值:上次AA距今天数=1
YLX赋值:REF(C和O较大值,上次PP1距今天数+1)
输出突破:C上穿YLX,NODRAW,画白色
当满足条件突破时,在C和O之间画柱状线
DIF突破赋值:REF(DIF,上次PP1距今天数+1)
有效突破赋值:突破 AND DIF>DIF突破
当满足条件有效突破时,在C和O之间画柱状线
PP2赋值:上次BB距今天数=1
ZCX赋值:REF(C和O的较小值,上次PP2距今天数+1)
输出破位:ZCX上穿C,NODRAW,COLORLIGREEN
当满足条件破位时,在C和O之间画柱状线
PP7赋值:上次破位距今天数=1
破位K线:=REF(O,上次PP7距今天数+1)
突破输出破位:C上穿破位K线,NODRAW,COLORLIMAGENTA
STICKLINE(突破破位 AND C>O AND MACD>1日前的MACD,C,O,2,0),COLORLIMAGENTA
实体赋值:(C-O)/C=HHV((C-O)/C,15)
阳15赋值:C>O AND 成交量>=15日内成交量最高值
单阳赋值:(C>1日前的C*1.035 OR 实体)AND C>O AND (阳15 OR 成交量>1日前的成交量*1.9),NODRAW,画黄色
低不破价赋值:REF(O,上次单阳距今天数)
单阳不破:= 到最后交易的周期< 100 AND 上次单阳距今天数< 11 AND LLV(C,上次单阳距今天数)>=低不破价
DRAWTEXT(上次单阳距今天数=01 AND 单阳不破,低不破价,'[1]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=02 AND 单阳不破,低不破价,'[2]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=03 AND 单阳不破,低不破价,'[3]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=04 AND 单阳不破,低不破价,'[4]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=05 AND 单阳不破,低不破价,'[5]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=06 AND 单阳不破,低不破价,'[6]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=07 AND 单阳不破,低不破价,'[7]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=08 AND 单阳不破,低不破价,'[8]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=09 AND 单阳不破,低不破价,'[9]'),COLORLIGRAY
DRAWTEXT(上次单阳距今天数=10 AND 单阳不破,低不破价,'[10]'),COLORLIGRAY