|
超引B1:="总引.超B#DAY";
超引B2:="总引.大B#DAY";
超引B3:="总引.中B#DAY";
超引B4:="总引.小B#DAY";
超引S1:="总引.超S#DAY";
超引S2:="总引.大S#DAY";
超引S3:="总引.中S#DAY";
超引S4:="总引.小S#DAY";
TESTSKIP(NOT(超引B1 OR 超引B2 OR 超引B3 OR 超引B4 OR 超引S1 OR 超引S2 OR 超引S3 OR 超引S4)!=0);
总A:=(超引B1+超引B2+超引B3+超引B4)+(超引S1+超引S2+超引S3+超引S4),NODRAW;
净流入:=SUM((超引B1+超引B2+超引B3+超引B4)-(超引S1+超引S2+超引S3+超引S4),1),NODRAW,COLORCYAN;
流入:=(超引B1+超引B2+超引B3+超引B4),COLORRED,NODRAW;
流出:=(超引S1+超引S2+超引S3+超引S4),COLORGREEN,NODRAW;
流入比:=(超引B1+超引B2+超引B3+超引B4)/总A*100;
流出比:=(超引S1+超引S2+超引S3+超引S4)/总A*100;
DRAWRECTREL(640,1000,940,940,RGB(190,190,190));
DRAWRECTREL(640,995,940,945,RGB(200,200,200));
DRAWRECTREL(640,990,940,950,RGB(210,210,210));
DRAWRECTREL(640,985,940,955,RGB(220,220,220));
DRAWRECTREL(640,980,940,960,RGB(230,230,230));
DRAWRECTREL(640,975,940,965,RGB(240,240,240));
DRAWRECTREL(640,970,940,970,RGB(250,250,250));
DRAWRECTREL(790-CONST(流入*300/总A),1000,790,940,RGB(140,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),995,790,945,RGB(148,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),990,790,950,RGB(168,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),985,790,955,RGB(188,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),980,790,960,RGB(208,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),975,790,965,RGB(228,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),970,790,970,RGB(248,0,0));
DRAWRECTREL(790-CONST(流入*300/总A),940,790-CONST(流入*300/总A),1000,RGB(128,0,0));
DRAWRECTREL(790,1000,790+CONST(流出*300/总A),940,RGB(0,128,0));
DRAWRECTREL(790,995,790+CONST(流出*300/总A),945,RGB(0,148,0));
DRAWRECTREL(790,990,790+CONST(流出*300/总A),950,RGB(0,168,0));
DRAWRECTREL(790,985,790+CONST(流出*300/总A),955,RGB(0,188,0));
DRAWRECTREL(790,980,790+CONST(流出*300/总A),960,RGB(0,208,0));
DRAWRECTREL(790,975,790+CONST(流出*300/总A),965,RGB(0,228,0));
DRAWRECTREL(790,970,790+CONST(流出*300/总A),970,RGB(0,248,0));
DRAWRECTREL(790+CONST(流出*300/总A),940,790+CONST(流出*300/总A),1000,RGB(0,128,0));
DRAWRECTREL(789.8,940,790.2,1000,RGB(0,0.0,10));
DRAWRECTREL(639.8,940,640.2,1000,RGB(0,0,10));
DRAWRECTREL(939.8,940,940.2,1000,RGB(0,0,10));
DRAWRECTREL(0,940,1000,940.2,RGB(0,0,10));
DRAWTEXT_FIX(1,0.61,0.88,0,STRCAT(STRCAT('流入=',CON2STR(流入,1)),'万')),COLOR0000FF;
DRAWTEXT_FIX(1,0.9,0.88,0,STRCAT(STRCAT('流出=',CON2STR(流出,1)),'万')),COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)>0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入,1),'万'))) COLOR0000FF;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)<0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入,1),'万'))) COLOR00FF00;
DRAWTEXT_FIX(CURRBARSCOUNT=1 AND(净流入)=0,0.755,0.88,0,STRCAT('净流= ',STRCAT(CON2STR(净流入,1),'万'))) COLOR80FFFF;
DRAWTEXT_FIX(1,0.80,0.955,0,STRCAT(STRCAT(' ',CON2STR(流出比,1)),'%%')),COLORBLUE;
DRAWTEXT_FIX(1,0.74,0.955,0,STRCAT(STRCAT('',CON2STR(流入比,1)),'%%')),COLORBLUE;
H1:=MAX(DYNAINFO(3),DYNAINFO(5));
L1:=MIN(DYNAINFO(3),DYNAINFO(6));
P1:=H1-L1;
阻力:L1+P1*7/8,COLORGREEN;
支撑:L1+P1*0.5/8,COLORRED;
中:(支撑+阻力)/2,COLORWHITE,POINTDOT;
DRAWTEXT(CURRBARSCOUNT=4,阻力,'顶'),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=4,支撑,'底'),COLORRED;
DRAWTEXT(CURRBARSCOUNT=4,(支撑+阻力)/2,'中'),COLORWHITE;
突破:=REF(EMA(C,14),1);
A1X:=(EMA(C,10)-突破)/突破*100;
多方:=IF(A1X>=0,REF(EMA(C,10),BARSLAST(CROSS(A1X,0))+1),DRAWNULL);
空方:=IF(A1X<0,REF(EMA(C,10),BARSLAST(CROSS(0,A1X))+1),DRAWNULL);
STICKLINE(A1X>=0,多方,突破,0,0),COLOR000099;
STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66;
前量:="总引.前量#DAY";
昨量:="总引.昨量#DAY";
今量:="总引.今量#DAY";
前总:=前量;
昨总:=昨量;
总:=今量,NODRAW;
BMM:=MAX(前总,昨总);
AMM:=IF(总/BMM>2,BMM*3,BMM);
MM:=150/AMM;
KP1:=DYNAINFO(4);
ZX1:=DYNAINFO(7);
A1:=IF(ZX1>=KP1,355,0);
A2:=IF(ZX1>=KP1,0,355);
A3:=IF(ZX1>=KP1,0,0);
量差:=IF(C>400,今量-昨量,(今量-昨量)/10000);
DRAWRECTREL(0,80,MM*今量,114,RGB(A1,A2,A3));
DRAWTEXT_FIX(1,0.04,0.08,0,STRCAT(STRCAT('量差=',CON2STR(量差,2)),'万')),COLORWHITE;
昨开:="总引.昨开#DAY";
昨收:="总引.昨收#DAY";
A4:=IF(昨收>=昨开,355,0);
A5:=IF(昨收>=昨开,0,355);
A6:=IF(昨收>=昨开,0,0);
DRAWRECTREL(0,40,MM*昨量,70,RGB(A4,A5,A6));
前开:="总引.前开#DAY";
前收:="总引.前收#DAY";
A7:=IF(前收>=前开,355,0);
A8:=IF(前收>=前开,0,355);
A9:=IF(前收>=前开,0,0);
DRAWRECTREL(0,0,MM*前量,30,RGB(A7,A8,A9));
现价:=C,LINETHICK2,COLORFFFF00;
DRAWICON(CROSS(现价,"总引.ZH#DAY"),现价,13);
GJ:=C,COLORWHITE;
JJ:SUM(C*V,FROMOPEN)/SUM(V,FROMOPEN),COLORYELLOW,LINETHICK1.5;
均量:=MA(V,5);
量连增:=均量>REF(均量,1) AND REF(均量,1)>REF(均量,2);
价连涨:=C>=REF(C,1) AND REF(C,1)>REF(C,2);
价量线上:=C>JJ AND V>均量;
倍量:=V>=REF(V,1)*2 ;
价新高:=C>=HHV(C,FROMOPEN);
量新高:=V>=HHV(V,FROMOPEN);
限幅:=C/DYNAINFO(3)<=1.02;
起爆:=FILTER(量连增 AND 价连涨 AND 价量线上 AND 倍量 AND 价新高 AND 量新高 AND 限幅,20);
DRAWTEXT(起爆,C,'起爆'),COLOR00FFFF;
DRAWICON(起爆,C,1);
STICKLINE(起爆,C,JJ,1,0),COLOR1000FF;
VV:=BARSSINCE(起爆);
起爆价:=REF(C,VV);
起爆时间:=REF(TIME/100,VV);
收益:=(DYNAINFO(7)-起爆价)/起爆价*100;
DRAWICON(VV>=2,起爆价,17);
DRAWTEXT_FIX(1,0,0.82,0,'起爆时间:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.05,0.82,0,CONST(起爆时间)),COLOR00FFFF;
DRAWTEXT_FIX(1,0.013,0.89,0,'起爆价:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.05,0.89,0,CONST(起爆价)),COLOR00FFFF;
DRAWTEXT_FIX(1,0.022,1,0,'收益:'),COLOR00FFFF;
DRAWNUMBER_FIX(1,0.05,1,0,CONST(收益)),COLOR00FFFF;
ZS1:=DYNAINFO(3);{前收盘价}
KP:=DYNAINFO(4);{今开}
ZX:=DYNAINFO(7);{现价}
ZG:=DYNAINFO(5);{最高}
ZD:=DYNAINFO(6);{最底}
OP:=500-(KP/ZS1-1)*4000;
CL:=500-(ZX/ZS1-1)*4000;
HI:=500-(ZG/ZS1-1)*4000;
LO:=500-(ZD/ZS1-1)*4000;
N1:=IF(TIME>=130000 OR TIME<91500,360,860);
DRAWRECTREL(N1+613,OP,N1+615,HI,RGB(255,0,255)),COLORFF00FF;{今日最高}{玫红}
DRAWRECTREL(N1+613,CL,N1+615,LO,RGB(0,128,0)),COLOR008000;{今日最低}{暗绿}
Q1:=IF(ZX>=KP,255,0);
Q2:=IF(ZX>=KP,0,255);
Q3:=IF(ZX>=KP,0,255);
DRAWRECTREL(N1+606,OP,N1+622,CL,RGB(Q1,Q2,Q3));{今日实体}{255,0,0大红}{0,255,255青}
ZO:="总引.ZO#DAY";
ZC:="总引.ZC#DAY";
ZH:="总引.ZH#DAY";
ZL:="总引.ZL#DAY";
ZKP:=500-(ZO/ZS1-1)*4000;
ZCP:=500-(ZC/ZS1-1)*4000;
ZZG:=500-(ZH/ZS1-1)*4000;
ZZD:=500-(ZL/ZS1-1)*4000;
DRAWRECTREL(N1+577,ZKP,N1+579,ZZG,RGB(255,0,255)),COLORFF00FF;{昨日最高}{玫红}
DRAWRECTREL(N1+577,ZCP,N1+579,ZZD,RGB(0,128,0)),COLOR008000;{昨日最低}{暗绿}
Q4:=IF(ZC>=ZO,255,0);
Q5:=IF(ZC>=ZO,0,255);
Q6:=IF(ZC>=ZO,0,255);
DRAWRECTREL(N1+570,ZKP,N1+586,ZCP,RGB(Q4,Q5,Q6)),COLOR00FFFF;{昨日实体}{大红或青}
JO:="总引.JO#DAY";
JC:="总引.JC#DAY";
JH:="总引.JH#DAY";
JL:="总引.JL#DAY";
ZZKP:=500-(JO/ZS1-1)*4000;
ZZCP:=500-(JC/ZS1-1)*4000;
ZZZG:=500-(JH/ZS1-1)*4000;
p201392223374926944.jpg
|
