通达信最好用的主图指标公式源码

N:=3;{逻辑周期参数调整为3}

A1:=REF(HIGH,N)=HHV(HIGH,2*N+1);

B1:=FILTER(A1,N);

C1:=BACKSET(B1,N+1);

D1:=FILTER(C1,N);

A2:=REF(LOW,N)=LLV(LOW,2*N+1);

B2:=FILTER(A2,N);

C2:=BACKSET(B2,N+1);

D2:=FILTER(C2,N);

E1:=(REF(LLV(LOW,2*N),1)+REF(HHV(HIGH,2*N),1))/2;

E2:=(HIGH+LOW)/2;

H1:=(D1 AND NOT(D2 AND E1>=E2)) OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;

L1:=(D2 AND NOT(D1 AND E1<E2));

H2:=(D1 AND NOT(D2 AND E1>=E2));

X1:=REF(BARSLAST(H1),1)+1;

F1:=BACKSET(H1 AND COUNT(L1,X1)>0,LLVBARS(IF(L1,LOW,10000),X1));

G1:=F1>REF(F1,1);

I1:=BACKSET(G1,2);

LD:=I1>REF(I1,1);

L2:=LD OR ISLASTBAR OR BARSCOUNT(CLOSE)=1;

X2:=REF(BARSLAST(L2),1)+1;

F2:=BACKSET(L2 AND COUNT(H2,X2)>0,HHVBARS(IF(H2,HIGH,0),X2));

G2:=F2>REF(F2,1);

I2:=BACKSET(G2,2);

HD:=I2>REF(I2,1);

J1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HD),BARSLAST(LD))+1);

J2:=J1>REF(J1,1);

A3:=H<REF(H,REF(BARSLAST(HD),1)+1);

B3:=REF(H,REF(BARSLAST(HD),1)+1)>REF(H,REF(BARSLAST(HD),1)+2+REF(BARSLAST(HD),REF(BARSLAST(HD),1)+2));

D3:=A3 AND B3 AND HD;

E3:=BACKSET(D3,REF(BARSLAST(HD),1)+2);

HH:=E3>REF(E3,1);

A4:=L>REF(L,REF(BARSLAST(LD),1)+1);

B4:=REF(L,REF(BARSLAST(LD),1)+1)<REF(L,REF(BARSLAST(LD),1)+2+REF(BARSLAST(LD),REF(BARSLAST(LD),1)+2));

D4:=A4 AND B4 AND LD;

E4:=BACKSET(D4,REF(BARSLAST(LD),1)+2);

LL:=E4>REF(E4,1);

H3:=HH OR ISLASTBAR OR BARSCOUNT(C)=1;

X3:=REF(BARSLAST(H3),1)+1;

F3:=BACKSET(H3 AND COUNT(LL,X3)>0,LLVBARS(IF(LL,L,POW(10,20)),X3));

G3:=F3>REF(F3,1); 

I3:=BACKSET(G3,2);

LZ:=I3>REF(I3,1);

L4:=LZ OR ISLASTBAR OR BARSCOUNT(C)=1;

X4:=REF(BARSLAST(L4),1)+1;

F4:=BACKSET(L4 AND COUNT(HH,X4)>0,HHVBARS(IF(HH,H,-POW(10,20)),X4));

G4:=F4>REF(F4,1);

I4:=BACKSET(G4,2);

HZ:=I4>REF(I4,1);

K1:=BACKSET(ISLASTBAR,MIN(BARSLAST(HZ),BARSLAST(LZ))+1);

K2:=K1>REF(K1,1);

UU:=BACKSET(ISLASTBAR,BARSLAST(LD)+1);

VV:=UU>REF(UU,1);

WW:=BACKSET(VV,REF(BARSLAST(LD),1)+2);

XX:=WW>REF(WW,1);

UU2:=BACKSET(ISLASTBAR,BARSLAST(HD)+1);

VV2:=UU2>REF(UU2,1);

WW2:=BACKSET(VV2,REF(BARSLAST(HD),1)+2);

XX2:=WW2>REF(WW2,1);

