这个指标主要功能是判断股票买卖点和主力动向。核心有三部分：
支撑阻力系统
用最高最低价计算阻力位（8/9处）和支撑位（0.5/9处）
突破阻力位时显示绿色箭头，跌破支撑位显示红色箭头
当前价低于支撑位时显示黄色警示
主力监控
计算机构买卖比例并显示百分比
出现"主力吸筹"信号时提示建仓机会
通过成交额判断大资金动向
趋势判断
十三周均线作为中长期趋势线
股价上穿十三周线时出买入信号
结合大盘走势进行强弱对比
{庄赢分时主图}
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;
HG1:=SUM((IF(((成交额/8>20) AND (C>(REF(C,1)))),成交额,0)),0);
HG2:=SUM((IF(((成交额/8>20) AND (C< (REF(C,1)))),成交额,0)),0);
HG3:=SUM((IF(((成交额/8< 20) AND (C>(REF(C,1)))),成交额,0)),0);
HG4:=SUM((IF(((成交额/8< 20) AND (C< (REF(C,1)))),成交额,0)),0);
HG5:=((HG1+HG2)+HG3)+HG4;
HG6:=1;
HG7:=STRCAT(STRCAT('机构买入',CON2STR((100*HG1)/HG5,0)),'%');
HG8:=STRCAT(STRCAT('机构卖出',CON2STR((100*HG2)/HG5,0)),'%');
DRAWTEXT_FIX(HG6=1,0.0,0.9,0,HG7),COLORRED;
DRAWTEXT_FIX(HG6=1,0.1,0.1,0,HG8),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/大盘;
VARR1:=(3*C+L+O+H)/6;
VARR2:=(20*VARR1+19*REF(VARR1,1)+18*REF(VARR1,2)+17*REF(VARR1,3)+16*REF(VARR1,4)+15*REF(VARR1,5)+14*REF(VARR1,6)+13*REF(VARR1,7)+12*REF(VARR1,8)+11*REF(VARR1,9)+10*REF(VARR1,10)+9*REF(VARR1,11)+8* REF(VARR1,12)+7*REF(VARR1,13)+6*REF(VARR1,14)+5*REF(VARR1,15)+4*REF(VARR1,16)+3*REF(VARR1,17)+2*REF(VARR1,18)+REF(VARR1,21))/210;
VARR3:=HHV(C,90);
VARR4:=LLV(C,90);
VARR5:=VARR3-VARR4;
VARR6:=EMA((C-VARR4)/VARR5-0.5,14);
VARR7:=VARR6*20;
VARR8:=REF(HHV(C,66),2);
VARR9:=CROSS(C,VARR8) AND (HHV(C,110)/LLV(C,110)-1)*100< 45 AND VARR7< 5.666;
VARR10:=15*FILTER(VARR9,41)>10;
主力扫盘:=VARR10*50,;
DRAWTEXT(VARR10,C,'●主力吸筹'),COLORRED;
VARR:=(VOL/C)/2;
VARR11:=SUM(IF(VARR>100 AND C>REF(C,1),VARR,0),0);
VARR12:=SUM(IF(VARR>100 AND C< REF(C,1),VARR,0),0);
VARR13:=SUM(IF(VARR< 100 AND C>REF(C,1),VARR,0),0);
VARR14:=SUM(IF(VARR< 100 AND C< REF(C,1),VARR,0),0);
VARR15:=VARR11+VARR12+VARR13+VARR14;
机买:=(VARR11/VARR15)*100;
机卖:=(VARR12/VARR15)*100;
主力差:=机买-机卖;
VARR16:=DRAWTEXT(主力差>0 AND REF(主力差,1)<=0,C*0.85,'●机构')=1;
DRAWTEXT(VARR16>0 ,C*1.0001,'●'),COLORRED;
VARR17:=EMA(EMA(C,13),13);
控盘:=(VARR17-REF(VARR17,1))/REF(VARR17,1)*1000;
X_:=DYNAINFO(11);
财:=(EMA(C,8)-EMA(C,55))*10;
神:=EMA(财,3);
X_1:=(C-X_)/X_< -0.03;
X_2:=控盘>REF(控盘,1) AND 控盘< -0.2;
X_3:=CROSS(财,神) AND 财< -0.3;
X_4:=FILTER(X_1 AND X_2 AND X_3,13);
DRAWTEXT(X_4,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);
