通达信操盘乾坤主图

以下是通达信操盘乾坤主图

通达信操盘乾坤主图

源码

{安全建仓区}

RSV1:=(CLOSE-LLV(LOW,30))/(HHV(HIGH,30)-LLV(LOW,30))*100;

K11:=SMA(RSV1,3,1);

D11:=SMA(K11,3,1);

TJ:=D11<10;

TJ1:=D11>90;

安上线:IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),COLORWHITE,NODRAW;

安下线:IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),COLORWHITE,NODRAW;

安全带:STICKLINE(D11,安上线*0.996,安下线*1.005,8,0),COLORBROWN;

TY:=C;

HD:=FILTER(BACKSET(FILTER(REF(TY,10)=HHV(TY,2*10+1),10),10+1),10);

LD:=FILTER(BACKSET(FILTER(REF(TY,10)=LLV(TY,2*10+1),10),10+1),10);

A:=REF(C,BARSLAST(HD));

B:=REF(C,BARSLAST(LD));

T1:=BARSLAST(HD)<BARSLAST(LD) AND NOT(HD) ;

T2:=BARSLAST(HD)>BARSLAST(LD) AND NOT(LD);

浪顶:IF(T1,A,A),COLORFF00FF,DOTLINE;

前高:REF(H,BARSLAST(HD)),COLORFF00FF;

{STICKLINE(T1,A,A,9,0),COLORFF00FF;}

浪底:IF(T2,B,B)COLORGREEN,DOTLINE;

前低:REF(L,BARSLAST(LD)),LINETHICK1,COLORGREEN;

DRAWBAND(前高,RGB(030,100,030),浪顶,DRAWNULL);

DRAWBAND(浪底,RGB(100,00,45),前低,DRAWNULL);

{周框}

ZD:=DATE#WEEK;

ZH:=H#WEEK;

ZL:=L#WEEK;

K0:=ZD>REF(ZD,1) OR BARSSINCE(C)=0;

K1:=REFX(K0,1) OR ISLASTBAR;

S1:=MOD(SUM(K0,0),2);

N1:=20;

S2:=BACKSET(ISLASTBAR,SUMBARS(K0,N1));

STICKLINE((K0 OR K1) AND S2,ZH,ZL,0,-1),COLORFFFFFF;

DRAWLINE(K0 AND S1=1 AND S2,ZH,K1 AND S1=1 AND S2,ZH,0),COLORFFFFFF;

DRAWLINE(K0 AND S1=1 AND S2,ZL,K1 AND S1=1 AND S2,ZL,0),COLORFFFFFF;

DRAWLINE(K0 AND S1=0 AND S2,ZH,K1 AND S1=0 AND S2,ZH,0),COLORFFFFFF;

DRAWLINE(K0 AND S1=0 AND S2,ZL,K1 AND S1=0 AND S2,ZL,0),COLORFFFFFF;

{趋势+趋势K}

SJTJ:=DATE<1590301;

MAH:=(H*18+REF(H,1)*17+REF(H,2)*16+REF(H,3)*15+REF(H,4)*14+REF(H,5)*13+REF(H,6)*12+REF(H,7)*11+REF(H,8)*10+REF(H,9)*9+REF(H,10)*8+REF(H,11)*7+REF(H,12)*6+REF(H,13)*5+REF(H,14)*4+REF(H,15)*3+REF(H,16)*2+REF(H,17)*1)/171;

MAL:=(L*18+REF(L,1)*17+REF(L,2)*16+REF(L,3)*15+REF(L,4)*14+REF(L,5)*13+REF(L,6)*12+REF(L,7)*11+REF(L,8)*10+REF(L,9)*9+REF(L,10)*8+REF(L,11)*7+REF(L,12)*6+REF(L,13)*5+REF(L,14)*4+REF(L,15)*3+REF(L,16)*2+REF(L,17)*1)/171;

MA5:=MA(CLOSE,5);

MA10:=MA(CLOSE,10);

MA20:=MA(CLOSE,20);

MA60:=MA(CLOSE,60);

DK:= SJTJ AND( CLOSE>=MAH OR (C>MA5 AND C>MA10 AND C>MA20 AND C>MA60));

KK:= SJTJ AND( MAL>CLOSE OR (C<MA5 AND C<MA10 AND C<MA20 AND C<MA60));

DK1:=BARSLAST(DK);

