主力动态监控(通达信指标 源码 贴图)
D1:=EMA(3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1),5);D2:=REF(D1,1);STICKLINE(D1>=REF(D1,1),D1,D2,8,0),COLOR0055AA;STICKLINE(D1<REF(D1,1),D1,D2,8,0),COLOR006600;STICKLINE(D1>=REF(D1,1),D1,D2,5,0),COLOR0077CC;STICKLINE(D1>=REF(D1,1),D1,D2,3,0),COLOR0099DD;STICKLINE(D1<REF(D1,1),D1,D2,5,0),COLOR009900;STICKLINE(D1<REF(D1,1),D1,D2,3,0),COLOR00BB00;{慢速KDJ}RSV:=(CLOSE-LLV(LOW,60))/(HHV(HIGH,60)-LLV(LOW,60))*100;FASTK:=SMA(RSV,12,1);K:SMA(FASTK,9,1),COLORYELLOW;D:SMA(K,3,1),LINETHICK2,COLORBLUE;A01:=DYNAINFO(7);A03:=BARSCOUNT(CLOSE);A04:=(SMA((CLOSE / HHV(HIGH,120)),3,1) * 100);A05:=IF((A03 > 20),A04,0);A06:=IF((LOW > A01),0,IF((HIGH < A01),1,(((A01 - LOW) + 0.009) / ((HIGH - LOW) + 0.009))));A07:=DMA(A06,(VOL / CAPITAL)) * 60;A09:=IF((((A07 > 0) AND (A07 > REF(A07,1))) AND (A05 <= 88)),A07,0);VAR1:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1);VAR2:=EMA(VAR1,8);VAR3:=3*SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1)-2*SMA(SMA((C-LLV(L,55))/(HHV(H,55)-LLV(L,55))*100,5,1),3,1);趋势:=EMA(VAR3,3)-10;(趋势>80);DRAWICON(CROSS(趋势,0),0,1); ((A09 > 0 AND (趋势<20 OR 趋势>REF(趋势,1)AND 趋势<50))),COLORFFFF00;机构建仓区:0,LINETHICK0,COLORFFFF00;VAR4:=(趋势-REF(趋势,1))/REF(趋势,1)*100;STICKLINE(趋势<=13,0,20,5,0),COLORCC9900;DRAWTEXT(FILTER(趋势<=13,15),30,'准备现金'),COLORCC9900;STICKLINE(趋势<=13 AND VAR4>13,0,50,5,0),COLOR0099FF;VAR5:=FILTER((趋势<=13 AND VAR4>13),10);DRAWTEXT(VAR5,60,'买入'),COLOR0099FF;STICKLINE(趋势>=90 AND VAR4,0,30,5,0),COLORGRAY;VAR6:=FILTER((趋势>=90 AND VAR4),10);DRAWTEXT(VAR6,40,'清仓'),COLORGRAY;VAR7:=LLV(LOW,30);VAR8:=HHV(HIGH,30);VAR9:=EMA((CLOSE-VAR7)/(VAR8-VAR7)*4,4)*25;STICKLINE(VAR9>90,100,105,10,2),COLORRED;VAR10:=(VAR9-LLV(VAR9,4))/(HHV(VAR9,4)-LLV(VAR9,4))*100;DRAWTEXT(IF(CROSS(VAR9,VAR10) AND VAR9>87,95,0),88,'险'),COLOR00FF00;DRAWICON(CROSS(90,VAR9),95,9);VAR11:=SMA(ABS(L-REF(L,1)),3,1)/SMA(MAX(L-REF(L,1),0),3,1)*100;VAR12:=HHV(VAR11,30)*8;火焰山:EMA(IF(LOW<=VAR7 AND 趋势<40,(VAR11+VAR12),0),3)/618,COLORRED,LINETHICK2;STICKLINE(火焰山>0,0 ,火焰山*1.2,8,0 ),COLORRED;VAR13:=(MA(C,1)+MA(C,3)+MA(C,5)+MA(C,7)+MA(C,9))/5;VAR14:=(MA(C,2)+MA(C,4)+MA(C,6)+MA(C,8)+MA(C,10))/5;趋势线:= 趋势,COLORFF0000;VAR16:=MAX(EMA(VAR13,2)-EMA(VAR14,5),0)*200;VAR17:=EMA(VAR16,5);波浪峰:VAR17,STICK,COLORFF00FF;STICKLINE(VAR17<REF(VAR17,1),0,VAR17,1,0),COLOR00FF00;VAR18:=MA(趋势线,8);VARF:=100-3*SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((CLOSE-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);VAR19:=100-3*SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1)+2*SMA(SMA((OPEN-LLV(LOW,75))/(HHV(HIGH,75)-LLV(LOW,75))*100,20,1),15,1);VAR20:=VARF<REF(VAR19,1) AND VOL>REF(VOL,1) AND CLOSE>REF(CLOSE,1);DRAWTEXT(VAR20 AND COUNT(VAR20,30)=1,15,'大资金活动'),LINETHICK1,COLORFF00FF;IF(CROSS(VAR2,VAR18) AND VAR2<15,50,0),COLORRED;
DRAWTEXT(CROSS(趋势线,VAR2)AND 趋势线>REF(趋势线,1)AND 趋势线<50,50,'追涨'),COLORFF0000;{主力动向监控};