YY:=BACKSET(XX,REF(BARSLAST(LD),1)+2);

ZZ:=YY>REF(YY,1);{前三低天数}

YY2:=BACKSET(XX2,REF(BARSLAST(HD),1)+2);

ZZ2:=YY2>REF(YY2,1);{前三高天数}

前一低:=REF(L,BARSLAST(VV));

前二低:=REF(L,BARSLAST(XX));

前一高:=REF(H,BARSLAST(VV2));

前二高:=REF(H,BARSLAST(XX2));

前三低:=REF(L,BARSLAST(ZZ));

前三高:=REF(H,BARSLAST(ZZ2));

DQD1:CONST(BARSLAST(VV)),NODRAW;

DQD2:=CONST(BARSLAST(XX));

DQH1:CONST(BARSLAST(VV2)),NODRAW;

DQH2:=CONST(BARSLAST(XX2));

DQH3:=CONST(BARSLAST(ZZ2));

DQD3:=CONST(BARSLAST(ZZ2));

HQD1:=REF(L,BARSLAST(VV));

HQD2:=REF(L,BARSLAST(XX));

HQH1:=REF(H,BARSLAST(VV2));

HQH2:=REF(H,BARSLAST(XX2));

HQH3:=REF(H,BARSLAST(ZZ2));

HQD3:=REF(L,BARSLAST(ZZ));

{-----通用模块-缠论笔画连线---}

XAA1:DRAWLINE(CURRBARSCOUNT=(IF(DQH1>DQD1,CONST(BARSLAST(XX2)+1),CONST(BARSLAST(XX))+1)),(IF(DQH1>DQD1,前二高,前二低)),CURRBARSCOUNT=IF(DQH1>DQD1,CONST(BARSLAST(XX))+1,CONST(BARSLAST(XX2))+1),(IF(DQH1>DQD1,前二低,前二高)),0),COLORRED,LINETHICK1;{前一高一低连线}

XAA2:DRAWLINE(CURRBARSCOUNT=(IF(DQH1>DQD1,CONST(BARSLAST(XX)+1),CONST(BARSLAST(XX2))+1)),(IF(DQH1>DQD1,前二低,前二高)),CURRBARSCOUNT=IF(DQH1>DQD1,CONST(BARSLAST(VV2))+1,CONST(BARSLAST(VV))+1),(IF(DQH1>DQD1,前一高,前一低)),0),COLORRED,LINETHICK1;{前一高一低连线}

XAA3:DRAWLINE(CURRBARSCOUNT=(IF(DQH1>DQD1,CONST(BARSLAST(VV2)+1),CONST(BARSLAST(VV))+1)),(IF(DQH1>DQD1,前一高,前一低)),CURRBARSCOUNT=IF(DQH1>DQD1,CONST(BARSLAST(VV))+1,CONST(BARSLAST(VV2))+1),(IF(DQH1>DQD1,前一低,前一高)),1),DOTLINE,COLORRED;{前一高一低连线}

XAA4:DRAWLINE(CURRBARSCOUNT=(IF(DQH1>DQD1,CONST(BARSLAST(VV2)+1),CONST(BARSLAST(VV))+1)),(IF(DQH1>DQD1,前一高,前一低)),CURRBARSCOUNT=IF(DQH1>DQD1,CONST(BARSLAST(VV))+1,CONST(BARSLAST(VV2))+1),(IF(DQH1>DQD1,前一低,前一高)),0),COLORRED,LINETHICK3;{前一高一低连线}

{********最后一笔逻辑判断提示****开始*****}

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1,0.02,0.01,0,STRCAT('【最后一笔主形态】','【**下跌**】')),COLORMAGENTA;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1,0.02,0.01,0,STRCAT('【最后一笔主形态】','【**上升**】')),COLORMAGENTA;

{********最后一笔逻辑判断提示****结束*****}

{********最后形态识别提示***开始******}

