通达信多空变色趋势公式主图源码

{多空变色趋势}

SJ:=1;

VAR1:=EMA(CLOSE,15)*SJ;

VAR2:=EMA(CLOSE,60)*SJ;

{红多:(CLOSE*SJ-VAR1*SJ)*2/(15+1)+VAR1,LINETHICK1, COLORRED;}

VAR3:=(CLOSE*SJ-VAR2*SJ)*2/(60+1)+VAR2;

{绿空:IF(红多*SJ>VAR3,VAR3*SJ,红多*SJ),LINETHICK1, COLORGREEN;}

生命线:VAR3*SJ,LINETHICK2, COLORYELLOW;

{XCLOSE2:=EMA((OPEN+HIGH+LOW+CLOSE)/4,3);

IF((生命线>=XCLOSE2),生命线,DRAWNULL),LINETHICK3,COLOR00FF00;

IF((生命线<XCLOSE2),生命线,DRAWNULL),LINETHICK3,COLOR0000FF;}

HX:=HHV(HIGH,3);

LX:=LLV(LOW,3);

H1:=IF(HX<REF(HX,1)&&HX<REF(HX,2)&&HX<REF(HX,4)&&LX<REF(LX,1)&&LX<REF(LX,3)&&LX<REF(LX,5)&&OPEN>CLOSE&&(HHV(OPEN,0)-CLOSE)>0,REF(HX,4),0);

L1:=IF(LX>REF(LX,1)&&LX>REF(LX,3)&&LX>REF(LX,5)&&HX>REF(HX,1)&&HX>REF(HX,2)&&HX>REF(HX,4)&&OPEN<CLOSE&&(CLOSE-LLV(OPEN,0))>0,REF(LX,4),0);

H2:=VALUEWHEN(H1>0,H1);

L2:=VALUEWHEN(L1>0,L1);

K1:=IF(CLOSE>H2,-3,IF(CLOSE<L2,1,0));

K2:=VALUEWHEN(K1<>0,K1);

G:=IF(K2=1,H2,L2);

G1:=VALUEWHEN(ISLASTBAR,G);

TMP:=K2;

W1:=K2;

W2:=OPEN-CLOSE;

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

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

STICKLINE(W1=1,HIGH,HT,0,0),COLORCYAN;

STICKLINE(W1=1,LOW,LT,0,0),COLORCYAN;

STICKLINE(W1=-3,HIGH,HT,0,0),COLORRED;

STICKLINE(W1=-3,LOW,LT,0,0),COLORRED;

STICKLINE(W1>0,OPEN,CLOSE,3,1),COLORCYAN;

STICKLINE(W1<=0,OPEN,CLOSE,3,1),COLORRED;

STICKLINE(W2>0&&W1<=0,OPEN,CLOSE,3,0),COLORRED;

STICKLINE(W2>0&&W1>0,OPEN,CLOSE,3,0),COLORCYAN;

A:=WMA(HIGH,30);

B:=WMA(LOW,30);

A1:=WMA(HIGH,150),LINETHICK2;

B1:=WMA(LOW,150);

S1:=CROSS(CLOSE,WMA(HIGH,150));

X1:=CROSS(WMA(LOW,150),CLOSE);

WS1:=BARSLAST(S1)+1;

WX1:=BARSLAST(X1)+1;

SS1:=CROSS(SUM(S1,WX1),0.5);

XX1:=CROSS(SUM(X1,WS1),0.5);

S:=CROSS(CLOSE,WMA(HIGH,30));

X:=CROSS(WMA(LOW,30),CLOSE),LINETHICK2;

WS:=BARSLAST(S)+1,LINETHICK2;

WX:=BARSLAST(X)+1,LINETHICK2;

SS:=CROSS(SUM(S,WX),0.5);

XX:=CROSS(SUM(X,WS),0.5);

{STICKLINE(CLOSE>WMA(HIGH,30),WMA(HIGH,30),WMA(LOW,30),3,1),COLORMAGENTA;

STICKLINE(CLOSE<WMA(LOW,30),WMA(LOW,30),WMA(HIGH,30),3,1),COLORGREEN;}

STICKLINE(CLOSE>WMA(HIGH,150),WMA(HIGH,150),WMA(LOW,150),3,1),COLORRED;

STICKLINE(CLOSE<WMA(LOW,150),WMA(LOW,150),WMA(HIGH,150),3,1),COLORBLUE;

{IF(CLOSE>WMA(HIGH,30),WMA(HIGH,30),DRAWNULL),COLORMAGENTA;

IF(CLOSE<WMA(HIGH,30),WMA(HIGH,30),DRAWNULL),COLORGREEN;

IF(CLOSE>WMA(LOW,30),WMA(LOW,30),DRAWNULL),COLORMAGENTA;

IF(CLOSE<WMA(LOW,30),WMA(LOW,30),DRAWNULL),COLORGREEN;}

IF(CLOSE>WMA(HIGH,150),WMA(HIGH,150),DRAWNULL),COLORRED;

IF(CLOSE<WMA(HIGH,150),WMA(HIGH,150),DRAWNULL),COLORBLUE;

IF(CLOSE>WMA(LOW,150),WMA(LOW,150),DRAWNULL),COLORRED;

IF(CLOSE<WMA(LOW,150),WMA(LOW,150),DRAWNULL),COLORBLUE;

STICKLINE(SUM(X,WS)>0.5 && CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 && CLOSE<OPEN,OPEN,CLOSE,3,0),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 AND CLOSE>OPEN,HIGH,CLOSE,0,0),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 AND CLOSE>OPEN,LOW,OPEN,0,0),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 AND CLOSE<OPEN,HIGH,OPEN,0,0),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 AND CLOSE<OPEN,LOW,CLOSE,0,0),COLORCYAN;

STICKLINE(SUM(X,WS)>0.5 AND CLOSE=OPEN,HIGH,LOW,0,0),COLORCYAN;

STICKLINE(SUM(S,WX)>0.5 && CLOSE>=OPEN,OPEN,CLOSE,3,1),COLORRED;

STICKLINE(SUM(S,WX)>0.5 && CLOSE<OPEN,OPEN,CLOSE,3,0),COLORRED;

STICKLINE(SUM(S,WX)>0.5 AND CLOSE>OPEN,HIGH,CLOSE,0,0),COLORRED;

STICKLINE(SUM(S,WX)>0.5 AND CLOSE>OPEN,LOW,OPEN,0,0),COLORRED;

STICKLINE(SUM(S,WX)>0.5 AND CLOSE<OPEN,HIGH,OPEN,0,0),COLORRED;

STICKLINE(SUM(S,WX)>0.5 AND CLOSE<OPEN,LOW,CLOSE,0,0),COLORRED;

STICKLINE(SUM(S,WX)>0.5 AND CLOSE=OPEN,HIGH,LOW,0,0),COLORRED;

DRAWTEXT(SS,LOW-(LOW*0.002),'买');

DRAWTEXT(XX,HIGH+(CLOSE*0.0015),'卖');