主力资金流 副图源码

主力资金流
RAWGBK(CLOSE,COLORRGB(200,200,50),COLORRGB(100,50,50),1);
流通:IF(CAPITAL=0,ESTDATA(12)/10000,FINANCE(7)/10000),LINETHICK0,PRECISION2,Color00BFFF;
jj:=(HIGH+LOW+CLOSE)/3;
qj0:=vol/IF(HIGH=LOW,4,HIGH-LOW);
qj1:=IF(CAPITAL=0,qj0*(jj-MIN(CLOSE,OPEN)),qj0*IF(HIGH=LOW,1,(MIN(OPEN,CLOSE)-LOW)));
qj2:=IF(CAPITAL=0,qj0*(MIN(OPEN,CLOSE)-LOW),qj0*IF(HIGH=LOW,1,(jj-MIN(CLOSE,OPEN))));
qj3:=IF(CAPITAL=0,qj0*(HIGH-MAX(OPEN,CLOSE)),qj0*IF(HIGH=LOW,1,(HIGH-MAX(OPEN,CLOSE))));
qj4:=IF(CAPITAL=0,qj0*(MAX(CLOSE,OPEN)-jj),qj0*IF(HIGH=LOW,1,(MAX(CLOSE,OPEN)-jj)));
总1:=(qj1+qj2)-(qj3+qj4);总:=qj1+qj2+qj3+qj4;
w1:=(qj1+qj2);CM:=SUM(总1,24);ZJ:=REF(总1,1);
w2:=(abs(qj1)+abs(qj2)+abs(qj3)+abs(qj4));
ZSA:=cm/IF(CAPITAL=0,ESTDATA(12),FINANCE(7));
ZSB:=(总1-ref(总1,1))/总*100;
DIFF:=EMA(w1,12)-EMA(w1,26);DEA:=EMA(DIFF,9);
jg:=((CLOSE-LLV(LOW,34))/(HHV(HIGH,34)-LLV(LOW,34)))*100;
yh:=cross(diff,dea) and jg<10;
bh:=cross(dea,diff) and jg>95;
SW:=yh=1;SS:=bh=1;
VERTLINE(sw),COLOR0000FF,LINEDOT;
VERTLINE(ss),COLOR00FF00,LINEDOT;
A:=BARSLAST(SW);B:=BARSLAST(SS);
起点:=IF(A and A<B,A,0);
终点:=IF(B and B<A,B,0);