通達信黑馬拉升 量能正負柱副圖指標 源碼 貼圖

N:=1.8;
DRAWGBK(C>O,RGB(60,0,0),RGB(0,0,0),1,2,1);
SAT:=(AMOUNT/C)/(HHV(AMOUNT,180)/HHV(C,180));
量能飽和度:=IF(SAT>1,1,SAT)*100+50,,COLORYELLOW,LINETHICK2;
量能:=EMA(量能飽和度,3),COLORYELLOW,LINETHICK2;
量能正負:=量能-90;
W1:STICKLINE(量能正負>0,量能正負,0,3,1),COLORRED;
W2:STICKLINE(量能正負<0,量能正負,0,3,1),COLORCYAN;
VA1:=HHVBARS(量能正負,BARSLAST(量能正負<0)+1);
VA2:=CROSS(BACKSET(CROSS(0,量能正負),REF(VA1,1)+2),0.5);
QG:=CROSS(BACKSET(CROSS(0,量能正負) OR (ISLASTBAR AND 量能正負>0),REF(VA1,1)+2),0.5);
前高:DRAWLINE(VA2,量能正負,REF(VA2,1),REF(量能正負,1),1),COLORMAGENTA;
VA3:=LLVBARS(量能正負,BARSLAST(量能正負>0)+1);
VA4:=CROSS(BACKSET(CROSS(量能正負,0),REF(VA3,1)+2),0.5);
BD:=BARSLAST(FILTERX(CROSS(0,量能正負),BARSCOUNT(C)));
前低:DRAWLINE(VA4,量能正負,REF(VA4,1),REF(量能正負,1),1);
BDTJ:=IF(量能正負<0,FILTERX(量能正負=LLV(量能正負,BARSLAST(量能正負>0)),
BARSCOUNT(C)),DRAWNULL);
TSBDTJ:=BARSLAST(BDTJ);
BDZH:=FILTERX(量能正負<CONST(LLV(量能正負,BD+1)),BARSCOUNT(C));
BDTS:=BARSLAST(BDZH);
本低:IF(BD+1>=1,CONST(LLV(量能正負,BD+1)),DRAWNULL);
BDCL:=CROSS(COUNT(CROSS(量能正負>本低/2 AND 量能正負<0,0.5),TSBDTJ)=1,0.5) AND TSBDTJ>=0;
終點:=IF(ISLASTBAR AND 量能正負>0 AND 量能正負=HHV(量能正負,BARSLAST(量能正負<0)),1,
IF(FILTERX(QG,BARSCOUNT(C)),2,DRAWNULL));
UU:=(終點=1 OR 終點=2) AND 量能正負>0;
ZZ:=FILTERX(UU,BARSCOUNT(C));
本高:DRAWLINE(ZZ,量能正負,REF(ZZ,1),REF(量能正負,1),1),COLORWHITE;
橫線:=CONST(REF(量能正負,BARSLAST(ZZ)));
WW:=量能正負>橫線;
起始點:=FILTERX(REFX(BARSLAST(WW),1)=1,BARSCOUNT(C));
天數:=BARSLAST(起始點),COLORYELLOW,NODRAW;
上橫線:=DRAWLINE(起始點,橫線,ZZ,橫線,0),COLORGREEN,DOTLINE;
下橫線:=DRAWLINE(BDZH,CONST(LLV(量能正負,BD+1)),BDTJ=1,量能正負,0),COLOR8080FF,DOTLINE;
DRAWNUMBER(BDTJ,CONST(LLV(量能正負,BD+1))*0.9,BDTS);
DRAWNUMBER(ZZ,上橫線*1.1,天數);
TJ:=IF(起始點,BARSNEXT(ZZ),DRAWNULL);
紅柱數量:=IF(天數>0 AND 天數<=REF(TJ,天數),SUM(量能>0,天數),DRAWNULL),COLORWHITE,NODRAW;
橫線起始價:=REF(C,天數),NODRAW;
空間評估:=(橫線起始價-C)/C*100,NODRAW;
TT:=BARSLAST(ZZ);{股票下載網www.theworldvictor.com}
WQG:=CROSS(COUNT(CROSS(量能正負<本高/2 AND 量能正負>0,0.5),ZZ)=1,0.5) AND ZZ>=0;
STICKLINE(量能正負>前高 AND 本高>前高 AND BARSLAST(CROSS(量能正負<本高/2,0.5))>0 AND
量能正負>(前高+本高)/2,量能正負,前高,1,0),COLORYELLOW;
前高本高二分位:IF(量能正負>0 AND 本高!=前高,DRAWLINE(WQG,(前高+本高)/2,REF(WQG,1),REF((前高+本高)/2,1),1)
,DRAWNULL),COLORC0C000,DOTLINE;
AA:=STRCAT(STRCAT(STRCAT('〖','上升空間'),'〗'),CON2STR(IF(空間評估,空間評估,
DRAWNULL),2));
DRAWTEXT(WQG,量能正負*1.1,'本高成立'),COLORWHITE;
KAAA:DRAWTEXT(BDCL,量能正負*1.1,'本低成立'),COLORWHITE;
STICKLINE(量能正負>前高,量能正負,前高,1,0),COLORYELLOW;
STICKLINE(WQG,量能正負,0,1,0),COLORGREEN;
STICKLINE(量能正負<0 AND 量能正負<前低 AND 前低<0,量能正負,前低,1,0),COLORBLUE;
B1:=IF(CROSS(量能正負<0,0.5),BARSNEXT(BDTJ),DRAWNULL);
TSB1:=BARSLAST(量能正負>0)-1;
STICKLINE(BARSLAST(BDCL)>=0 AND 量能正負<前低 AND 量能正負<0,量能正負,前低,1,0),COLORGREEN;
STICKLINE(BDCL,量能正負,0,1,0),COLORWHITE;
STICKLINE(量能正負>前高 AND 本高>前高 AND BARSLAST(WQG)>0,
量能正負,前高,1,0),COLORRED;
DRAWTEXT(VA2 AND VA2!=UU,(量能正負/10)*9,'前');
DRAWTEXT(VA2 AND VA2!=UU,量能正負/10,'高');
DRAWTEXT(ZZ,(量能正負/10)*9,'本'),COLORWHITE;
DRAWTEXT(ZZ,量能正負/10,'高'),COLORWHITE;
DRAWTEXT(BDTJ,(量能正負/10)*9,'低'),COLORRED;
DRAWTEXT(BDTJ,量能正負/10,'本'),COLORRED;
IF(BARSLAST(BDCL)>=0,本低/2,DRAWNULL),COLORRED,DOTLINE;
DRAWICON(CROSS(量能正負,0),0,9);
DRAWTEXT_FIX(1,0.05,0.04,0,'【黑馬拉升由兩個階段構成：同步上漲階段（黃芯柱）
和慣性上漲階段（背離階段、紅芯柱）】'),COLORFFFF00;