【通达信源码分享】精品指标公式－主力动向源码

公式源码：

量:V,VOLSTICK;

PJJ:=DMA((((HIGH + LOW) + (CLOSE * 2)) / 4),0.9);

JJ:=REF(EMA(PJJ,3),1);

QJJ:=(VOL / (((HIGH - LOW) * 2) - ABS((CLOSE - OPEN)))); XVL:=(IF((CLOSE > OPEN),(QJJ * (HIGH - LOW)),IF((CLOSE < OPEN),(QJJ * ((HIGH - OPEN) + (CLOSE - LOW))),(VOL / 2))) + IF((CLOSE > OPEN)

,(0 - (QJJ * ((HIGH - CLOSE) + (OPEN - LOW)))),IF((CLOSE < OPEN),(0 - (QJJ * (HIGH - LOW))),(0 - (VOL / 2)))));

ZLL:=(VOL / CAPITAL);

HSL1:=IF((ZLL > 10),10,ZLL);

HSL:=((XVL / 20) / 1.15); 

进攻流量:=(((HSL * 0.55) + (REF(HSL,1) * 0.33)) + (REF(HSL,2) * 0.22));

GJJ:=EMA(进攻流量,8); LLJX:=EMA(进攻流量,3);

动态天量:=CONST(IF(V=HHV(V,20),V,REF(V,BARSLAST(V=HHV(V,20))))),COLOR00FF00,POINTDOT;

STICKLINE(((HSL * 0.4) >= 0),动态天量+((HSL * 0.4) +LLJX)*20,动态天量,3,0),COLORYELLOW;

STICKLINE(((HSL * 0.4) < 0),动态天量+((HSL * 0.4) +LLJX)*20,动态天量,3,0),COLOR00FF00;

资金流入:=IF((HSL*0.4+LLJX)>0,(HSL*0.4+LLJX),DRAWNULL),COLORRED;

资金流出:=IF((HSL*0.4+LLJX)<0,(HSL*0.4+LLJX),DRAWNULL),COLOR00FF00;

资金收支:=(HSL*0.4+LLJX),LINETHICK0;

万元:=AMOUNT/10000{0000},VOLSTICK,COLORFF00FF;

资金净收支:IF((HSL*0.4+LLJX)>0,资金流入,资金流出),COLORWHITE,POINTDOT;

收支比例%:IF((HSL*0.4+LLJX)>0,资金流入/万元*100,资金流出/万元*100),COLORYELLOW;

连红天1:=BARSLASTCOUNT(资金净收支>0),,COLORA20FFD,NODRAW;

连红天2:=IF(连红天1=0,REF(连红天1,1),连红天1),,COLORA20FFD,NODRAW;

连红天3:=IF(连红天2=0,REF(连红天1,2),连红天2),,COLORA20FFD,NODRAW;

连红天4:=IF(连红天3=0,REF(连红天1,3),连红天3),,COLORA20FFD,NODRAW;

近期连红天:IF(连红天4=0,REF(连红天1,4),连红天4),,COLORYELLOW,NODRAW; 

三日资金:SUM(资金收支,3),COLORWHITE,NODRAW;

五日资金:SUM(资金收支,5),COLORFF00FF,NODRAW; 

十日资金:SUM(资金收支,10),COLOR0000FF,NODRAW;

资金流量:=LLJX,LINETHICK0,COLOR0000FF;

STICKLINE((资金流量 > 0),动态天量+资金流量*20,动态天量,3,0),COLOR0000FF;

STICKLINE((资金流量 < 0),动态天量+资金流量*20,动态天量,3,0),COLOR008000;

MID:=(3*CLOSE+LOW+OPEN+HIGH)/6;

主力:(20*MID+19*REF(MID,1)+18*REF(MID,2)+17*REF(MID,3)+

16*REF(MID,4)+15*REF(MID,5)+14*REF(MID,6)+

13*REF(MID,7)+12*REF(MID,8)+11*REF(MID,9)+

10*REF(MID,10)+9*REF(MID,11)+8*REF(MID,12)+

7*REF(MID,13)+6*REF(MID,14)+5*REF(MID,15)+

4*REF(MID,16)+3*REF(MID,17)+2*REF(MID,18)+REF(MID,20))/210,COLORRED;

IF(主力>=REF(主力,1),主力,DRAWNULL),COLORFF00FF,LINETHICK3;

IF(主力<=REF(主力,1),主力,DRAWNULL),COLORGREEN,LINETHICK3;

A7:=C-REF(C,1);

A8:=100*EMA(EMA(A7,6),6)/EMA(EMA(ABS(A7),6),6);

进:(LLV(A8,2)=LLV(A8,7) AND COUNT(A8<0,2) AND CROSS(A8,MA(A8,2))),STICK,COLORRED;

DRAWICON(进>0,进,23);

VAR1:=1;

 VAR2:=((((2*CLOSE)+HIGH)+LOW) / 4);

 VAR4:=LLV(LOW,5);

 VAR5:=HHV(HIGH,4);

 C1:=(EMA((((VAR2-VAR4)/(VAR5-VAR4))*100),4)*VAR1);

 C2:=(EMA(((0.667*REF(C1,1))+(0.333*C1)),2)*VAR1);

卖1:IF( CROSS(C2,C1),C2,DRAWNULL)COLORFFFF15,STICK;

DRAWICON(卖1>0,卖1,35);

 F1_:=IF(CROSS(C2,C1),C2,DRAWNULL);

底:IF( CROSS(C1,C2),C1,DRAWNULL),STICK,COLORRED;

DRAWICON(底>0,底,34);

 F2_:=IF(CROSS(C1,C2),C1,DRAWNULL);

条件:=CROSS(C1,C2) AND C1<40;

条件0:=CROSS(C2,C1) AND C1>90;

 TJ1:=CROSS(C1,C2);

 TJ2:=CROSS(C2,C1);

 TJ3:=CROSS(C1,C2) AND REF(C1,1)<20;

 TJ4:=CROSS(C2,C1) AND REF(C1,1)>80;

最新:C,COLORFFFFFF,CIRCLEDOT,NODRAW;

 IF(C>=REF(C,1),C,DRAWNULL),COLORRED,CIRCLEDOT,NODRAW;

 AA10:=SUM(AMOUNT,BARSCOUNT(C))/SUM(VOL*100,BARSCOUNT(C));

 BB10:=BETWEEN(C/AA10,C+H,C-H);

 DRAWICON(ISLASTBAR AND C>REF(C,1),C,1);

 DRAWICON(ISLASTBAR AND C<REF(C,1),C,2);