 |
通达信非常好的分时主图与分时副图源码
{分时财富}
Z1:=STRCAT(HYBLOCK,' ');
Z2:=STRCAT(Z1,DYBLOCK);
Z3:=STRCAT(Z2,' ');
DRAWTEXT_FIX(ISLASTBAR,0,0,0,STRCAT(Z3,GNBLOCK)),COLOR00C0C0;
突破:=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),COLOR0000DD;
STICKLINE(A1X<0,空方,突破,0,0),COLOR00CC66;
XG:HHV(H,480),DOTLINE,COLORYELLOW;
A1:(DVOL/C)/2,COLORCYAN,LINETHICK1;
A222:IF(A1>0.29 AND CLOSE>REF(CLOSE,1),A1,0),COLORRED,LINETHICK1;
A2:=SUM(IF(A1>100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A3:=SUM(IF(A1>100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A4:=SUM(IF(A1<100 AND CLOSE>REF(CLOSE,1),A1,0),0);
A5:=SUM(IF(A1<100 AND CLOSE<REF(CLOSE,1),A1,0),0);
A6:=A2+A3+A4+A5;
机买:(A2/A6)*100,COLORRED,LINETHICK1,NODRAW;
机卖:(A3/A6)*100,LINETHICK1,COLORCYAN,NODRAW;
散买:(A4/A6)*100,LINETHICK1,COLORMAGENTA,NODRAW;
散卖:(A5/A6)*60,LINETHICK1,COLORGREEN,NODRAW;
主力差:(机买-机卖)*60,COLORYELLOW,LINETHICK1;
IF(主力差<= REF(主力差,1),主力差,DRAWNULL),COLORLICYAN,LINETHICK1;
IF(主力差> REF(主力差,1),主力差,DRAWNULL),COLORYELLOW,LINETHICK1;
STICKLINE(主力差>REF(主力差,1),主力差,REF(A222,1),1,0),COLORRED;
STICKLINE(主力差<=REF(主力差,1),主力差,REF(A222,1),1,0),COLORCYAN;
STICKLINE(主力差<=REF(主力差,1),A1,REF(A222,1),0.5,0),COLORLICYAN;
{STICKLINE(主力差>REF(主力差,1),A1,REF(A222,1),0.5,0),COLORMAGENTA;}
T:=BARSCOUNT(A1);
STICKLINE(FILTER(CROSS(A1,REF(A222,1)),10),A1,主力差*0.99,1,0),COLORWHITE;
DRAWTEXT(FILTER(CROSS(A1,REF(A222,1)),10),A1*0.99,'S'),COLORWHITE;
STICKLINE(FILTER(CROSS(A222,REF(A1,1)),15),A222*0.99,主力差,1,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(A222,REF(A1,1)),15), A1,'B'),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,A1,'S'),COLORCYAN;
DRAWTEXT(ISLASTBAR=1,A222,'B'),COLORRED;
｛副图｝将自己使用的根据量差编制的副图及源码献出，买卖点即时提示，趋势特征突出。
T:=BARSCOUNT(C);
HHV(H,T),DOTLINE,COLOR00FFFF;
TP:= FILTER( C>=HHV(H,T) AND V>MA(V,0)*2 AND DYNAINFO(17)>1 AND TIME>39600,240) ;
DRAWTEXT(TP,L,'★突破'),COLORRED;
STICKLINE(FILTER(CROSS(C,REF(XG,1)),10),C,HHV(O,T)*0.99,10,0),COLORYELLOW;
DRAWTEXT(FILTER(CROSS(C,REF(XG,1)),10),HHV(O,T)*0.99,'上突 '),COLORYELLOW;
DRAWTEXT(ISLASTBAR=1,HHV(O,T)*0.9995,'上突必卖, 不破前高—买'),COLORYELLOW;
LLV(H,T),DOTLINE,COLORWHITE;
XG1:LLV(H,480),DOTLINE,COLORWHITE;
TP1:= FILTER(C>=LLV(H,T) AND V>MA(V,0)*2 AND DYNAINFO(17)>1 AND TIME>39600,240);
DRAWTEXT(TP,L,'★下破'),COLORRED;
STICKLINE(FILTER(CROSS(C,REF(XG1,1)),10),C*0.99,LLV(O,T),10,0),COLORWHITE;
DRAWTEXT(FILTER(CROSS(C,REF(XG1,1)),10),LLV(O,T)*0.992,'下破,'),COLORWHITE;
DRAWTEXT(ISLASTBAR=1,LLV(O,T),'下破, 不破前低—买'),COLORWHITE;
均价:SUM(V*C,0)/SUM(V,0),COLORYELLOW;
DRAWNUMBER(ISLASTBAR,C,C),COLORFFFFFF;
XJ:CONST(C),COLORFFFFFF,LINETHICK1;