通达信资金异动优化的成交量极品公式源码附图

beyond202104

源码如下：

A股:CAPITAL/1000000,LINETHICK0,COLORWHITE;

实际量:=VOL,LINETHICK0;

{VAR1:=DYNAINFO(17)*REF(MA(VOL,5),1);

VAR2:=DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT;

预测:=IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR2)/10000;

预测量:STICKLINE(IF(DYNAINFO(7)=CLOSE AND DYNAINFO(10)=AMOUNT,VAR1,VAR2),VAR1,0,7,1),COLORGRAY;}

AA:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

主买:=IF(CLOSE>OPEN,AA*(HIGH-LOW),IF(CLOSE<OPEN,AA*((HIGH-OPEN)+ (CLOSE-LOW)),VOL /2)),POINTDOT,COLORRED;

主卖:=IF(CLOSE>OPEN,0-AA*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE<OPEN,0- AA*(HIGH-LOW),0-VOL /2)),LINETHICK0,COLORGREEN;



NDDX:=10;

JJDDX:=(HIGH+LOW+CLOSE)/3;

QJ0DDX:=VOL/IF(HIGH=LOW,4,HIGH-LOW);

QJ1DDX:=IF(CAPITAL=0,QJ0DDX*(JJDDX-MIN(CLOSE,OPEN)),QJ0DDX*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));

QJ2DDX:=IF(CAPITAL=0,QJ0DDX*(MIN(OPEN,CLOSE)-LOW),QJ0DDX*IF(HIGH=LOW,1,(JJDDX-MIN(CLOSE,OPEN))));

QJ3DDX:=IF(CAPITAL=0,QJ0DDX*(HIGH-MAX(OPEN,CLOSE)),QJ0DDX*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));

QJ4DDX:=IF(CAPITAL=0,QJ0DDX*(MAX(CLOSE,OPEN)-JJDDX),QJ0DDX*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-JJDDX)));

大单流向: ((QJ1DDX+QJ2DDX)-(QJ3DDX+QJ4DDX))/IF(CAPITAL=0,1000000,10000),COLORRED;

STICKLINE(C>=REF(C,1) ,0,VOL,2.5,1),COLORRED;

STICKLINE(C<REF(C,1),0,VOL,2.5,1),COLORGREEN;

STICKLINE(主买>0,0,主买,2.5,0),COLORRED;

STICKLINE(主卖<0 ,0,主卖,2.5,0),COLORGREEN;

资金异动:VOL/MA(VOL,55)*100,COLORYELLOW;

STICKLINE(资金异动>100 ,0,VOL,0.6,0),COLORYELLOW;



{主力资金流量}

AACJL:=VOL/((HIGH-LOW)*2-ABS(CLOSE-OPEN));

买量:=IF(CLOSE>OPEN,AACJL*(HIGH-LOW),IF(CLOSE<OPEN,AACJL*((HIGH- OPEN)+(CLOSE-LOW)),VOL/2)),LINETHICK0,COLORRED;

卖量:=IF(CLOSE>OPEN,0-AACJL*((HIGH-CLOSE)+(OPEN-LOW)),IF(CLOSE< OPEN,0-AACJL*(HIGH-LOW),0-VOL/2)),LINETHICK0,COLORGREEN;

进出量:=买量+卖量,COLOR00FFFF;STICKLINE(进出量<0,0,进出量,1,0),COLORFF6600;

STICKLINE(进出量<0,0,进出量,1.5,0),COLORFFCC00;

STICKLINE(进出量<0,0,进出量,0.5,0),COLORCYAN;

N:=1;QJ0:=(HIGH+LOW+CLOSE)/3;

QJ1:=IF(HIGH=LOW,1,HIGH-MAX(OPEN,CLOSE));

QJ2:=IF(HIGH=LOW,1,MAX(CLOSE,OPEN)-QJ0);

QJ3:=IF(HIGH=LOW,1,MIN(OPEN,CLOSE)-LOW);

QJ4:=IF(HIGH=LOW,1,QJ0-MIN(CLOSE,OPEN));

QJ5:=VOL/(IF(HIGH=LOW,4,HIGH-LOW));

QJ6:="MACD.DIF">"MACD.DEA" AND "MACD.DEA"<0;

QJ7:="KDJ.K">"KDJ.D" AND "KDJ.D"<30;

QJ8:="MACD.DIF"<"MACD.DEA";

QJ9:="KDJ.K"<"KDJ.D" AND "KDJ.K">80;

特大:=QJ4*QJ5,NODRAW;大单:=QJ3*QJ5,NODRAW;

中单:=QJ1*QJ5,NODRAW;小单:=QJ2*QJ5,NODRAW;

W1:=SUM(大单,N)+SUM(特大,N);W2:=SUM(小单,N)+SUM(中单,N);

量振1:=特大>大单 AND 大单>小单;

量振2:=特大<小单 AND 大单<小单;

标振1:=QJ6 AND QJ7;

标振2:=QJ8 AND QJ9;

A:=W1-W2;A0:=IF(A>0,A,0);B0:=IF(A<0,A,0);

STICKLINE(A0,0,A0,1,0),COLOR000044;

DRAWICON(REF(V,2)>=REF(V,3)*1.99 AND REF(C,2)>REF(O,2) AND

REF(V,2)=HHV(V,3) AND C/REF(C,2) >=1.0995 AND REF(L,2)=LLV(L,3),V,1);

聊天结束

感谢楼主分享好资源

四龙全缴

支持一下:lol

博神赛雷殁

thanks for the sharing!

片刻红尘方

楼主哪儿来的这么多好东西！