通达信【量能渐变】副图指标 绿段红段判断多空 由同花顺公式改编 源码分享

通达信【量能渐变】副图指标 绿段红段判断多空 由同花顺公式改编 源码分享

U:80;

MID:50;

D:20;

M:-10;

N:=-27;

LC := REF(CLOSE,1);

VAR1:WINNER(C)*100;

STICKLINE( 1.000,0,VAR1, 8,0),COLORMAGENTA;

VARA:=COST(75);

VARB:=COST(25);

VARC:=VARA-VARB;

VARD:=(VARA-VARB)/2;

VARE:=VARC/VARD*100<10;

STICKLINE(VAR1>REF(VAR1,1) AND VAR1>90,102,104,8,0);

STICKLINE(VAR1<REF(VAR1,1) AND VAR1>90,102,104,8,0),COLORGREEN;

STICKLINE(VAR1>REF(VAR1,1)AND VAR1<90 AND VAR1>20,VAR1+2,VAR1+4,8,0),COLORYELLOW;

STICKLINE(VAR1<REF(VAR1,1)AND VAR1<90 AND VAR1>20,VAR1+2,VAR1+4,8,0),COLORGREEN;

STICKLINE(VAR1>REF(VAR1,1) AND VAR1<=20,-2,-4,8,0),COLORYELLOW;

STICKLINE(VAR1<REF(VAR1,1) AND VAR1<=20,-2,-4,8,0),COLORGREEN;

DRAWTEXT(CROSS(VAR1,50),VAR1,'★');

DRAWTEXT(CROSS(80,VAR1)AND (REF(C,1)-C)/REF(C,1)*100>4,VAR1,'▽');

DRAWTEXT(CROSS(50,VAR1),VAR1,'▼');

成本空间:=VARC;

成本均价:=(COST(85)-COST(15));

DRAWTEXT(CROSS(VAR1,20),-10,'X'); 

DRAWTEXT(CROSS(REF(VAR1,1),20)     AND VAR1>20 ,-10,'*');

DRAWTEXT(CROSS(REF(VAR1,2),20)     AND REF(VAR1,1)>20     AND VAR1>20 ,-10,'IN');

DRAWTEXT(CROSS(REF(VAR1,2),20)     AND REF(VAR1,1)>20     AND VAR1<20 ,-10,'S');

DRAWTEXT(CROSS(REF(VAR1,4),20)     AND REF(VAR1,3)>20     AND REF(VAR1,2)>20 AND REF(VAR1,1)>20   AND VAR1>50 AND C>REF(C,1),-10,'K');

DRAWTEXT(CROSS(REF(VAR1,4),20)     AND REF(VAR1,3)>20     AND REF(VAR1,2)>20 AND REF(VAR1,1)>20   AND VAR1<50 AND C<REF(C,1),-10,'P');

DRAWTEXT(  VAR1<20  AND REF(VAR1,1)>20 AND REF(VAR1,2)>20 AND REF(VAR1,3)>20 AND REF(VAR1,4)>20 ,-10,'END');

DRAWTEXT(  VAR1<50  AND REF(VAR1,1)>80  ,10,'PAU');

WJ:=REF(C,BARSLAST(CROSS(VAR1,50)));

WD:=REF(C,BARSLAST(CROSS(50,VAR1)));

BD:=REF(C,BARSLAST(CROSS(80,VAR1)));

DRAWTEXT(WJ>REF(WJ,1),VAR1-10,'高');

DRAWTEXT(WJ<REF(WJ,1),VAR1+10,'低');

DRAWTEXT(WD>REF(WD,1),VAR1-10,'高');

DRAWTEXT(WD<REF(WD,1),VAR1+10,'低');

DRAWTEXT(WD<REF(WD,1),10,'PAU');

DRAWTEXT(BD>REF(BD,1),VAR1-10,'高');

DRAWTEXT(BD<REF(BD,1),VAR1+10,'低');

DRAWTEXT(BD<REF(BD,1),10,'PAU');

STICKLINE(CCI>REF(CCI,1) AND CCI>100,M,M+4,8,1),COLORRED;

STICKLINE(CCI<=REF(CCI,1) AND CCI>100,M,M+4,8,0),COLORRED;

STICKLINE(CCI>REF(CCI,1) AND CCI<-100,M,M-4,8,1),COLORGREEN;

STICKLINE(CCI<=REF(CCI,1) AND CCI<-100,M,M-4,8,0),COLORGREEN;

{本文技术支持：好公式网www.goodgongshi.com}