通达信极品成交量组合源码副图

回调认同:EMA(EXPMA(C,20),13),COLORRED;

DRAWTEXT(((((换手％ <= 1) AND 换手％) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'地量');
DRAWTEXT(((((换手％ <= 2) AND (换手％ > 1)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'低靡');
DRAWTEXT(((((换手％ <= 3) AND (换手％ > 2)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'温和');
DRAWTEXT(((((换手％ <= 5) AND (换手％ > 3)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'活跃');
DRAWTEXT(((((换手％ <= 8) AND (换手％ > 5)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'带量');
DRAWTEXT(((((换手％ <= 15) AND (换手％ > 8)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'放量');
DRAWTEXT(((((换手％ <= 25) AND (换手％ > 15)) AND (DYNAINFO(7) = CLOSE)) AND (DYNAINFO(10) = AMOUNT)),(VOL * 0.618),'巨量');

VARCYC:=AMOUNT/(100*VOL);
CYCMAX:=DMA(VARCYC,VOL/CAPITAL);
CYC13:=0.01*EMA(AMOUNT,13)/EMA(VOL,13);
CYS13:=CYS;
CYSW:=CLOSE/CYCMAX*100-100;
AA:=INDEXA;AV:=INDEXV;AC:=INDEXC;{原来是0号指数}
AO:=INDEXO;AH:=INDEXH;AL:=INDEXL;
M:=CLOSE;
VAR21:=AA/AV/100;
VAR22:=(3*AH+AL+AO+2*AC)/7;
VAR23:=SUM(AA,13)/VAR21/100;
ACYC:=DMA(VAR22,AV/VAR23);
ACYS13:=(AC-ACYC)/ACYC*100;
A4:=CYS13<-17 AND CYSW<-40 AND ACYS13<-8 AND ACYS13<REF(CYS13,1);
A5:=CYS13<-20 AND CYSW<-40 AND ACYS13<-10 AND ACYS13<REF(ACYS13,1);
DRAWTEXT(A5>0,M*4.1,'【全仓杀入】'),COLORGREEN;
DRAWTEXT(A4>0 AND A5<M*5.5,M*3.1,'【分仓介入】'),COLORCYAN;

VAR31:=HIGH-LOW;
VAR32:=ABS(OPEN-CLOSE );
VAR33:=HIGH-IF(CLOSE>OPEN,CLOSE,O);
VAR34:=IF(CLOSE>OPEN,O,CLOSE)-LOW;
VAR35:=(VAR32/VAR31)*VOL;
VAR36:=(VAR33/VAR31)*VOL;
VAR37:=(VAR34/VAR31)*VOL;
V1:=H-L;
V2:=ABS(O-C);
V3:=H-IF(C>O,C,O);
V4:=IF(C>O,O,C)-L;
V5:=V2/V1*V;
V6:=V3/V1*V;
V7:=V4/V1*V;
M5:=MA(V,5),COLORWHITE;
M10:=MA(V,10),COLORYELLOW;
V8:=IF(V/CAPITAL>0.001,1,EXP(ABS(LOG(V/CAPITAL*100))));

RSV1:=(C-LLV(L,9))/(HHV(H,9)-LLV(L,9))*100;
K1:=SMA(RSV1,3,1);
D1:=SMA(K1,3,1);
J1:=3*K1-2*D1;
RSV:=(C-LLV(L,26))/(HHV(H,26)-LLV(L,26))*100;
K:=SMA(RSV, 6, 1);
D:=SMA(K, 3, 1);
J:=3*K-2*D;
LC:=REF(C,1);
XA:=IF(CROSS(J1,J) AND J<20,-1,0)+IF(CROSS(J,J1) AND J>80,1,0);
TYP:=(H+L+C)/3;
CCJ:=(TYP-MA(TYP,14))/(0.015*AVEDEV(TYP,14))/2;
RSI1:=SMA(MAX(C-LC, 0), 6, 1)/SMA(ABS(C-LC), 6, 1)*100;

K2:=EMA((C-LLV(L,36))/(HHV(H,36)-LLV(L,36))*100, 9);
XB:=IF(CCJ>100 AND K2>50 AND C>O, 0.5, 0)+IF(RSI1>80 AND K2>50 AND C>O, 0.5, 0);
RSV3:=(C-LLV(L,100))/(HHV(H,100)-LLV(L,100))*100;
K13:=SMA(RSV3, 21, 1);
D13:=SMA(K1, 3, 1);
J13:=3*K13-2*D13;
XC:=IF(J13>80 AND RSI1>85, 0.5, 0);

DRAWTEXT(FILTER(V5>MA(V,5)*2 AND V5>=V6 AND V5>=V7 AND C>O OR V>MA(VOL,5)*3,2),1.2*V,'强势参与'),COLORRED;
DRAWTEXT(V6>V5 AND V6>V7 AND C>MA(C,5) AND C>MA(C,34) AND H>MA(C,55) AND V>M5 AND V6>MA(V,5),V,'逢高出货'),COLORGREEN;
DRAWTEXT(VAR36>VAR35 AND VAR36>VAR37 AND C>MA(C,5) AND C>MA(C,30) AND H>MA(C,60) AND V>MA(V,5) AND VAR6>=MA(V,5),VOL,'逢高出货'),COLORRED;

GJ1:=AMOUNT/VOL/100;
成本: EMA(EMA(GJ1,2),30),COLORGREEN,NODRAW;

A1:=SUMBARS(V,CAPITAL);
CMA:=IF(CAPITAL>0,SUM(AMOUNT,A1)/SUM(V,A1)/100,EMA(C,120));
百分百换手均价:CMA,NODRAW,COLORRED;
 

 

上一页  [1] [2]