通达信〖游资控盘〗分时主图指标公式源码

VAR01:=MAX(DYNAINFO(3),DYNAINFO(5));
VAR02:=MIN(DYNAINFO(3),DYNAINFO(6));
VAR03:=VAR01-VAR02;
阻力:VAR02+VAR03*8/9,COLORRED,LINETHICK1;
支撑:VAR02+VAR03*0.5/9,COLORGREEN,LINETHICK1;
中:(VAR01+VAR02)/2,POINTDOT,COLORYELLOW,LINETHICK1;
DRAWICON(LONGcrOSS(支撑,C,2),C*0.995,44);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORRED;
DRAWICON(LONGCROSS(C,阻力,2),C*1.005,45);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORGREEN;
STICKLINE(C<支撑,支撑,C,1,0),COLORYELLOW;
成交额:=V*C/100,NODRAW;
XAB123:=SUM((IF(((成交额/8>20) AND (C>(REF(C,1)))),成交额,0)),0);
YBC234:=SUM((IF(((成交额/8>20) AND (C<(REF(C,1)))),成交额,0)),0);
ZCD345:=SUM((IF(((成交额/8<20) AND (C>(REF(C,1)))),成交额,0)),0);
ADE456:=SUM((IF(((成交额/8<20) AND (C<(REF(C,1)))),成交额,0)),0);
BEF567:=((XAB123+YBC234)+ZCD345)+ADE456;
CFG678:=1;
DGH789:=STRCAT(STRCAT('机构买入',CON2STR((100*XAB123)/BEF567,0)),'%');
EHI890:=STRCAT(STRCAT('机构卖出',CON2STR((100*YBC234)/BEF567,0)),'%');
DRAWTEXT_FIX(CFG678=1,0.0,0.9,0,DGH789),COLORRED;
DRAWTEXT_FIX(CFG678=1,0.1,0.1,0,EHI890),COLORGREEN;
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.09,0.95,0,所属板块),COLORYELLOW;
FIJ901:=(3*C+L+O+H)/6;
GKL012:=(20*FIJ901+19*REF(FIJ901,1)+18*REF(FIJ901,2)+17*REF(FIJ901,3)+16*REF(FIJ901,4)+15*REF(FIJ901,5)+14*REF(FIJ901,6)+13*REF(FIJ901,7)+12*REF(FIJ901,8)+11*REF(FIJ901,9)+10*REF(FIJ901,10)+9*REF(FIJ901,11)+8* REF(FIJ901,12)+7*REF(FIJ901,13)+6*REF(FIJ901,14)+5*REF(FIJ901,15)+4*REF(FIJ901,16)+3*REF(FIJ901,17)+2*REF(FIJ901,18)+REF(FIJ901,21))/210;
VAR123:=HHV(C,90);
IMN234:=LLV(C,90);
JNO345:=VAR123-IMN234;
KOP456:=EMA((C-IMN234)/JNO345-0.5,14);
LPQ567:=KOP456*20;
LQR678:=REF(HHV(C,66),2);
MRS789:=CROSS(C,LQR678) AND (HHV(C,110)/LLV(C,110)-1)*100<45 AND LPQ567<5.666;
NST890:=15*FILTER(MRS789,41)>10;
主力扫盘:=NST890*50;
DRAWTEXT(NST890,C,'☆游资吃进'),COLORRED;
OTU901:=(vol/C)/2;
PUV012:=SUM(IF(OTU901>100 AND C>REF(C,1),OTU901,0),0);
QVW123:=SUM(IF(OTU901>100 AND C<REF(C,1),OTU901,0),0);
RWX234:=SUM(IF(OTU901<100 AND C>REF(C,1),OTU901,0),0);
SXY345:=SUM(IF(OTU901<100 AND C<REF(C,1),OTU901,0),0);
TYZ456:=PUV012+QVW123+RWX234+SXY345;
机买:=(PUV012/TYZ456)*100;
机卖:=(QVW123/TYZ456)*100;
主力差:=机买-机卖;
UZA567:=DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构')=1;
DRAWTEXT(UZA567>0 ,C*1.0001,'●'),COLORGREEN;
VAB678:=EMA(EMA(C,13),13);
控盘:=(VAB678-REF(VAB678,1))/REF(VAB678,1)*1000;
WBC789:=DYNAINFO(11);
财:=(EMA(C,8)-EMA(C,55))*10;
神:=EMA(财,3);
VARC1:=(C-WBC789)/WBC789<-0.03;
VARC2:=控盘>REF(控盘,1) AND 控盘<-0.2;
VARC3:=CROSS(财,神) AND 财<-0.3;
XCD890:=FILTER(VARC1 AND VARC2 AND VARC3,13);
DRAWTEXT(XCD890,C,'●分时控盘'),COLORYELLOW;
星期:=WEEkdAY;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
ZDE901:=(自然日-REF(自然日,1))!=星期-REF(星期,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(ZDE901)+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,COLORRED;
DRAWICON(CROSS(C,决策),C,1);