{---下跌反弹测卖箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.08,0,STRCAT('【形态识别】:【收盘价未突破箱体】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.15,0,STRCAT('【操盘策略】:【短线看跌】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.22,0,STRCAT('【适用模型】:','【下跌反弹测卖点】')),COLORRED;

{---下跌反转突破测卖箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C>CONST(HQH1),0.02,0.08,0,STRCAT('【形态识别】:【收盘价破前高点】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C>CONST(HQH1),0.02,0.15,0,STRCAT('【操盘策略】:【短线看涨】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C>CONST(HQH1),0.02,0.22,0,STRCAT('【预测模型】:','【下跌转涨测卖点】')),COLORRED;

{---下跌跌破箱底测买箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C<CONST(HQD1),0.02,0.08,0,STRCAT('【形态识别】:【收盘价破前低点】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C<CONST(HQD1),0.02,0.15,0,STRCAT('【操盘策略】:【短线看跌】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1>DQD1 AND C<CONST(HQD1),0.02,0.22,0,STRCAT('【预测模型】:','【下跌寻底测买点】')),COLORRED;

{---上升回调测买箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.08,0,STRCAT('【形态识别】:【收盘价未破高低点】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.15,0,STRCAT('【操盘策略】:【短线看跌】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND BETWEEN(C,CONST(HQH1),CONST(HQD1)),0.02,0.22,0,STRCAT('【预测模型】:','【上升回调测买点】')),COLORRED;

{---上升突破测卖箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C>CONST(HQH1),0.02,0.08,0,STRCAT('【形态识别】:【收盘价突破前高点】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C>CONST(HQH1),0.02,0.15,0,STRCAT('【操盘策略】:【短线看涨】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C>CONST(HQH1),0.02,0.22,0,STRCAT('【预测模型】:','【突破上涨测卖点】')),COLORRED;

{---上升反转下跌测买箱体模型形态识别-操盘策略-预测模型---}

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C<CONST(HQD1),0.02,0.08,0,STRCAT('【形态识别】:【收盘价破前低点】',' ')),COLORGREEN;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C<CONST(HQD1),0.02,0.15,0,STRCAT('【操盘策略】:【短线看跌】',' ')),COLORYELLOW;

DRAWTEXT_FIX(ISLASTBAR AND DQH1<DQD1 AND C<CONST(HQD1),0.02,0.22,0,STRCAT('【预测模型】:','【上升转跌测买点】')),COLORRED;

{********最后形态识别提示***结束******}

{********通用模块-画出回或反弹的矩形图******开始*********}

GDH8:=CONST(HQH1),NODRAW;{最近一笔的高点}

DDL8:=CONST(HQD1),NODRAW;{最近一笔的低点}

MIMA8:=GDH8/DDL8;

GH801:=SQRT(MIMA8);

GH802:=SQRT(GH801);

GH803:=(GH801+GH802-1);

{---画出预测上升或回调的点位---}

XHTCS1:=IF(DQD1>DQH1,CONST(GDH8/GH801),CONST(DDL8*GH801));{上升回调或下跌反弹计算反弹1号位置}

XHTCS2:=IF(DQD1>DQH1,CONST(GDH8/GH802),CONST(DDL8*GH802));{上升回调或下跌反弹计算反弹2号位置}

XHTCS3:=IF(DQD1>DQH1,CONST(GDH8/GH803),CONST(DDL8*GH803));{上升回调或下跌反弹计算反弹3号位置}

{--通用模块--画出压力线和支撑线--}

SZHTW0:DRAWLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(HQH1),CURRBARSCOUNT=ISLASTBAR,CONST(HQH1),1),COLORMAGENTA;{画压力线}

SZHTW4:DRAWLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(HQD1),CURRBARSCOUNT=ISLASTBAR,CONST(HQD1),1),COLORMAGENTA;{画支撑线}

{--通用模块-画出回调或反弹的水平线--}

SZHTW1:DRAWLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(XHTCS1),CURRBARSCOUNT=ISLASTBAR,CONST(XHTCS1),1),COLORRED;{画回调或反弹水平线}

SZHTW2:DRAWLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(XHTCS2),CURRBARSCOUNT=ISLASTBAR,CONST(XHTCS2),1),COLORRED;{画回调或反弹水平线}

