【通达信免费源码】画线主图指标主图 画线 操盘控盘 压力支撑 K线形态

N:=3;

M:=5;

N1:10;

N2:=20;

N3:=34;

JJH:=H;

JJL:=L;

AA2:=REF(JJH,N)=HHV(JJH,2*N+1);

AA3:=FILTER(AA2,N);

AA4:=BACKSET(AA3,N+1);

AA5:=FILTER(AA4,N);

AA7:=REF(JJL,N)=LLV(JJL,2*N+1);

AA8:=FILTER(AA7,N);

AA9:=BACKSET(AA8,N+1);

AA10:=FILTER(AA9,N);

AA11:=REF(H,BARSLAST(AA5));

AA12:=REF(L,BARSLAST(AA10));

AA13:=BARSLAST(AA5)<BARSLAST(AA10) AND NOT(AA5) ;

AA14:=BARSLAST(AA5)>BARSLAST(AA10) AND NOT(AA10);

AA15:=BARSLAST(AA5);

AA16:=CONST(AA15);

AA17:=REF(AA11,AA15+1);

AA18:=CONST(AA17);

AA19:=BARSLAST(H=AA18);

AA20:=CONST(AA19);

AA21:=BARSLAST(AA10);

AA22:=CONST(AA21);

AA23:=REF(AA12,AA21+1);

AA24:=CONST(AA23);

AA25:=BARSLAST(L=AA24);

AA26:=CONST(AA25);

RR:=BARSLAST(H=CONST(AA11));

BB2:=REF(JJH,M)=HHV(JJH,2*M+1);

BB3:=FILTER(BB2,M);

BB4:=BACKSET(BB3,M+1);

BB5:=FILTER(BB4,M);

BB7:=REF(JJL,M)=LLV(JJL,2*M+1);

BB8:=FILTER(BB7,M);

BB9:=BACKSET(BB8,M+1);

BB10:=FILTER(BB9,M);

BB11:=REF(H,BARSLAST(BB5));

BB12:=REF(L,BARSLAST(BB10));

BB13:=BARSLAST(BB5)<BARSLAST(BB10) AND NOT(BB5) ;

BB14:=BARSLAST(BB5)>BARSLAST(BB10) AND NOT(BB10);

BB15:=BARSLAST(BB5);

BB16:=CONST(BB15);

BB17:=REF(BB11,BB15+1);

BB18:=CONST(BB17);

BB19:=BARSLAST(H=BB18);

BB20:=CONST(BB19);

BB21:=BARSLAST(BB10);

BB22:=CONST(BB21);

BB23:=REF(BB12,BB21+1);

BB24:=CONST(BB23);

BB25:=BARSLAST(L=BB24);

BB26:=CONST(BB25);

PP:=MIN(AA26,BB15);

QQ:=FILTER(V>0,CURRBARSCOUNT-CONST(PP)-1);

STICKLINE(QQ,CONST(BB11),CONST(AA23),8,0),COLOR646400;

CC2:=REF(JJH,N1)=HHV(JJH,2*N1+1);

CC3:=FILTER(CC2,N1);

CC4:=BACKSET(CC3,N1+1);

CC5:=FILTER(CC4,N1);

CC7:=REF(JJL,N1)=LLV(JJL,2*N1+1);

CC8:=FILTER(CC7,N1);

CC9:=BACKSET(CC8,N1+1);

CC10:=FILTER(CC9,N1);

CC11:=REF(H,BARSLAST(CC5));

CC12:=REF(L,BARSLAST(CC10));

CC13:=BARSLAST(CC5)<BARSLAST(CC10) AND NOT(CC5) ;

CC14:=BARSLAST(CC5)>BARSLAST(CC10) AND NOT(CC10);

CC15:=BARSLAST(CC5);

CC16:=CONST(CC15);

CC17:=REF(CC11,CC15+1);

CC18:=CONST(CC17);

CC19:=BARSLAST(H=CC18);

CC20:=CONST(CC19);

CC21:=BARSLAST(CC10);

CC22:=CONST(CC21);

CC23:=REF(CC12,CC21+1);

CC24:=CONST(CC23);

CC25:=BARSLAST(L=CC24);

CC26:=CONST(CC25);

DD2:=REF(JJH,N2)=HHV(JJH,2*N2+1);

DD3:=FILTER(DD2,N2);

DD4:=BACKSET(DD3,N2+1);

DD5:=FILTER(DD4,N2);

DD7:=REF(JJL,N2)=LLV(JJL,2*N2+1);

DD8:=FILTER(DD7,N2);

DD9:=BACKSET(DD8,N2+1);

DD10:=FILTER(DD9,N2);

DD11:=REF(H,BARSLAST(DD5));

DD12:=REF(L,BARSLAST(DD10));

DD13:=BARSLAST(DD5)<BARSLAST(DD10) AND NOT(DD5) ;