KK1:=BARSLAST(KK);

DK2:=BARSLAST(CROSS(KK1,DK1));

KK2:=BARSLAST(CROSS(DK1,KK1));

HS:=DK2<KK2;

LS:=KK2<DK2;

W2:=OPEN-CLOSE;

HT:=IF(OPEN>CLOSE,OPEN,CLOSE);

LT:=IF(OPEN<CLOSE,OPEN,CLOSE);

{趋升K}

STICKLINE(W2>0 AND HS,OPEN,CLOSE,2,0),COLORRED;

STICKLINE(W2>0 AND HS,OPEN,H,0.0,0),COLORRED;

STICKLINE(W2>0 AND HS,C,L,0.0,0),COLORRED;

STICKLINE(W2<=0 AND HS,OPEN,CLOSE,2,1),COLORRED;

STICKLINE(W2<=0 AND HS,O,L,0.0,0),COLORRED;

STICKLINE(W2<=0 AND HS,C,H,0.0,0),COLORRED;

STICKLINE(W2>0 AND LS,OPEN,CLOSE,2,0)COLORCYAN;

STICKLINE(W2>0 AND LS,OPEN,H,0.0,0)COLORCYAN;

STICKLINE(W2>0 AND LS,C,L,0.0,0)COLORCYAN;

STICKLINE(W2<=0 AND LS,OPEN,CLOSE,2,1)COLORCYAN;

STICKLINE(W2<=0 AND LS,C,H,0.0,0)COLORCYAN;

STICKLINE(W2<=0 AND LS,O,L,0.0,0)COLORCYAN;

DRAWNUMBER(ISLASTBAR AND LS,MAH,MAH),COLORYELLOW;

DRAWNUMBER(ISLASTBAR AND HS,MAL,MAL),COLORYELLOW;

最新价:IF(SJTJ, C,DRAWNULL),LINETHICK0,COLORYELLOW;

趋势线:=(MAH+MAL)/2 COLORGREEN,LINETHICK1;

趋升:IF(HS,趋势线,DRAWNULL),LINETHICK1,COLORYELLOW;

趋降:IF(LS,趋势线,DRAWNULL),LINETHICK1,COLORCYAN;

DRAWTEXT_FIX(ISLASTBAR,0,0,0,ZDBLOCK),COLORYELLOW;

{非常棒}

EMA13:=EMA(C,13),COLORWHITE;

EMA21:=EMA(C,21),COLORYELLOW;

EMA34:=EMA(C,34),COLORFF00FF;

EMA60:=MA(C,60),COLORFFCC66;

VAR2:=(2*CLOSE+HIGH+LOW)/4;

VAR3:=IF(YEAR>=2099 AND MONTH>2,0,1);

VAR4:=LLV(LOW,5); VAR5:=HHV(HIGH,4);

散户:=EMA((VAR2-VAR4)/(VAR5-VAR4)*100,4)*VAR3;

庄家:=EMA(0.667*REF(散户,1)+0.333*散户,2)*VAR3;

DRAWTEXT(CROSS(散户,庄家) AND 散户<30,L-0.05,'←买'),COLORLIRED;

DRAWTEXT(CROSS(庄家,散户) AND 散户>70,H+0.05,'←抛'),COLORGREEN;

VAR9:=CLOSE-REF(CLOSE,5);

VARA:=EMA(EMA(VAR9,5),5)/EMA(EMA(ABS(VAR9),5),5);

VARC:=EMA(EMA(VAR9,20),20)/EMA(EMA(ABS(VAR9),20),20);

卖出:=IF(VARA>0 AND CROSS(VARC,VARA),90,100);

{DRAWICON(卖出<0,H+0.05,2);}

买线:=EMA(CLOSE,2);

卖线:=EMA(SLOPE(CLOSE,21)*20+CLOSE,42);

底1:IF(CROSS(买线,卖线),L-0.02,DRAWNULL),CIRCLEDOT,LINETHICK3,COLORMAGENTA;

DRAWTEXT(CROSS(买线,卖线)AND V/REF(V,1)>=2.0,L*0.98,'起爆'),COLORYELLOW;

顶:IF(CROSS(80,RSI)*30,H+0.02,DRAWNULL),CIRCLEDOT,LINETHICK5,COLORYELLOW;

