H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;阻力:L1+P1*8/9,COLORCYAN,LINETHICK1;
支撑:L1+P1*0.5/9,COLORFF66FF,LINETHICK1;中:(H1+L1)/2,POINTDOT,COLORWHITE,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;
VARA1:=SUM((IF(((成交额/8>20) AND (C>(REF(C,1)))),成交额,0)),0);
VARA2:=SUM((IF(((成交额/8>20) AND (C<(REF(C,1)))),成交额,0)),0);
VARA3:=SUM((IF(((成交额/8<20) AND (C>(REF(C,1)))),成交额,0)),0);
VARA4:=SUM((IF(((成交额/8<20) AND (C<(REF(C,1)))),成交额,0)),0);
VARA5:=((VARA1+VARA2)+VARA3)+VARA4;VARA6:=1;
VARA7:=STRCAT(STRCAT('机构买入',CON2STR((100*VARA1)/VARA5,0)),'%');
VARA8:=STRCAT(STRCAT('机构卖出',CON2STR((100*VARA2)/VARA5,0)),'%');
DRAWTEXT_FIX(VARA6=1,0.0,0.9,0,VARA7),COLORRED;
DRAWTEXT_FIX(VARA6=1,0.1,0.1,0,VARA8),COLORBLACK;
所属板块:=STRCAT('【所属板块】',STRCAT(STRCAT(STRCAT(' [行业]—',HYBLOCK),STRCAT(' [地域]—',DYBLOCK)),STRCAT(' [概念]—',GNBLOCK)));
DRAWTEXT_FIX(ISLASTBAR,0.09,0.95,0,所属板块),COLORWHITE;
价:=C;大盘:=EMA(INDEXC,500)/EMA(C,500);
大盘参考线:=INDEXC/大盘;
VARB1:=(3*C+L+O+H)/6;
VARB2:=(20*VARB1+19*REF(VARB1,1)+18*REF(VARB1,2)+17*REF(VARB1,3)+16*REF(VARB1,4)+15*REF(VARB1,5)+14*REF(VARB1,6)+13*REF(VARB1,7)+12*REF(VARB1,8)+11*REF(VARB1,9)+10*REF(VARB1,10)+9*REF(VARB1,11)+8* REF(VARB1,12)+7*REF(VARB1,13)+6*REF(VARB1,14)+5*REF(VARB1,15)+4*REF(VARB1,16)+3*REF(VARB1,17)+2*REF(VARB1,18)+REF(VARB1,21))/210;
VARB3:=HHV(C,90);VARB4:=LLV(C,90);
VARB5:=VARB3-VARB4;
VARB6:=EMA((C-VARB4)/VARB5-0.5,14);
VARB7:=VARB6*20;VARB8:=REF(HHV(C,66),2);
VARB9:=CROSS(C,VARB8) AND (HHV(C,110)/LLV(C,110)-1)*100<45 AND VARB7<5.666;
VARB10:=15*FILTER(VARB9,41)>10;
主力扫盘:=VARB10*50,;DRAWTEXT(VARB10,C,'●主力吸筹'),COLORRED;
VARB:=(vol/C)/2;VARB11:=SUM(IF(VARB>100 AND C>REF(C,1),VARB,0),0);
VARB12:=SUM(IF(VARB>100 AND C<REF(C,1),VARB,0),0);VARB13:=SUM(IF(VARB<100 AND C>REF(C,1),VARB,0),0);
VARB14:=SUM(IF(VARB<100 AND C<REF(C,1),VARB,0),0);
VARB15:=VARB11+VARB12+VARB13+VARB14;
机买:=(VARB11/VARB15)*100;
机卖:=(VARB12/VARB15)*100;
主力差:=机买-机卖;
VARB16:=DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构')=1;
DRAWTEXT(VARB16>0 ,C*1.0001,'●'),COLORRED;
VARB17:=EMA(EMA(C,13),13);
控盘:=(VARB17-REF(VARB17,1))/REF(VARB17,1)*1000;
VARC:=DYNAINFO(11);
财:=(EMA(C,8)-EMA(C,55))*10;
神:=EMA(财,3);
{股价与均线偏离买卖条件}
VARC1:=(C-VARC)/VARC<-0.03;
{控盘买卖条件}
VARC2:=控盘>REF(控盘,1) AND 控盘<-0.2;
{波段买卖条件}
VARC3:=CROSS(财,神) AND 财<-0.3;{以下为信号};
VARC4:=FILTER(VARC1 AND VARC2 AND VARC3,13);
DRAWTEXT(VARC4,C,'●一致'),COLORYELLOW;
星期:=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);