| 乘周末有空把“T+0分时主图”适当简化一下，用于手机通达信上（也可以用于电脑）。考虑到手机内存关系，把可以精简的都去掉，能显示关键的就行，由于手机通达信软件还不完善，买卖盘彩条不能显示，如这一项不要的可以去掉：源码中空行一下的{买卖盘彩条}源码删掉即可。希望能对朋友们有帮助。 MA30:=EMA(CLOSE,30);强弱:EMA(CLOSE,900);STICKLINE((MA30>强弱),MA30,强弱,0.1,0),COLORRED;STICKLINE((MA30<强弱),MA30,强弱,0.1,0),COLORGREEN;DRAWTEXT(ISLASTBAR AND C,C,STRCAT(←,CON2STR(C,2))),COLORYELLOW;均价:=SUM(C*V,240)/SUM(V,240),COLORYELLOW,LINETHICK2;CZ:=BARSCOUNT(C);前高:=REF(HHV(H,CZ),1);突破:=CROSS(C,REF(HHV(H,CZ),1)) AND C/均价<1.09 AND CZ>1 AND CZ<240;DRAWTEXT(CROSS(C,REF(HHV(H,CZ),1)) AND C/均价<1.09 AND CZ>=1 AND CZ<240,前高,突),COLORMAGENTA;主扫:=COUNT(突破,13)>=3 AND CROSS(C,REF(HHV(H,CZ),1));DRAWTEXT(主扫,前高, ←扫盘),COLORYELLOW;全买:=CROSS(C,REF(HHV(H,CZ),1)) AND HHVBARS(VOL,CZ)=0 AND C/均价<1.09 AND CZ>1 AND CZ<240 AND BARSLAST(主扫)>=21;DRAWTEXT(全买 ,前高, ←全仓),COLORCYAN;VAR1:=EMA(EMA(C,13),13);控盘:=(VAR1-REF(VAR1,1))/REF(VAR1,1)*1000;JJ:=DYNAINFO(11);能量:=(EMA(C,8)-EMA(C,55))*10;空头:=EMA(能量,3);TJ1:=(C-JJ)/JJ<-0.03;TJ2:=控盘>REF(控盘,1) AND 控盘<-0.2;TJ3:=CROSS(能量,空头) AND 能量<-0.3;TJ4:=FILTER(TJ1 AND TJ2 AND TJ3,13);DRAWTEXT(TJ4,C*0.999,←有庄),COLORRED;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,COLORMAGENTA;中:(撑+阻)/2,COLORWHITE,POINTDOT;DRAWICON(LONGCROSS(撑,C,2),C,34);DRAWICON(LONGCROSS(C,阻,2),C,35);STICKLINE(LONGCROSS(撑,C,2),撑,中,1,0),COLORCC00FF;STICKLINE(LONGCROSS(C,阻,2),阻,中,1,0),COLOR33FF33;底买:STICKLINE(C<撑,撑,C,2,0),COLORRED;STICKLINE(LONGCROSS(撑,C,2),撑,(撑-中)/5+撑,2,0),COLORYELLOW;DRAWTEXT(LONGCROSS(撑,C,2),(撑-中)/5+撑,底),COLORYELLOW;STICKLINE(LONGCROSS(C,阻,2),阻,阻-(撑-中)/5,2,0),COLORLIRED;DRAWTEXT(LONGCROSS(C,阻,2),阻-(撑-中)/5,顶),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=8,阻+0.003,顶),COLORGREEN;DRAWTEXT(CURRBARSCOUNT=8,撑-0.003,底),COLORLIRED;DRAWTEXT(CURRBARSCOUNT=8,(撑+阻)/2,中),COLORWHITE;顶:HHV(H,480),COLORRED,DOTLINE;底:LLV(L,480),COLORGREEN,DOTLINE;DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.99,TIME);DRAWNUMBER(FILTER(CROSS(C,DYNAINFO(3)*1.1-0.01),60),C*0.98,C),COLORYELLOW;DRAWTEXT_FIX(1,0.1,0.88,0,市盈率:),COLORLIBLUE;DRAWNUMBER_FIX(1,0.2,0.88,0,CONST(DYNAINFO(39))),COLORLIBLUE;DRAWTEXT_FIX(1,0.1,0.98,0,市净率:),COLORCYAN;DRAWNUMBER_FIX(1,0.18,0.98,0,CONST(C/FINANCE(34))),COLORCYAN;{买卖盘彩条}成交额:=V*C/100;AE2:=SUM((IF(((成交额/8>20) AND(CLOSE>(REF(CLOSE,1)))),成交额,0)),0);AE3:=SUM((IF(((成交额/8>20) AND (CLOSE<(REF(CLOSE,1)))),成交额,0)),0);AE6:=(AE2+AE3);DD1:=1;A3:=STRCAT(STRCAT(机构净入,CON2STR((100*(AE2-AE3))/AE6,0)),％);DRAWTEXT_FIX(DD1=1,0.33,1,0,A3),COLORLIRED;XSB:BUYVOL*DYNAINFO(7)*100/10000,COLOR0000FF,NODRAW;XSS:SELLVOL*DYNAINFO(7)*100/10000 COLOR00FF00,NODRAW;合:=ABS(XSB)+ABS(XSS),COLOR80FFFF;差:=ABS(XSB)-ABS(XSS),COLOR80FFFF;PB1:=ABS(XSB)/合*100;PB2:=ABS(XSS)/合*100;TESTSKIP(NOT(XSB OR XSS OR 合 OR 差 OR PB1 OR PB2)!=0);DRAWRECTREL(595,1000,795,935,RGB(0,228,0));DRAWRECTREL(595,1000,595+XSB*200/合,940,RGB(228,0,0));DRAWRECTREL(595+XSB*200/合,940,595+XSB*200/合,1000,RGB(228,0,0));DRAWRECTREL(795,939,795,1000,RGB(0,0,10));DRAWRECTREL(695,940,695,1000,RGB(255,255,0));DRAWRECTREL(595,939,595,1000,RGB(0,0,10));DRAWRECTREL(595,939,795,939,RGB(0,0,10));DRAWTEXT_FIX(1,0.5,0.84,0,STRCAT(STRCAT(,CON2STR(XSB,1)),万)),COLOR0000FF;DRAWTEXT_FIX(1,0.87,0.84,0,STRCAT(STRCAT(,CON2STR(XSS,1)),万)),COLOR00FF00;DRAWTEXT_FIX(CURRBARSCOUNT=1 AND (差)>0,0.67,0.84,0,STRCAT( ,STRCAT(CON2STR(差,1),万)))COLOR0000FF;DRAWTEXT_FIX(CURRBARSCOUNT=1 AND (差)<0,0.67,0.84,0,STRCAT( ,STRCAT(CON2STR(差,1),万)))COLOR00FF00;DRAWTEXT_FIX(CURRBARSCOUNT=1 AND (差)=0,0.67,0.83,0,STRCAT( ,STRCAT(CON2STR(差,1),万)))COLOR80FFFF;DRAWTEXT_FIX(1,0.85,0.98,0,STRCAT(STRCAT(,CON2STR(PB2,1)),％)),COLOR00FF00;DRAWTEXT_FIX(1,0.5,0.98,0,STRCAT(STRCAT(,CON2STR(PB1,1)),％)),COLOR0000FF;
|
