通达信机构仓位波段指标公式源码

　　HJ_1:=(2*CLOSE+HIGH+LOW+OPEN)/5;

　　HJ_2:=EMA(EMA(EMA(HJ_1,4),4),4);

　　HJ_3:=(HJ_2-REF(HJ_2,1))/REF(HJ_2,1)*100;

　　HJ_4:=MA(HJ_3,2);

　　HJ_5:=(HJ_3-HJ_4)*30000+40000;

　　资金:(HJ_3-HJ_4)>0,volSTICK NODRAW;

　　资金2:(HJ_3-HJ_4)<0,VOLSTICK NODRAW;

　　HJ_6:=EMA(CLOSE,5)-EMA(CLOSE,55);

　　HJ_7:=EMA(HJ_6,10);

　　HJ_8:=(HJ_6-HJ_7)*20000+20000;

　　资金3:(HJ_6-HJ_7)>0,VOLSTICK NODRAW;

　　资金4:(HJ_6-HJ_7)<0,VOLSTICK NODRAW;

　　STICKLINE(资金3 AND 资金,0,100,3,0), COLORYELLOW;

　　STICKLINE(资金3 AND 资金,0,100,2.6,0), COLORRED;

　　STICKLINE(资金2,0,100,3,0), COLORGREEN;

　　STICKLINE(资金4,0,100,3,0), COLORGREEN;

　　机构资金:(HJ_3-HJ_4)*30000+40000,COLORYELLOW NODRAW;

　　DRAWTEXT(ISLASTBAR,90,' 红加'),COLOR7800FF ;

　　敢死队资金:(HJ_6-HJ_7)*20000+20000,COLORMAGENTA NODRAW;

　　DRAWTEXT(ISLASTBAR,40,' 机构'),COLOR7800FF ;

　　AAV:=VOL/((H-L)*2-Abs(C-O))NODRAW;