SZHTW3:DRAWLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(XHTCS3),CURRBARSCOUNT=ISLASTBAR,CONST(XHTCS3),1),COLORRED;{画回调或反弹水平线}

{---通用模块-标注矩形左-中-右三个竖线---}

STICKLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+1,CONST(DQH2)+1),CONST(HQH1),CONST(HQD1),0,0),COLORRED;{矩形左竖线}

STICKLINE(ISLASTBAR,CONST(HQH1),CONST(HQD1),0,0),COLORRED;{矩形右竖线}

STICKLINE(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD1)+1,CONST(DQH1)+1),IF(DQD1<DQH1,CONST(HQD1),CONST(HQH1)),CONST(HQD1),0,1),COLORRED;{矩形中间竖线}

{********通用模块画回调矩形******结束*********}

{********通用模块****主图画K线提示***开始******}

STICKLINE(C>O,C,O,2.5,0),COLORRED;{上涨}

STICKLINE(C<O,C,O,2.5,0),COLORGRAY;{下跌}

STICKLINE(C=O,C,O,2.5,0),COLORWHITE;{**变盘点**}

STICKLINE(C>O,H,L,0,0),COLORRED;{上涨}

STICKLINE(C<O,H,L,0,0),COLORGRAY;{下跌}

STICKLINE(C=O,H,L,0,0),COLORWHITE;{变盘}

HTBZ01:=STRCAT('压力位:',CON2STR(CONST(HQH1),2));{标注点位及数值}

HTBZ02:=STRCAT('回调位:',CON2STR(CONST(XHTCS1),2));{标注点位及数值}

HTBZ03:=STRCAT('弱回调:',CON2STR(CONST(XHTCS2),2));{标注点位及数值}

HTBZ04:=STRCAT('强回调:',CON2STR(CONST(XHTCS3),2));{标注点位及数值}

HTBZ05:=STRCAT('支撑位:',CON2STR(CONST(HQD1),2));{标注点位及数值}

DRAWTEXT(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+5,CONST(DQH2)+5),CONST(HQH1),HTBZ01),COLORRED,DRAWABOVE;{画点}

DRAWTEXT(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+5,CONST(DQH2)+5),CONST(XHTCS1),HTBZ02),COLORMAGENTA,DRAWABOVE;{画点}

DRAWTEXT(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+5,CONST(DQH2)+5),CONST(XHTCS2),HTBZ03),COLORWHITE,DRAWABOVE;{画点}

DRAWTEXT(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+5,CONST(DQH2)+5),CONST(XHTCS3),HTBZ04),COLORGREEN,DRAWABOVE;{画点}

DRAWTEXT(CURRBARSCOUNT=IF(DQD1<DQH1,CONST(DQD2)+5,CONST(DQH2)+5),CONST(HQD1),HTBZ05),COLORRED,DRAWABOVE;{画点};

{---通用模块-左侧支撑压力位标注--结束-}

{********通用模块-最近4个高低点******开始*********}

DDD1:=STRCAT('买1:',CON2STR(CONST(HQD1),2));{标注最近一低点位置及数值}

DDD2:=STRCAT('买2:',CON2STR(CONST(HQD2),2));{标注最近二低点位置及数值}

HHH1:=STRCAT('卖1:',CON2STR(CONST(HQH1),2));{标注最近一高点位置及数值}

HHH2:=STRCAT('卖2:',CON2STR(CONST(HQH2),2));{标注最近二高点位置及数值}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1,L*0.99,DDD1),COLORYELLOW;{标注最近一底点位置及数值}

{DRAWTEXT(CURRBARSCOUNT=CONST(DQD2)+1,L*0.99,DDD2),COLORYELLOW;}{标注最近二底点位置及数值}

DRAWTEXT(CURRBARSCOUNT=CONST(DQH1)+1,H*1.01,HHH1),COLORGREEN;{标注最近一高点位置及数值}

{DRAWTEXT(CURRBARSCOUNT=CONST(DQH2)+1,H*1.01,HHH2),COLORGREEN;}{标注最近二高点位置及数值}