VC:=((CLOSE-MA(CLOSE,6))/MA(CLOSE,6)*100+(CLOSE-MA(CLOSE,24))/MA(CLOSE,24)*100+(CLOSE-MA (CLOSE,32))/MA(CLOSE,32)*100)/3;

顶1:IF(VC>20 AND FILTER(VC< REF(VC,1),5),H+0.02,DRAWNULL),POINTDOT,LINETHICK9,COLORGREEN;

A0:=(L+H+C*2)/4;

A1B:EMA(A0,14),COLORGREEN,LINETHICK1;

A2B:=EMA(A0,25),COLORLIBLUE,LINETHICK2;

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

A2X:=(A2B-REF(A2B,1))/REF(A2B,1)*100,NODRAW;

看多:IF(A1X>=0 AND BARSLAST(CROSS(A1X,0))>0,REF((C+O)/2,BARSLAST(CROSS(A1X,0))),DRAWNULL),COLORYELLOW,LINETHICK2;

逃顶:IF(A1X<0 AND BARSLAST(CROSS(0,A1X))>0,REF((C+O)/2,BARSLAST(CROSS(0,A1X))),DRAWNULL),COLORGREEN,LINETHICK2;

持股:IF(A1X>=0,A1B,DRAWNULL)COLORRED,LINETHICK1;

空仓:IF(A1X<0 AND A2X<0,A1B,DRAWNULL)COLORGREEN,LINETHICK2;

STICKLINE(CROSS(A1X,0),H,L,0,0 ),COLOR9933FF;

STICKLINE(CROSS(A1X,0),C,O,2,0 ),COLOR0000CC;

STICKLINE(CROSS(A1X,0),C,O,1,0 ),COLOR0033FF;

STICKLINE(CROSS(0,A1X),L,H,0,0 ),COLOR66CC33;

{金底背离}

DIFF:=EMA(CLOSE,7) - EMA(CLOSE,13);

DEA:= EMA(DIFF,3);

A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));

B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);

RSV:=(CLOSE-LLV(LOW,18))/(HHV(HIGH,18)-LLV(LOW,18))*100;

K:=SMA(RSV,3,1);

D:=SMA(K,3,1);

A2:=BARSLAST(REF(CROSS(K,D),1));

B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);{KDJ底背离}

LC := REF(CLOSE,1);

RSI1:=SMA(MAX(CLOSE-LC,0),7,1)/SMA(ABS(CLOSE-LC),7,1)*100;

RSI2:=SMA(MAX(CLOSE-LC,0),14,1)/SMA(ABS(CLOSE-LC),14,1)*100;

A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));

B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);

TYB:=(HIGH + LOW + 2*CLOSE)/4;

CCI4:=(TYB-MA(TYB,28))/(0.015*AVEDEV(TYB,28));

B4:=BARSLAST(NOT(MA(C,5)<MA(C,10)<=5) AND CCI4>REF(CCI4,1) AND CROSS(CCI4,-100));

底背离:=((B1 AND B2) OR (B2 AND B3) OR (B1 AND B3) OR ( B4 AND CCI4<-90) ) AND D<20 ;

DRAWICON(底背离,(LOW * 0.98),1);

DRAWTEXT(底背离,(LOW * 0.97),'金底背离'),COLORYELLOW;

{绝顶 }

日:=150;昨前:=3;

高1:=REF(HHV(H,日),昨前);

顶3:REFDATE(高1,DATE),COLORBLACK;

绝顶:=REFDATE(顶3,DATE),NODRAW;

跑:=绝顶=H AND ((C-L)<(O-C) OR (O-L)<(C-O)),NODRAW;

STICKLINE(跑,C,O,2,0),COLOR777777;

STICKLINE(跑,C,O,2,0),COLORAAAAAA;

STICKLINE(跑,C,O,1,0),COLORCCCCCC;

STICKLINE(跑,C,O,0.1,0),COLORFFFFFF;

STICKLINE(跑,L,H,0,0),COLORFFFFFF;

DRAWTEXT(跑,C*1.06,'绝顶')COLORFFFFFF;

{介绍}

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLORWHITE;

IF(BARSLAST(TJ),REF(HIGH,BARSLAST(TJ)),DRAWNULL),COLORWHITE;{安上线}

IF(BARSLAST(TJ),REF(LOW,BARSLAST(TJ)),DRAWNULL),COLORWHITE;{安下线};

DRAWNUMBER(ISLASTBAR ,C,C),COLORWHITE;