通达信K线回顾副图源码

以下是通达信K线回顾副图源码

N:=2;

{招财猫}OK:=EMA(O,60);

CG:=EMA(C,60);

PDU:=IF(OK > REF(OK,1) AND CG > REF(CG,1),1,0);

Z1:=MA(C,13);

ZX:=REF(Z1,13/2+1);

LIFE:=(EMA(C,60)+EMA(C,90))/2;

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

SNOOK:=EMA(VAR1,99)*0.91;

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

MA5:=BARSLAST(A1 > 3);

MA20:=IF(MA5 > 0,1,0);{

STICKLINE(C > ZX AND C  > = LIFE,O,C,3,0),COLOR0000FF;

STICKLINE(C > ZX AND C  <  = SNOOK,O,C,3,0),COLOR00FF00;

STICKLINE(C > ZX AND C > SNOOK AND C  <  LIFE,O,C,3,0),COLORFF0000;

STICKLINE(C > ZX AND MA20=0,O,C,3,0),COLOR00FFFF;

STICKLINE(C > ZX,O,C,1,0),COLORFFFFFF;}

DRAWICON(CROSS(C,ZX),L*0.99,1);

DRAWICON(CROSS(ZX,C),H*1.01,5);

BY20:=MA(C,5);

招财猫:=MA(C,20),LINETHICK2,COLOR00FFFF;

鼠变异:=IF(BY20 > 招财猫,招财猫,BY20),LINETHICK2,COLOR808080;

选股:=CROSS(C,ZX) AND C > ZX AND MA20=0 ,LINETHICK0;

RB:=BARSCOUNT(C)=ISLASTBAR;

RD:=BARSLAST(RB);

K2:=HHV(H,50);

K1:=LLV(L,50);

T1:=C > ZX AND C  > = LIFE;

T2:=C > ZX AND C > SNOOK AND C  <  LIFE;

T3:=C > ZX AND C  <  = SNOOK;

T4:=C  <  = ZX;

T5:=鼠变异 > REF(鼠变异,1) AND 鼠变异!=招财猫 ;

T6:=鼠变异 > REF(鼠变异,1) AND 鼠变异=招财猫 AND PDU!=1;

T7:=鼠变异 > REF(鼠变异,1) AND 鼠变异=招财猫 AND PDU=1;

T8:=C > ZX AND MA20=0 ;

EEE:=T1+T2+T3+T4+T5+T6+T7+T8 ;

E:=(K2-K1)/(EEE+8) ;

DRAWTEXT(C > 0 AND T1 > 0 AND ISLASTBAR,K2-E,'出洞了逮住它！'),COLOR0000FF;

DRAWTEXT(C > 0 AND T2 > 0 AND ISLASTBAR,K2-E,'鼠玩猫守着它！，'),COLORFF7700;

DRAWTEXT(C > 0 AND T3 > 0 AND ISLASTBAR,K2-E,'露尾巴动作快！，'),COLOR00FF00;

DRAWTEXT(C > 0 AND T4 > 0 AND ISLASTBAR,K2-E,'没有了打个盹！，'),COLOR808080;

DRAWTEXT(C > 0 AND T5 > 0 AND ISLASTBAR,K2-E*2,'发现鼠迹！'),COLOR00FF00;

DRAWTEXT(C > 0 AND T6 > 0 AND ISLASTBAR,K2-E*2,'瞬间鼠影！'),COLORFF66FF;

DRAWTEXT(C > 0 AND T7 > 0 AND ISLASTBAR,K2-E*2,'恶鼠难遁！'),COLOR0000FF;

{K线回顾副图}

开:REF(OPEN,N-1)NODRAW;

收:REF(CLOSE,N-1)NODRAW,COLORYELLOW;

高:REF(HIGH,N-1)NODRAW,COLORWHITE;

低:REF(LOW,N-1)NODRAW,COLORYELLOW;

DRAWKLINE(高,开,低,收);