{********通用模块-最近4个高低点******结束*********};

CXGDW01:=CONST(HQD1)*(2*CONST(GH801)*CONST(GH801)-1),NODRAW;{台阶模型预测}

CXGDW011:=CONST(HQD1)*(2*CONST(GH802)*CONST(GH802)-1),NODRAW;{台阶模型预测}

CXGDW012:=CONST(HQD1)*(2*CONST(GH803)*CONST(GH803)-1),NODRAW;{台阶模型预测}

CXGDW03:=IF(CONST(DQD1)>CONST(DQH1),CONST(HQH2),CONST(HQH1))*CONST(HQD1)/CONST(HQD2),NODRAW;{近四边形预测}

CXGDW04:=IF(CONST(DQD1)>CONST(DQH1),CONST(HQH3),CONST(HQH2))*CONST(HQD1)/CONST(HQD2),NODRAW;{远四边形预测};

适用条件:IF(ISLASTBAR AND H>CONST(HQH1),1,0),NODRAW;

台阶预测1:=IF(适用条件>0 AND CXGDW01>CONST(HQH1),CXGDW01,DRAWNULL),NODRAW;

台阶预测2:=IF(适用条件>0 AND CXGDW011>CONST(HQH1),CXGDW011,DRAWNULL),NODRAW;

台阶预测3:=IF(适用条件>0 AND CXGDW012>CONST(HQH1),CXGDW012,DRAWNULL),NODRAW;

四边形预测1:=IF(适用条件>0 AND CXGDW03>CONST(HQH1),CXGDW03,DRAWNULL),NODRAW;

四边形预测2:=IF(适用条件>0 AND CXGDW04>CONST(HQH1),CXGDW04,DRAWNULL),NODRAW;

TTT:=IF(适用条件>0,MAX(CXGDW01,MAX(CXGDW011,MAX(CXGDW012,MAX(CXGDW03,CXGDW04)))),DRAWNULL);

STICKLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(HQD1),CONST(TTT),0,1),COLORRED;{画上升竖线}

正常位:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(台阶预测1),ISLASTBAR,CONST(台阶预测1),0),COLORRED;{预测高点位}

弱势位:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(台阶预测2),ISLASTBAR,CONST(台阶预测2),0),COLORRED;{预测高点位}

强势位:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(台阶预测3),ISLASTBAR,CONST(台阶预测3),0),COLORRED;{预测高点位}

小四位:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(四边形预测1),ISLASTBAR,CONST(四边形预测1),0),COLORRED;{预测高点位}

大四位:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(四边形预测2),ISLASTBAR,CONST(四边形预测2),0),COLORRED;{预测高点位}

TJYC02:=STRCAT('目标位:',CON2STR(CONST(正常位),2));{标注点位及数值}

TJYC03:=STRCAT('弱势位:',CON2STR(CONST(弱势位),2));{标注点位及数值}

TJYC01:=STRCAT('强势位:',CON2STR(CONST(强势位),2));{标注点位及数值}

HDYC01:=STRCAT('右低翅:',CON2STR(CONST(小四位),2));{标注点位及数值}

HDYC02:=STRCAT('右高翅:',CON2STR(CONST(大四位),2));{标注点位及数值}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1 AND 正常位>0,正常位*0.99,TJYC02),COLORRED;{画点}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1 AND 弱势位>0,弱势位*0.99,TJYC03),COLORGREEN;{画点}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1 AND 强势位>0,强势位*0.99,TJYC01),COLORYELLOW;{画点}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1 AND 小四位>0,小四位*0.99,HDYC01),COLORMAGENTA;{画点}

DRAWTEXT(CURRBARSCOUNT=CONST(DQD1)+1 AND 大四位>0,大四位*0.99,HDYC02),COLORWHITE;{画点};

上升斜线:DRAWLINE(CURRBARSCOUNT=CONST(DQD1)+1,CONST(HQD1),ISLASTBAR,CONST(TTT),0),COLORWHITE,DOTLINE,LINETHICK1;{上升斜线};