通达信超级分时指标分时主图
⇨⇦
发布时间：2017-10-14 21:54:00
{牛熊线}
NX:=MA(((SLOPE(C,20)*5)+C),10);
{中枢}
B1:=HOUR=09 AND MINUTE=45;
B20:=LLV(L,15);
B30:=BARSLAST(B1);
B4:=REF(B20,B30);
B5:CONST(B4),COLORFF80FF,CIRCLEDOT,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=20,B4,＂支撑位＂),COLORYELLOW;
C1:=HOUR=09 AND MINUTE=45;
C2:=HHV(H,15);
C3:=BARSLAST(C1);
C4:=REF(C2,C3);
C5:CONST(C4),COLORFF80FF,CIRCLEDOT,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=20,C4,＂压力突破位＂),COLORYELLOW;
{DRAWBAND(C5,RGB(204,204,204),B5,RGB(204,204,204));}
{MACD}
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD10:=(DIF-DEA)*2;
AA0:=MACD10>00 AND DIF>0 AND DEA>0;
{捉牛信号}
A100:=HOUR=10 AND MINUTE=0;
A20:=HHV(H,30);
A30:=BARSLAST(A100);
A40:=REF(A20,A30);
A50:=CONST(A40);
A80:=CLOSE>A50 AND REF(C<=a50,1) and=＂＂ close=＂＂>NX;<!--=a50,1)-->
AB:=FILTER(A80,100);
A90:=DYNAINFO(3);
AC:=CLOSE<=a90*1.04 and=＂＂ close=＂＂>A90;<!--=a90*1.04-->
量比:=V/REF(MA(V,5),1);
TDXDLL2(1,AB,CLOSE,LOW);
XG:=AA0 AND AB AND AC AND A40>A90 AND 量比>=1;
DRAWICON(XG,A50,23);
{DRAWTEXT(CURRBARSCOUNT=20,A4,＂强势区域＂),COLORYELLOW;
D1:=HOUR=10 AND MINUTE=0;
D2:=LLV(L,30);
D3:=BARSLAST(D1);
D4:=REF(D2,D3);
D5:CONST(D4),COLOR808080,CIRCLEDOT,LINETHICK2;
DRAWTEXT(CURRBARSCOUNT=20,D4,＂底部区域＂),COLORYELLOW;}
{均线突破中枢}
JJ1:=DAY!=REF(DAY,1);
JJ2:=BARSLAST(V>0 AND JJ1)+1;
JJ:=SUM(V*C,JJ2)/SUM(V,JJ2);
XG2:=CROSS(JJ,C5);
DRAWICON(XG2,JJ,23);
{TS:=(B4+C4)/2;
DRAWTEXT(XG2,TS,＂回落靠近黄线买＂);}
{概念
Z1:=STRCAT(HYBLOCK,＂ ＂);
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,＂ ＂);
DRAWTEXT_FIX(ISLASTBAR,0.99,0.9,1,STRCAT(Z3,GNBLOCK)),COLORYELLOW;}
{股本市值}
总股本:=STRCAT(STRCAT(＂总股本: ＂,CON2STR(TOTALCAPITAL/1000000,2)),＂亿＂);
流通盘:=STRCAT(STRCAT(＂ 流通盘: ＂,CON2STR(CAPITAL/1000000,2)),＂亿＂);
市值:=STRCAT(STRCAT(＂ 流通市值: ＂,CON2STR((CAPITAL/1000000)*C,2)),＂亿＂);
{高送转}
每股公积金:=STRCAT(＂ 每股公积金:＂,CON2STR(FINANCE(18),2));
每股未分利润:=STRCAT(＂ 每股未分利润:＂,CON2STR(FINANCE(32),2));
每股净资产:=STRCAT(＂ 每股净资产:＂,CON2STR(FINANCE(34),2));
显示内容:=STRCAT(STRCAT(STRCAT(STRCAT(STRCAT(总股本,流通盘),市值),每股公积金),每股未分利润),每股净资产);
{满足以上条件在左上角显示内容}
DRAWTEXT_FIX(ISLASTBAR,0.99,1,1,显示内容),COLORGRAY;
{H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
T1:=H1-L1;
T2:=L1+T1*7/8;
DRAWICON(LONGCROSS(CLOSE,T2,2),CLOSE,2);};
VARA3:=HHV(CLOSE,90);
VARA4:=LLV(CLOSE,90);
VARA5:=VARA3 - VARA4;
VARA6:=EMA((CLOSE - VARA4)/VARA5 - 0.5,14);
ZLSP:=VARA6*20;
VARA7:=REF(HHV(CLOSE,66),2);
VARA8:=CROSS(CLOSE,VARA7) AND (HHV(CLOSE,110)/LLV(CLOSE,110) - 1) * 100 < 45 AND ZLSP < 5.666;
VARA11:=15* FILTER(VARA8,41);
DRAWTEXT(FILTER(VARA11 AND DYNAINFO(12)>=0,240),C*0.98,＂准备买＂)COLORRED;
XG0:HHV(H,480),DOTLINE,COLORCYAN;
STICKLINE(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.995,C,1,0),COLORMAGENTA;
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10) AND C>REF(XG,1),C*0.995,＂突＂),COLORYELLOW;
RQ:=DATETODAY(DATE)-DATETODAY(REF(DATE,TOTALBARSCOUNT-CURRBARSCOUNT))+1;
JY:=BARSLAST((RQ-REF(RQ,1))!=WEEKDAY-REF(WEEKDAY,1) OR TOTALBARSCOUNT-CURRBARSCOUNT=0)+1;
MA1:=REF(C,JY);
MA2:=REF(MA1,JY);
MA3:=REF(MA2,JY);
MA4:=REF(MA3,JY);
MA5:=REF(MA4,JY);
MA6:=REF(MA5,JY);
MA7:=REF(MA6,JY);
MA8:=REF(MA7,JY);
MA9:=REF(MA8,JY);
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*8/9,COLORLIRED,DOTLINE;
支撑:L1+P1*0.5/9,COLORGREEN,DOTLINE;
均线:IF(BETWEEN(C/(SUM(AMOUNT,0)/SUM(VOL*100,0)),1.05,0.95)=0,MA(C,0),(SUM(AMOUNT,0)/SUM(VOL*100,0))),COLORYELLOW,DOTLINE;
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))+DYNAINFO(3);
DEAA:=EMA(DIFF,9);
MACD1:=10*(DIFF-DEAA);
MACD2:=EMA(MACD1,2);
STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;
STICKLINE(MACD1<macd2 and=＂＂ macd1=＂＂>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLICYAN;</macd2>
STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGRAY;
STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORLIGREEN;
XX:=SUM(AMOUNT,BARSCOUNT(CLOSE))/SUM(V*100,BARSCOUNT(CLOSE));
主力:=EXPMA(CLOSE/XX,20);大户:=EXPMA(CLOSE/XX,60);散户:=EXPMA(CLOSE/XX,120);
底:=1;1.022,NODRAW;高:=1.033;
DRAWTEXT(CROSS(主力,1.02),C*0.999,＂ 拉＂),COLORMAGENTA;
DRAWICON(CROSS(主力,1.04),C,26);
DRAWTEXT(CROSS(主力,1.04),C*0.999,＂ 冲＂),COLORRED;
A1:=(VOL/CLOSE)/3;
A2:=SUM((IF(((A1>40) AND (CLOSE>(REF(CLOSE,1)))),A1,0)),0);
A3:=SUM((IF(((A1>40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A4:=SUM((IF(((A1<40) and=＂＂ close=＂＂>(REF(CLOSE,1)))),A1,0)),0);<!--40)-->
A5:=SUM((IF(((A1<40) AND (CLOSE<(REF(CLOSE,1)))),A1,0)),0);
A6:=((A2+A3)+A4)+A5;
A7:=IF((BARSTATUS=2),((100*A2)/A6),0);
A8:=((IF((BARSTATUS=2),((100*A3)/A6),0)));
A9:=((IF((BARSTATUS=2),((100*A4)/A6),0)));
A10:=((IF((BARSTATUS=2),((100*A5)/A6),0)));
DRAWTEXT(LONGCROSS(支撑,C,2),C-0.01,＂ 底部＂),COLORYELLOW;
DRAWICON(LONGCROSS(支撑,C,2),C-0.01,23);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;
DRAWTEXT(LONGCROSS(C,阻力,2),C+0.01,＂ 卖＂),COLORGREEN;
DRAWICON(LONGCROSS(C,阻力,2),C+0.01,15);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;
量价:=(VOL/CLOSE)/3;
B2:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
B3:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
B6:=B2+B3;DD1:=1;比:=B2/B3;
D1:=YEAR AND MONTH AND DAY;
BA1:=STRCAT(CON2STR(YEAR,0),＂年＂);
BA2:=STRCAT(CON2STR(MONTH,0),＂月＂);
BA3:=STRCAT(CON2STR(DAY,0),＂日＂);
BA4:=STRCAT(＂星期＂,IF(WEEKDAY=1,＂一＂,IF(WEEKDAY=2,＂二＂,IF(WEEKDAY=3,＂三＂,IF(WEEKDAY=4,＂四＂,IF(WEEKDAY=5,＂五＂,IF(WEEKDAY=6,＂六＂,＂日＂)))))));
AA:=STRCAT(STRCAT(STRCAT(BA1,BA2),STRCAT(BA3,BA4)),＂＂);
DRAWTEXT_FIX(D1,0.905,0,0,AA),COLORGRAY;
WA1:=V*C/100;
WA2:=SUM((IF(((WA1/8>20) AND (CLOSE>(REF(CLOSE,1)))),WA1,0)),0);
WA3:=SUM((IF(((WA1/8>20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA4:=SUM((IF(((WA1/8<20) and=＂＂ close=＂＂>(REF(CLOSE,1)))),WA1,0)),0);<!--20)-->
WA5:=SUM((IF(((WA1/8<20) AND (CLOSE<(REF(CLOSE,1)))),WA1,0)),0);
WA6:=((A2+A3)+A4)+A5;
WA7:=IF((ISLASTBAR),((100*WA2)/WA6),0);
WA8:=IF((ISLASTBAR),((100*WA3)/WA6),0);
WA9:=IF((ISLASTBAR),((100*WA4)/WA6),0);
WA10:=IF((ISLASTBAR),((100*WA5)/WA6),0);
机构买盘:=(WA2);
机构卖盘:=(WA3);
散户买盘:=(WA4);
散户卖盘:=(WA5);
DRAWTEXT_FIX(1,0.752,1-0.088,0,STRCAT(STRCAT(＂【机构买盘】＂,CON2STR(机构买盘,2)),＂ 万＂)),COLORRED;
DRAWTEXT_FIX(1,0.752,1-0.001,0,STRCAT(STRCAT(＂【机构卖盘】＂,CON2STR(机构卖盘,2)),＂ 万＂)),COLORGREEN;
DRAWTEXT_FIX(1,0.883,1-0.088,0,STRCAT(STRCAT(＂【散户买盘】＂,CON2STR(散户买盘,2)),＂ 万＂)),COLORMAGENTA;
DRAWTEXT_FIX(1,0.883,1-0.001,0,STRCAT(STRCAT(＂【散户卖盘】＂,CON2STR(散户卖盘,2)),＂ 万＂)),COLORCYAN;