DD14:=BARSLAST(DD5)>BARSLAST(DD10) AND NOT(DD10);

DD15:=BARSLAST(DD5);

DD16:=CONST(DD15);

DD17:=REF(DD11,DD15+1);

DD18:=CONST(DD17);

DD19:=BARSLAST(H=DD18);

DD20:=CONST(DD19);

DD21:=BARSLAST(DD10);

DD22:=CONST(DD21);

DD23:=REF(DD12,DD21+1);

DD24:=CONST(DD23);

DD25:=BARSLAST(L=DD24);

DD26:=CONST(DD25);

EE2:=REF(JJH,N3)=HHV(JJH,2*N3+1);

EE3:=FILTER(EE2,N3);

EE4:=BACKSET(EE3,N3+1);

EE5:=FILTER(EE4,N3);

EE7:=REF(JJL,N3)=LLV(JJL,2*N3+1);

EE8:=FILTER(EE7,N3);

EE9:=BACKSET(EE8,N3+1);

EE10:=FILTER(EE9,N3);

EE11:=REF(H,BARSLAST(EE5));

EE12:=REF(L,BARSLAST(EE10));

EE13:=BARSLAST(EE5)<BARSLAST(EE10) AND NOT(EE5) ;

EE14:=BARSLAST(EE5)>BARSLAST(EE10) AND NOT(EE10);

EE15:=BARSLAST(EE5);

EE16:=CONST(EE15);

EE17:=REF(EE11,EE15+1);

EE18:=CONST(EE17);

EE19:=BARSLAST(H=EE18);

EE20:=CONST(EE19);

EE21:=BARSLAST(EE10);

EE22:=CONST(EE21);

EE23:=REF(EE12,EE21+1);

EE24:=CONST(EE23);

EE25:=BARSLAST(L=EE24);

EE26:=CONST(EE25);

DRAWKLINE(HIGH,OPEN,LOW,CLOSE);

压力:DRAWLINE(CURRBARSCOUNT=CONST(RR)+1,AA11,CURRBARSCOUNT=1,AA11,1),COLORYELLOW;

DRAWLINE(CURRBARSCOUNT=AA20+1,H,IF(CONST(AA11)>=CONST(AA17),CURRBARSCOUNT=AA20+1,CURRBARSCOUNT=AA16+1),H,1),COLORLIRED;

DRAWLINE(CURRBARSCOUNT=AA26+1,L,CURRBARSCOUNT=AA22+1,L,1),COLORRED;

DRAWLINE(CURRBARSCOUNT=BB20+1,H,IF(CONST(BB11)>=CONST(BB17),CURRBARSCOUNT=BB20+1,CURRBARSCOUNT=BB16+1),H,1),COLORBBFFFF;

DRAWLINE(CURRBARSCOUNT=BB26+1,L,CURRBARSCOUNT=BB22+1,L,1),COLORYELLOW;

DRAWLINE(CURRBARSCOUNT=CC20+1,H,IF(CONST(CC11)>=CONST(CC17),CURRBARSCOUNT=CC20+1,CURRBARSCOUNT=CC16+1),H,1),COLORFF00BB;

DRAWLINE(CURRBARSCOUNT=CC26+1,L,CURRBARSCOUNT=CC22+1,L,1),COLORMAGENTA;

DRAWLINE(CURRBARSCOUNT=DD20+1,H,IF(CONST(DD11)>=CONST(DD17),CURRBARSCOUNT=DD20+1,CURRBARSCOUNT=DD16+1),H,1),COLORC5AC72;

DRAWLINE(CURRBARSCOUNT=DD26+1,L,CURRBARSCOUNT=DD22+1,L,1),COLOREEAC72;

DRAWLINE(CURRBARSCOUNT=EE20+1,H,IF(CONST(EE11)>=CONST(EE17),CURRBARSCOUNT=EE20+1,CURRBARSCOUNT=EE16+1),H,1),COLORABD0BC;

DRAWLINE(CURRBARSCOUNT=EE26+1,L,CURRBARSCOUNT=EE22+1,L,1),COLORABD066;

{涨跌停K线}

{涨跌停次数K线}

涨停:=(C-REF(C,1))*100/REF(C,1)>9.7;

跌停:=(C-REF(C,1))*100/REF(C,1)<-9.5;

TESTSKIP(PERIOD>5);

STICKLINE((C-REF(C,1))*100/REF(C,1)>9.7,O,C,2,0),COLORRED;

STICKLINE((C-REF(C,1))*100/REF(C,1)<-9.5,O,C,2,0),COLORGREEN;

NUMBER:=COUNT(涨停,BARSSINCE(涨停)+1),COLORYELLOW;

DRAWNUMBER(涨停,H*1.04,NUMBER),COLORWHITE;

NUMBER1:=COUNT(跌停,BARSSINCE(跌停)+1),COLORYELLOW;

DRAWNUMBER(跌停,H*1.04,NUMBER1),COLORGREEN;