　　KKPU1:=IF(C>OPEN,AAV*(HIGH-LOW),IF(C

　　KKPU2:=IF(C>OPEN,0-AAV*((HIGH-C)+(OPEN-LOW)),IF(C

　　净流入:=(KKPU1+KKPU2)/99,NODRAW;

　　KKPU3:=(C/REF(C,1)-1)*100;

　　A进:DRAWTEXT(净流入>=200 AND KKPU3>=3,L*0.995,VARCAT(VARCAT('净买:',VAR2STR(净流入,0)),'万')),COLORYELLOW NODRAW;

　　B出:DRAWTEXT(净流入<-200 AND KKPU3<=-2,H*1.01,VARCAT(VARCAT('流出:',VAR2STR(净流入,0)),'万')),COLORGREEN NODRAW;

　　STICKLINE(A进,0,60,3,0),COLORRED;

　　STICKLINE(A进,0,60,2.5,0),COLORYELLOW;

　　STICKLINE(B出,0,100,3,0),COLORGREEN;

　　VAR2:=(CLOSE-LLV(LOW,24))/(HHV(HIGH,24)-LLV(LOW,24))*200*10 NODRAW;

　　能量: SMA(VAR2,5,1)/100,COLORRED NODRAW;

　　DRAWBAND(能量>REF(能量,1),RGB(250,0,120),0,RGB(0,180,180))NODRAW;

　　STICKLINE(能量>REF(能量,1),0,30,3.2,0),COLOR7800FF;

　　STICKLINE(能量

　　X_1:=(CLOSE-EMA(CLOSE,5))/EMA(CLOSE,5)*100;

　　X_2:=(CLOSE-EMA(CLOSE,10))/EMA(CLOSE,10)*100;

　　X_3:=(CLOSE-EMA(CLOSE,20))/EMA(CLOSE,20)*100;

　　X_4:=(CLOSE-EMA(CLOSE,60))/EMA(CLOSE,60)*100;

　　X_5:=(CLOSE-EMA(CLOSE,120))/EMA(CLOSE,120)*100;

　　X_6:=X_1>1 AND X_2>2 AND X_3>3 AND X_4>4;

　　X_7:=X_1>2 AND X_2>4 AND X_3>6 AND X_4>8;

　　X_8:=X_1>3 AND X_2>5 AND X_3>7 AND X_4>9;

　　X_9:=X_1>4 AND X_2>6 AND X_3>8 AND X_4>10 AND X_5>12;

　　X_10:=BArslASTCOUNT(X_7)=1 AND crOSS(CLOSE,EMA(CLOSE,50)*3.19) AND HIGH/CLOSE<1.05;

　　小鱼:BARSLASTCOUNT(X_6)*3.5,NODRAW,COLORWHITE;

　　红鱼:BARSLASTCOUNT(X_7)*3.5,NODRAW,COLORRED;

　　紫鱼:BARSLASTCOUNT(X_8)*3.5,NODRAW,COLORMAGENTA;

　　黄鱼:BARSLASTCOUNT(X_9)*3.5,NODRAW,COLORYELLOW;

　　DRAWBAND(0,RGB(0,235,235),0,RGB(0,0,0));

　　STICKLINE(X_6,0,小鱼*3,(-3),(-3)),COLORCYAN;

　　STICKLINE(X_7,0,红鱼*3.5,(-3),0),COLORRED;

　　STICKLINE(X_8,0,紫鱼*3.5,(-3),0),COLORMAGENTA;

　　STICKLINE(X_8,0,黄鱼*3.5,(-3),0),COLOR00AAAA;

　　STICKLINE(X_8,0,黄鱼*3.5,1,0),COLORYELLOW;

　　STICKLINE(X_10,小鱼*3.5+1,小鱼*3.5+2,(-3),0),COLOR00AA00;

　　STICKLINE(X_10,小鱼*3.5+1,小鱼*3.5+2,1,0),COLORGREEN;

　　A5:=34;B5:=3;

　　RRR1:=EMA(100*(CLOSE-LLV(LOW,A5))/(HHV(HIGH,A5)-LLV(LOW,A5)),B5)/4,COLORFFFF00,LINETHICK2;

　　分界线:RRR1, NODRAW;

　　STICKLINE((CROSS(21.5,分界线)),0,100,3,0), COLORGREEN NODRAW;

　　DRAWICON(CROSS(21.5,分界线),21.H*2.8,8);

　　STICKLINE((CROSS(23.16,分界线)),0,45,3,0), COLORGREEN;

　　STICKLINE((CROSS(23.16,分界线)),0,45,1.5,0), COLORBLUE;

　　DRAWICON(CROSS(23.16,分界线),23.L*3.5,15);

　　B:DRAWICON(RANGE(topRANGE(V),87,50000) AND C

　　STICKLINE(B,0,45,3,0),COLORBLUE;

　　B2:DRAWICON(RANGE(TOPRANGE(V),87,50000) AND C

　　沪A涨家数:="999999$ADVANCE",COLORRED,NODRAW;

　　沪A跌家数:="999999$DECLINE",COLORGREEN,NODRAW;

　　深A涨家数:="399001$ADVANCE",COLORRED,NODRAW;

　　深A跌家数:="399001$DECLINE",COLORGREEN,NODRAW;

　　上涨总家数:=沪A涨家数+深A涨家数,COLORRED,NODRAW;

　　下跌总家数:=沪A跌家数+深A跌家数,COLORGREEN,NODRAW;

　　上涨总家数比:=上涨总家数/(上涨总家数+下跌总家数)*100,COLORRED,NODRAW;

　　下跌总家数比:=下跌总家数/(上涨总家数+下跌总家数)*100,COLORGREEN,NODRAW;

　　AAA1B:=STRCAT(STRCAT('上涨总家数比 ',CON2STR(上涨总家数比,0)),' %');

　　DRAWTEXT_FIX(ISLASTBAR,0.01,0.69,0,AAA1B),COLORWHITE;

　　AAA2B:=STRCAT(STRCAT('下跌总家数比 ',CON2STR(下跌总家数比,0)),' %');

　　DRAWTEXT_FIX(ISLASTBAR,0.01,0.89,0,AAA2B),COLORBLUE;

　　A:=C/REF(C,1)>1.048 AND C=H AND BETWEEN(FORCAST(V,4),0.2*FORCAST(V,12),2.1*FORCAST(V,12));

　　首板:FILTER(A,28);

　　A00:=SUM(IF((CLOSE> REF(CLOSE,1.000)),VOL,IF((CLOSE

　　A01:=SUMBARS(VOL,CAPITAL);

　　A02:=IF((CLOSE>LLV(CLOSE,A01)),1.000,(0-1.000))*IF((A00 >LLV(A00,A01)),1.000,(0-1.000));

　　A03:=(COUNT((IF((A02=(0-1.000)),1.000,0)=1.000),8.000)>2.000);

　　A04:=((CLOSE-DMA((((3.000 * HIGH + LOW)+OPEN)+2.000 * CLOSE)/7.000,VOL/SUM(AMOUNT,13.000)/

　　AMOUNT/VOL/100.000/100.000))/DMA((((3.000*HIGH+LOW)+OPEN)+2.000*CLOSE)/7.000,VOL/SUM(AMOUNT,13.000)/

　　AMOUNT/VOL/100.000/100.000)*100.000<(0-18.000));

　　A05:=((CLOSE-MIN(REF(CLOSE,5.000)*0.865,REF(CLOSE,21.000)*0.772))/CLOSE<0.009);

　　A06:=((A03 AND A04) AND A05)NODRAW;

　　STICKLINE(A06,0,100,8,0),COLORMAGENTA;