|
以下是通达信多空变色趋势公式主图源码（无源码的请下载附件导入）
{多空变色趋势}
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),'卖');
1335488133.png
|
