一套完整的多空动能系统源码:四轨通道+结构三角+净力道信号

FAST:=5;

SLOW:=13;

AA:=MA((2*CLOSE+HIGH+LOW)/4,5);

DDX:=AA<REF(AA,1)&&REF(AA,1)<REF(AA,2)&&REF(AA,2)>REF(AA,3);

KKX:=AA>REF(AA,1)&&REF(AA,1)>REF(AA,2)&&REF(AA,2)<REF(AA,3);

动能:=EMA(C,FAST)-EMA(C,SLOW);

N:=80;

M:=7;

CC:=ABS((2*CLOSE+HIGH+LOW)/4-MA(CLOSE,20))/MA(CLOSE,20);

DD:=DMA(CLOSE,CC);

外上轨:=AA*N/100,COLORRED,LINETHICK2;

外下轨:=AA*(200-N)/100,COLORGREEN,LINETHICK2;

内上轨:=(1+M/100)*DD,COLORYELLOW,LINETHICK1;

内下轨:=(1-M/100)*DD,COLORCYAN,LINETHICK1;

中轨:AA,COLORWHITE,LINETHICK1;

EMA8:=EMA(C,8);

EMA21:=EMA(C,21);

DIFF:=EMA8 - EMA21,NODRAW;

DIFF_CHANGE:=DIFF-REF(DIFF,1),NODRAW;

HXT1:=REFX(CROSS(动能<0&&动能>REF(动能,1),0.5) || CROSS(动能<0&&动能<REF(动能,1),0.5),1);

HXT2:=REFX(CROSS(动能>0&&动能<REF(动能,1),0.5) || CROSS(动能>0&&动能>REF(动能,1),0.5),1);

HXPP:=VALUEWHEN(HXT1||HXT2,MAX(C,O));

斜率:=DIFF-REF(DIFF,1);

空条件:=C<中轨 && 动能<VALUEWHEN(HXT1||HXT2,动能) && ISDOWN;

多条件:=C>中轨 && 动能>VALUEWHEN(HXT1||HXT2,动能) && ISUP;

标记空起点:=BACKSET(空条件, SUMBARS(HXT1||HXT2,1));

标记多起点:=BACKSET(多条件, SUMBARS(HXT1||HXT2,1));

结构空:=REF(AA,2)<REF(AA,1) && REF(AA,1)>AA;

结构多:=REF(AA,2)>REF(AA,1) && REF(AA,1)<AA;

NN:=2;

三角条件:=结构空 || 结构多;

最后三角:=BACKSET(ISLASTBAR,BARSLAST(三角条件)+1) && 三角条件;

SJNN:=BARSLAST(三角条件)+1;

结构空ZT:=BACKSET(ISLASTBAR && REF(结构空,SJNN-1),SJNN);

结构多ZT:=BACKSET(ISLASTBAR && REF(结构多,SJNN-1),SJNN);

AA2:=动能>REF(动能,1)&&动能>REFX(动能,1);

BB2:=动能<REF(动能,1)&&动能<REFX(动能,1);

AA1:=IF(ISUP,O,C);

BB1:=IF(ISUP,C,O);

DRAWHORIZONTALLINE(AA2||BB2,IF(AA2,AA1,NULL),COLORYELLOW),DOT;

DRAWHORIZONTALLINE(AA2||BB2,IF(AA2,NULL,BB1),COLORYELLOW);

AAX:=IFELSE(HIGH=LOW,1,VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN)));

主动买盘:=IFELSE(CLOSE>OPEN,AAX*(HIGH-LOW),IFELSE(CLOSE<OPEN,AAX*((HIGH-OPEN)+(CLOSE-LOW)),VOL/2));

主动卖盘:=IFELSE(CLOSE>OPEN,AAX*((HIGH-CLOSE)+(OPEN-LOW)),IFELSE(CLOSE<OPEN,AAX*(HIGH-LOW),VOL/2));

净力道:=主动买盘-主动卖盘;

净力道值:=净力道,NODRAW;

DRAWTEXT(BARSLAST(AA2)<BARSLAST(BB2)&&C<REF(AA1,BARSLAST(AA2))&&ABS(净力道值)>REF(ABS(净力道值),BARSLAST(AA2))&&C<中轨&&ISDOWN,H,'空'),COLORGREEN,FONTSIZE15;

DRAWTEXT(BARSLAST(AA2)>BARSLAST(BB2)&&C>REF(BB1,BARSLAST(BB2))&&ABS(净力道值)>REF(ABS(净力道值),BARSLAST(BB2))&&C>中轨&&ISUP,L,'多'),COLORYELLOW,VALIGN0,FONTSIZE15;

DRAWCOLORKLINE(BARSLAST(AA2)<BARSLAST(BB2)&&C<REF(AA1,BARSLAST(AA2))&&ABS(净力道值)>REF(ABS(净力道值),BARSLAST(AA2))&&C<中轨&&ISDOWN,COLORGREEN,0);

DRAWCOLORKLINE(BARSLAST(AA2)>BARSLAST(BB2)&&C>REF(BB1,BARSLAST(BB2))&&ABS(净力道值)>REF(ABS(净力道值),BARSLAST(BB2))&&C>中轨&&ISUP,COLORMAGENTA,0);

DRAWTEXT(AA2, H+NN*MINPRICE, '▼'),VALIGN2,COLORGREEN,FONTSIZE20; 

DRAWTEXT(BB2, L-NN*MINPRICE, '▲'),VALIGN0,COLORRED,FONTSIZE20;

更多免费源码，进入一下微信小程序，查阅！

今日推荐精品指标截图：

咨询客服微：zbgs518

1、主图+幅图

声明：源码仅供学习技术交流，不具备操作建议！