創新雙陰轉陽主圖指標

DRAWGBK(C>0,RGB(0,0,110),RGB(0,25,0),0,' ',0);

{分類}

Z1:=STRCAT(HYBLOCK,' ');

Z2:=STRCAT(Z1,DYBLOCK);

Z3:=STRCAT(Z2,' ');

DRAWTEXT_FIX(ISLASTBAR,0,0.01,0,STRCAT(Z3,GNBLOCK)),COLORYELLOW;

{量化評分}

X1:=IF(MA(C,5)>MA(C,10),20,0);

X2:=IF(MA(C,20)>MA(C,60),10,0);

X3:=IF(KDJ.J>KDJ.K,10,0);

X4:=IF(MACD.DIF>MACD.DEA,10,0);

X5:=IF(MACD.MACD>0,10,0);

X6:=IF(V>MA(V,60),10,0);

X8:=IF(C/REF(C,1)>1.03,10,0);

XX:=X1+X2+X3+X4+X5+X6+X8;

DRAWTEXT_FIX(V>O,0,0.1,0,STRCAT('量化評分:',

STRCAT(CON2STR(XX,0),' '))),COLORYELLOW;

市場熱度:AMOUNT/REF(HHV(AMOUNT,99),1)*10.31,NODRAW,COLORYELLOW;

DRAWKLINE(H,O,L,C);

{雙陰轉陽}

ELY:=COUNT(C<O,3)>=2;

ESL:=COUNT(VOL<REF(VOL,1),3)>=2;

雙連陰:=ELY AND ESL AND O<C AND VOL>REF(VOL,1)*1.2;

SLY:=COUNT(C<O,4)>=3;

SSL:=COUNT(VOL<REF(VOL,1),4)>=3;

三連陰:=SLY AND SSL AND O<C AND VOL>REF(VOL,1)*1.2;

雙陰轉陽:STICKLINE(CROSS(雙連陰,0.5),C,O,-1,0),COLORYELLOW;

DRAWTEXT(雙陰轉陽,L*0.99,' 陰轉陽'),COLORYELLOW;

{2560}

M5:=MA(CLOSE,5),COLORWHITE;

MA25:=MA(CLOSE,25),COLORYELLOW;

VM5:=MA(VOL,5);

VM60:=MA(VOL,60);

JCX:=CROSS(M5,MA25);

XG7:=MA25>REF(MA25,1) AND VM5>VM60 AND JCX;

STICKLINE(XG7,C,O,0.1,0),COLOR0088FF;

STICKLINE(XG7,L+(H-L)/2,L+(H-L)/1.8,2.5,0),COLOR0088FF;

DRAWTEXT(XG7,L*0.99,'啟動'),COLOR0088FF;

FD:=(C-REF(C,1))/REF(C,1)*100;

DF:=FD<-5;

TTP01:=BARSLAST(DF);

KPI01:=BACKSET(ISLASTBAR,TTP01+1) AND REF(BACKSET(ISLASTBAR,TTP01+1),1)=0;

情緒線:REF(O,BARSLAST(KPI01)),LINETHICK1,COLORMAGENTA;

DRAWTEXT(BARSLAST(KPI01),情緒線*1.005,STRCAT(('情緒:'),CON2STR(情緒線,2))),COLORMAGENTA;

{斷量}

MV5:=MA(V,5);

破5:=CROSS(MV5,V);

TTP001:=BARSLAST(破5);

KPI001:=BACKSET(ISLASTBAR,TTP001+1) AND REF(BACKSET(ISLASTBAR,TTP001+1),1)=0;

斷量:REF(C,BARSLAST(KPI001)),LINETHICK1,COLORWHITE;

DRAWTEXT(BARSLAST(KPI001),斷量*1.005,STRCAT(('斷量:'),CON2STR(斷量,2))),COLORWHITE;

{鍋蓋}

CLT:=LLVBARS(L,60);

CLTT:=BARSLAST(CURRBARSCOUNT=CONST(CLT)+1);

CHT:=FINDHIGHBARS(H,CLT+1,60,1);

鍋蓋:DRAWLINE(CURRBARSCOUNT=CONST(CHT)+1,H,ISLASTBAR,REF(H,CHT),0),COLORGREEN,LINETHICK2;

TT1:=BARSLAST(CURRBARSCOUNT=CONST(CHT)+1);

DRAWTEXT(TT1=0,REF(H,TT1)*1.01,VARCAT(VARCAT('鍋蓋:',VAR2STR(REF(H,TT1),2)),'')),COLORGREEN;