区间高:=MAX(DYNAINFO(3),DYNAINFO(5));
区间低:=MIN(DYNAINFO(3),DYNAINFO(6));
区间:=区间高-区间低;
阻力:区间低+区间*8/9,COLORRED,LINETHICK1;
支撑:区间低+区间*0.5/9,COLORGREEN,LINETHICK1;
中:(区间高+区间低)/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;
大买额:=SUM((IF(((成交额/8>20) AND (C>(REF(C,1)))),成交额,0)),0);
大卖额:=SUM((IF(((成交额/8>20) AND (C<(REF(C,1)))),成交额,0)),0);
小买额:=SUM((IF(((成交额/8<20) AND (C>(REF(C,1)))),成交额,0)),0);
小卖额:=SUM((IF(((成交额/8<20) AND (C<(REF(C,1)))),成交额,0)),0);
额合计:=((大买额+大卖额)+小买额)+小卖额;
机构买文:=STRCAT(STRCAT('机构买入',CON2STR((100*大买额)/额合计,0)),'%');
机构卖文:=STRCAT(STRCAT('机构卖出',CON2STR((100*大卖额)/额合计,0)),'%');
DRAWTEXT_FIX(1,0.0,0.9,0,机构买文),COLORRED;
DRAWTEXT_FIX(1,0.1,0.1,0,机构卖文),COLORGREEN;
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.09,0.95,0,所属板块),COLORYELLOW;
加权价:=(3*C+L+O+H)/6;
加权均:=(20*加权价+19*REF(加权价,1)+18*REF(加权价,2)+17*REF(加权价,3)+16*REF(加权价,4)+15*REF(加权价,5)+14*REF(加权价,6)+13*REF(加权价,7)+12*REF(加权价,8)+11*REF(加权价,9)+10*REF(加权价,10)+9*REF(加权价,11)+8*REF(加权价,12)+7*REF(加权价,13)+6*REF(加权价,14)+5*REF(加权价,15)+4*REF(加权价,16)+3*REF(加权价,17)+2*REF(加权价,18)+REF(加权价,19))/210;
近高90:=HHV(C,90);
近低90:=LLV(C,90);
振幅90:=近高90-近低90;
动量:=EMA((C-近低90)/振幅90-0.5,14);
动量放大:=动量*20;
近高参照:=REF(HHV(C,66),2);
游资条件:=CROSS(C,近高参照) AND (HHV(C,110)/LLV(C,110)-1)*100<45 AND 动量放大<5.666;
游资吃进:=15*FILTER(游资条件,41)>10;
DRAWTEXT(游资吃进,C,'☆游资吃进'),COLORRED;
量价密:=(VOL/C)/2;
密买:=SUM(IF(量价密>100 AND C>REF(C,1),量价密,0),0);
密卖:=SUM(IF(量价密>100 AND C<REF(C,1),量价密,0),0);
疏买:=SUM(IF(量价密<100 AND C>REF(C,1),量价密,0),0);
疏卖:=SUM(IF(量价密<100 AND C<REF(C,1),量价密,0),0);
密合计:=密买+密卖+疏买+疏卖;
机买:=(密买/密合计)*100;
机卖:=(密卖/密合计)*100;
主力差:=机买-机卖;
机构拐头:=主力差>0 AND REF(主力差,1)<=0;
DRAWTEXT(机构拐头,C*0.85,'●机构'),COLORGREEN;
DRAWTEXT(机构拐头,C*1.0001,'●'),COLORGREEN;
控盘平滑:=EMA(EMA(C,13),13);
控盘:=(控盘平滑-REF(控盘平滑,1))/REF(控盘平滑,1)*1000;
均价:=DYNAINFO(11);
财:=(EMA(C,8)-EMA(C,55))*10;
神:=EMA(财,3);
低于均价:=(C-均价)/均价<-0.03;
控盘回升仍弱:=控盘>REF(控盘,1) AND 控盘<-0.2;
财神金叉:=CROSS(财,神) AND 财<-0.3;
分时控盘:=FILTER(低于均价 AND 控盘回升仍弱 AND 财神金叉,13);
DRAWTEXT(分时控盘,C,'●分时控盘'),COLORYELLOW;
星期:=WEEKDAY;
日1:=DATETODAY(DATE);
上市日:=REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT);
自然日:=日1-DATETODAY(上市日)+1;
换周:=(自然日-REF(自然日,1))!=星期-REF(星期,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0;
本周第几天:=BARSLAST(换周)+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);