|
{DRAWTEXT_FIX(C>0,0.004,0.11,0,DYBLOCK),COLORRED,LINETHICK2;}
{DRAWTEXT_FIX(C>0,0.06,0.11,0,HYBLOCK),COLORYELLOW,LINETHICK2;}
DRAWTEXT_FIX(C>0,0.01,0.02,0,HYBLOCK),COLORYELLOW,LINETHICK2;
DRAWTEXT_FIX(C>0,0.06,0.02,0,GNBLOCK),COLORCYAN,LINETHICK2;
DRAWTEXT_FIX(C>0,0.05,0.02,0,CON2STR(GNBLOCKNUM,0)),COLORMAGENTA,LINETHICK2;
DRAWTEXT_FIX(C>0,0.18,0.98,0,FGBLOCK),COLORCYAN,LINETHICK2;
DRAWTEXT_FIX(C>0,0.17,0.98,0,CON2STR(FGBLOCKNUM,0)),COLORMAGENTA,LINETHICK2;
DRAWTEXT_FIX(C>0,0.13,0.25,0,ZHBLOCK),COLORCYAN,LINETHICK2;
现价:IF(DYNAINFO(4)=0,C,DYNAINFO(7)),COLORWHITE,POINTDOT;
DRAWICON(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C,1);
DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME),COLORWHITE ;
XG: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,'突')AND C<ZTPRICE(REF(CLOSE,1),0.1),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;
MA01:=REF(C,JY);
MA02:=REF(MA01,JY);
MA03:=REF(MA02,JY);
MA04:=REF(MA03,JY);
MA05:=REF(MA04,JY);
MA6:=REF(MA05,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;
DIF:(EMA(CLOSE,5)-EMA(CLOSE,34))+DYNAINFO(3);
DEA:EMA(DIF,5);
MACD1:=10*(DIF-DEA);
MACD2:=EMA(MACD1,2);
STICKLINE(MACD1>=MACD2 AND MACD1>=0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORRED;
STICKLINE(MACD1<MACD2 AND MACD1>0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORMAGENTA;
STICKLINE(MACD1>=MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORWHITE;
STICKLINE(MACD1<MACD2 AND MACD1<0,DYNAINFO(3),MACD1+DYNAINFO(3),0,-1),COLORGREEN;
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,' 拉')AND C<ZTPRICE(REF(CLOSE,1),0.1),COLORMAGENTA;
DRAWTEXT(CROSS(主力,1.04),C*0.999,' 冲')AND C<ZTPRICE(REF(CLOSE,1),0.1),COLORRED;
DRAWICON(LONGCROSS(支撑 ,C,2),C-0.01,7);
STICKLINE(LONGCROSS(支撑,C,2),C,阻力,0,-1),COLORCYAN;
DRAWICON(LONGCROSS(C,阻力,2)AND C<ZTPRICE(REF(CLOSE,1),0.1),C+0.01,8);
STICKLINE(LONGCROSS(C,阻力,2),C,支撑,0,-1),COLORRED;
ZG:=分时引用JIN.H1#DAY;
昨均:=分时引用JIN.昨均价#DAY;
ZD:=分时引用JIN.L1#DAY;
DRAWTEXT_FIX(1,1,1-0.988,1,STRCAT('昨高 : ',CON2STR(ZG,2))),COLORWHITE;
DRAWTEXT_FIX(1,1,1-0.857,1,STRCAT('昨均 : ',CON2STR(昨均,2))),COLORCYAN;
DRAWTEXT_FIX(1,1,1-0.714,1,STRCAT('昨低 : ',CON2STR(ZD,2))),COLORWHITE;
五日:=分时引用JIN.M5#DAY,COLORMAGENTA;
八日:=分时引用JIN.M8#DAY,COLORGREEN;
十三日:=分时引用JIN.M13#DAY;
二一日:=分时引用JIN.M21#DAY;
三四日:=分时引用JIN.M34#DAY;
DRAWTEXT_FIX(1,1,1-0.571,1,STRCAT('M3 : ',CON2STR(五日,2))),COLORMAGENTA;
DRAWTEXT_FIX(1,1,1-0.428,1,STRCAT('M5 : ',CON2STR(八日,2))),COLORGREEN;
DRAWTEXT_FIX(1,1,1-0.285,1,STRCAT('MA7 : ',CON2STR(十三日,2))),COLORCYAN;
DRAWTEXT_FIX(1,1,1-0.142,1,STRCAT('M10 : ',CON2STR(二一日,2))),COLORWHITE;
DRAWTEXT_FIX(1,1,1-0.0,1,STRCAT('M21 : ',CON2STR(三四日,2))),COLORWHITE;
DK:=分时引用JIN.DKX#DAY;
DRAWTEXT_FIX(1,0,1,0,STRCAT('BBI : ',CON2STR(DK,2))),COLORGREEN;
今前量:=分时引用JIN.今前#DAY;
DRAWTEXT_FIX(1,0.60,0.85,0,STRCAT('现量\前日现量比: ',CON2STR(今前量,2))),COLORLIGREEN;
今昨量:=分时引用JIN.今昨#DAY;
DRAWTEXT_FIX(1,0.70,0.85,0,STRCAT('今昨量: ',CON2STR(今昨量,2))),COLORLIGREEN;
前高比:=分时引用JIN.前高#DAY;
DRAWTEXT_FIX(1,0.80,0.85,0,STRCAT('前天量\现量比: ',CON2STR(前高比,2))),COLORRED;
市盈率:=STRCAT('市盈率：',CON2STR(C/FINANCE(33),2));
DRAWTEXT_FIX(1,0.3,0.02,0,STRCAT(市盈率,'倍'))COLORYELLOW;
量价:=(VOL/CLOSE)/3;
A52:=SUM((IF(((量价>0.20) AND (CLOSE>(REF(CLOSE,1)))),量价,0)),0);
A53:=SUM((IF(((量价>0.20) AND (CLOSE<(REF(CLOSE,1)))),量价,0)),0);
A56:=A52+A53;DD1:=1;比:=A52/A53;
AAA1:=STRCAT(STRCAT('买= ',CON2STR((100*A52)/A56,0)),'%');
AAA2:=STRCAT(STRCAT('卖= ',CON2STR((100*A53)/A56,0)),'%');
AAA3:=STRCAT(STRCAT('差= ',CON2STR((100*(A52-A53))/A56,0)),'%');
DRAWTEXT_FIX(DD1=1,0,0.23,0,AAA3),COLOR00FFFF;
DRAWTEXT_FIX(DD1=1,0,0.23,0,AAA3),COLOR00FFFF;
DRAWTEXT_FIX(1,0.42,0.02,0,STRCAT('净流入: ',CON2STR(ZJBY.净流入#DAY,2))),COLORWHITE;
DRAWTEXT_FIX(1,0.52,0.02,0,STRCAT('超大单(万): ',CON2STR(ZJBY.超大单#DAY,2))),COLORLIGRAY;
DRAWTEXT_FIX(1,0.62,0.02,0,STRCAT('大单(万): ',CON2STR(ZJBY.大单#DAY,2))),COLORLIGRAY;
DRAWTEXT_FIX(1,0.72,0.02,0,STRCAT('中单(万): ',CON2STR(ZJBY.中单#DAY,2))),COLORLIGRAY;
DRAWTEXT_FIX(1,0.82,0.02,0,STRCAT('小单(万): ',CON2STR(ZJBY.小单#DAY,2))),COLORLIGRAY;
HS:=100*DYNAINFO(8)/CAPITAL;
ZHWS:=STRCAT(VAR2STR(DYNAINFO(8)/10000,2),'万手');
JHS:=STRCAT('现换手：',STRCAT(VAR2STR(HS,2),'%'));
JHS1:=STRCAT(JHS,' ≈ ');
DRAWTEXT_FIX(1,0.32,0.85,0,STRCAT(JHS1,ZHWS))COLORYELLOW;
LTPDW:=IF((FINANCE(46))/1000000>1,'亿股','万股');
LTP:=IF((FINANCE(46))/1000000>1,CON2STR((FINANCE(46))/100000000,2),CON2STR((FINANCE(46))/10000,0));
LTP1:=STRCAT(STRCAT('自由流通盘：',LTP),LTPDW);
LTPWS:=STRCAT(VAR2STR(FINANCE(46)/1000000,2),'万手');
LTP2:=STRCAT(LTP1,' ≈ ');
DRAWTEXT_FIX(1,0.65,0.98,0,STRCAT(LTP2,LTPWS))COLORLICYAN;
DRAWTEXT_FIX(1,0.51,0.98,0,STRCAT(STRCAT('流通市值：',CON2STR(FINANCE(46)*C/100000000,2)),'亿元'))COLORLICYAN;
KP:=(DYNAINFO(4)-DYNAINFO(3))/DYNAINFO(3)*100;
DRAWTEXT_FIX(1,0.2,0.81,0,STRCAT('开盘：',STRCAT(VAR2STR(KP,2),'%')))COLORYELLOW;
DRAWTEXT_FIX(1,0.32,0.81,0,STRCAT('最高价：',CON2STR(DYNAINFO(5),2)))COLORYELLOW;
DRAWTEXT_FIX(1,0.39,0.81,0,STRCAT('最低价：',CON2STR(DYNAINFO(6),2)))COLORYELLOW;
今日竞价股数:=DYNAINFO(15)/DYNAINFO(4);
ZSPJ:=分时引用JIN.ZSP#DAY;
A:=今日竞价股数/FINANCE(46)*10000*(O-ZSPJ)/ZSPJ;
DRAWTEXT_FIX(1,0.01,0.89,0,STRCAT(STRCAT('竞价动能值：',CON2STR(A,2)),''))COLORYELLOW;
开盘换手Z:=DYNAINFO(15)/DYNAINFO(4)/FINANCE(46)*100;
DRAWTEXT_FIX(1,0.2,0.86,0,STRCAT(STRCAT('开盘换手Z：',CON2STR(开盘换手Z,2)),''))COLORYELLOW;
CJE:=DYNAINFO(8)*DYNAINFO(11);
DW:=IF(CJE/1000000>1,'亿','万');
AB:=IF(CJE/1000000>1,CJE/1000000,CJE/100);
DRAWTEXT_FIX(1,0.2,0.89,0,STRCAT(STRCAT('成交额：',CON2STR(AB,2)),DW))COLORYELLOW;
JJCJL:=DYNAINFO(15)/DYNAINFO(4)/100;
JJJEDW:=IF(DYNAINFO(15)>10000,'万元','元');
JJJE:=IF(DYNAINFO(15)>10000,CON2STR(DYNAINFO(15)/10000,1),CON2STR(DYNAINFO(15),1));
JJJE1:=STRCAT(JJJE,JJJEDW);
JJ:=STRCAT('竞价：',STRCAT(CON2STR(JJCJL,0),'手'));
JJ1:=STRCAT(JJ,' = ');
DRAWTEXT_FIX(1,0.01,0.85,0,STRCAT(JJ1,JJJE1))COLORYELLOW;
{九转数列}
A1:=C>REF(C,4);
NT:=BARSLASTCOUNT(A1);
TJ11:=NT=9;
TJ13:=ISLASTBAR AND BETWEEN(NT,5,8);
AY:=(BACKSET(TJ11>0,9) OR BACKSET(TJ13>0,NT))*NT;
DRAWTEXT(AY>0,H*1.02,VAR2STR(AY,0)),COLORFF00FF;
DRAWTEXT(NT=9,H*1.02,'9'),COLORGREEN;
B1:=C<REF(C,4);
NT0:=BARSLASTCOUNT(B1);
TJ21:=NT0=9 ;
TJ23:=ISLASTBAR AND BETWEEN(NT0,5,8);
AY1:=(BACKSET(TJ21>0,9) OR BACKSET(TJ23>0,NT0))*NT0;
DRAWTEXT(AY1>0,L*0.98,VAR2STR(AY1,0)),COLORGREEN;
DRAWTEXT(NT0=9,L*0.98,'9'),COLOR0000FF;
|
