通达信分时乾坤决策指标公式

XSR:=1220601;
XSJ:=IF(DATE<XSR,1,DRAWNULL);
H01:=MAX(DYNAINFO(3),DYNAINFO(5));
L01:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H01-L01;
阻力:L01+P1*8/9,COLORCYAN,LINETHICK1;
支撑:L01+P1*0.5/9,COLORYELLOW,LINETHICK1;
中:(H01+L01)/2,POINTDOT,COLORWHITE,LINETHICK1;
DRAWICON(LONGcrOSS(支撑,C,2),C*0.995,44);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORYELLOW;
DRAWICON(LONGCROSS(C,阻力,2),C*1.005,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORCYAN;
STICKLINE(C<支撑,支撑,C,1,0),COLORLIMAGENTA;
{主力扫盘}
价:=C;
大盘:=EMA(INDEXC,500)/EMA(C,500);
大盘参考线:=INDEXC/大盘;
VAR20:=(3*CLOSE+LOW+OPEN+HIGH)/6;
VAR21:=(20*VAR20+19*REF(VAR20,1)+18*REF(VAR20,2)+17*REF(VAR20,3)+16*REF(VAR20,4)+15*REF(VAR20,5)+14*REF(VAR20,6)+13*REF(VAR20,7)+12*REF(VAR20,8)+11*REF(VAR20,9)+10*REF(VAR20,10)+9*REF(VAR20,11)+8* REF(VAR20,12)+7*REF(VAR20,13)+6*REF(VAR20,14)+5*REF(VAR20,15)+4*REF(VAR20,16)+3*REF(VAR20,17)+2*REF(VAR20,18)+REF(VAR20,21))/210;
VAR22:=EMA(VAR21,15);
VAR23:=HHV(CLOSE,90);
VAR24:=LLV(CLOSE,90);
VAR25:=VAR23-VAR24;
VAR26:=EMA((CLOSE-VAR24)/VAR25-0.5,14);
ZLSP:=VAR26*20;
VAR27:=REF(HHV(CLOSE,66),2);
VAR28:=CROSS(CLOSE,VAR27) AND (HHV(CLOSE,110)/LLV(CLOSE,110)-1)*100<45 AND ZLSP<5.666;
VAR29:=LLV(ZLSP,35)<-8.9 AND CROSS(ZLSP,-7.815) AND ZLSP<-1.2;
VAR30:=10*FILTER(VAR29,41);
VAR31:=15*FILTER(VAR28,41)>10;
主力扫盘:=VAR31*50,;
DRAWTEXT(VAR31,C,'●主力扫盘'),COLORYELLOW;
{主力}
AX:=(vol/C)/2;
A2X:=SUM(IF(AX>100 AND CLOSE>REF(CLOSE,1),AX,0),0);
A3X:=SUM(IF(AX>100 AND CLOSE<REF(CLOSE,1),AX,0),0);
A4X:=SUM(IF(AX<100 AND CLOSE>REF(CLOSE,1),AX,0),0);
A5X:=SUM(IF(AX<100 AND CLOSE<REF(CLOSE,1),AX,0),0);
A6X:=A2X+A3X+A4X+A5X;
机买:=(A2X/A6X)*100;
机卖:=(A3X/A6X)*100;
主力差:=机买-机卖;
AAA1X:=DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构')=1;
DRAWTEXT(AAA1X>0 ,CLOSE*1.0001,'●'),COLORRED;
{有庄控盘}
VAR18:=EMA(EMA(CLOSE,13),13);
控盘:=(VAR18-REF(VAR18,1))/REF(VAR18,1)*1000;
JJ:=DYNAINFO(11);
P:=55;S:=8;M1:=3;
财:=(EMA(CLOSE,S)-EMA(CLOSE,P))*10;
神:=EMA(财,M1);
{股价与均线偏离买卖条件}
BTJ1:=(C-JJ)/JJ<-0.03;
{控盘买卖条件}
BTJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;
{波段买卖条件}
BTJ3:=CROSS(财,神) AND 财<-0.3;
{以下为信号};
BTJ81:=FILTER(BTJ1 AND BTJ2 AND BTJ3,13);
DRAWTEXT(BTJ81,C,'●庄影'),COLORCYAN;
{分时乾坤决策线}
星期:=WEEkdAY;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZB:=(自然日-REF(自然日,1))!=星期-REF(星期,1)OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BArslAST(ZB)+1;
MA1:=REF(C,本周第几天);
MA2:=REF(MA1,本周第几天);
MA3:=REF(MA2,本周第几天);
MA4:=REF(MA3,本周第几天);
MA5:=REF(MA4,本周第几天);
MA6:=REF(MA5,本周第几天);
MA7:=REF(MA6,本周第几天);
MA8:=REF(MA7,本周第几天);
MA9:=REF(MA8,本周第几天);
MA10:=REF(MA9,本周第几天);
MA11:=REF(MA10,本周第几天);
MA12:=REF(MA11,本周第几天);
十三周价:=(C+MA1+MA2+MA3+MA4+MA5+MA6+MA7+MA8+MA9+MA10+MA11+MA12)/13;
决策:REFDATE(十三周价,DATE),POINTDOT,COLORMAGENTA;
DRAWICON(CROSS(C,决策),C,1);