彩霞主图

,变色彩带，红彩带持股，

逃顶利器

{彩霞主图}

DRAWBAND(MA(CLOSE,60),RGB(118,38,38),MA(CLOSE,120),RGB(38,88,38));

DRAWBAND(MA(CLOSE,5),RGB(123,23,123),MA(CLOSE,10),RGB(23,123,123));

MA60:MA(CLOSE,60),COLOR0000FF,LINETHICK1,NODRAW;

MA120:MA(CLOSE,120),COLOR00FF00,NODRAW;

MA5:MA(CLOSE,5),COLORFF00FF;

MA10:MA(CLOSE,10),COLORFFFF00;

MA20:MA(C,20),COLOR0079FF,LINETHICK1;

DRAWKLINE(H,O,L,C);

DIF:=(EMA(C,12)-EMA(C,26));

DEA:=EMA(DIF,9);

MACD:=2*(DIF-DEA);

MJBT:=EXIST((CROSS(DIF,DEA) AND DIF>0) OR CROSS(DIF,0),5) ;

MVOL5:=MA(V,5);

MVOL10:=MA(V,10);

MVOL20:=MA(V,20);

量托:=MVOL5>=MVOL20 AND CROSS(MVOL10,MVOL20) AND REF(MVOL10,1)<REF(MVOL20,1);

VJBT:=EXIST(CROSS(MVOL5,MVOL10) OR 量托,5);

T1:=BARSLAST(REF(LONGCROSS(MA60,MA120,55),1));

JJC:=CROSS(MA5,MA10) AND T1<30;

SJBT:=FILTER(MJBT AND JJC AND VJBT,5);

STICKLINE(SJBT,C,O,3,0),COLOR000088;

STICKLINE(SJBT,C,O,1,0),COLOR0000AA;

STICKLINE(SJBT,C,O,0.3,0),COLOR0000CC;

STICKLINE(SJBT,C,O,0.0,0),COLOR0000FF;

DRAWTEXT(SJBT,L*0.98,'★牛三金'),COLOR0078FF;

RSV:=(((C-LLV(L,60))/(HHV(H,60)-LLV(L,60)))*100);

K:=SMA(RSV,10,1),COLOR0000FF,LINETHICK1;

D:=SMA(SMA(RSV,10,1),3,1),COLORFFFFFF,LINETHICK1;

J:=SMA(K,10,1),COLOR00FF00,LINETHICK1;

DBU:=(((C/COST(13))<=0.78)*17);

BT01:=LONGCROSS(K,16.18,5) AND D<19.1;

BT02:=LONGCROSS(K,D,8) AND D<16.18;

FTBT:=FILTER(COUNT(BT01 OR BT02,3)=2,3);

STICKLINE(FTBT,C,O,3,0),COLOR880088;

STICKLINE(FTBT,C,O,1,0),COLORAA00AA;

STICKLINE(FTBT,C,O,0.3,0),COLORCC00CC;

STICKLINE(FTBT,C,O,0.0,0),COLORFF00FF;

DRAWTEXT(FTBT,L*0.99,'★反弹'),COLORFF00FF;

BT03:=FILTER(CROSS(K,D) AND EXIST(DBU=17,3),3);

STICKLINE(BT03,C,O,3,0),COLOR000088;

STICKLINE(BT03,C,O,1,0),COLOR0000AA;

STICKLINE(BT03,C,O,0.3,0),COLOR0000CC;

STICKLINE(BT03,C,O,0.0,0),COLOR0000FF;

DRAWTEXT(BT03,L*0.99,'★金底'),COLOR0000FF;

ST01:=LONGCROSS(K,80,5) AND D>76;

ST02:=LONGCROSS(D,K,5) AND D>70;

ST:=ST01 OR ST02;

STICKLINE(ST,C,O,3,0),COLOR008800;

STICKLINE(ST,C,O,1,0),COLOR00AA00;

STICKLINE(ST,C,O,0.3,0),COLOR00CC00;

STICKLINE(ST,C,O,0.0,0),COLOR00FF00;

DRAWTEXT(ST,H*1.009,'★顶'),COLOR00FF00;

LC:=REF(C,1);

RSI5:=SMA(MAX(C-LC,0),5,1)/SMA(ABS(C-LC),5,1)*1000;

DC:=RSI5-LLV(RSI5,10);

AV:=(MA(DC,3)*5+DC*15)/20;

DXRSI:=IF(AV>13,MA(AV,3),AV)/6;

MADXRSI:=MA(DXRSI,5),COLORBBBBBB;

DXBT:=CROSS(DXRSI,1) AND DXRSI<30;

{BIAS}

ABS34:=MA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),20);

BS13:=-100*(HHV(H,13)-C)/(HHV(H,13)-LLV(L,13));

EBS5:=EMA(-100*(HHV(H,34)-C)/(HHV(H,34)-LLV(L,34)),5);

VBS13:=BS13+100;

VABS34:=ABS34+100;

VEBS5:=EBS5+100;

底区:=(VABS34<12 AND VEBS5<8 AND (VBS13<7.2 OR REF(VBS13,1)<5) AND (VEBS5>REF(VEBS5,1)

OR VBS13>REF(VBS13,1))) OR (VABS34<8 AND VEBS5<7 AND VBS13<15 AND VBS13>REF(VBS13,1))

OR (VABS34<10 AND VEBS5<7 AND VBS13<1);

低金:=(VABS34<15 AND REF(VABS34,1)<15 AND VEBS5<18 AND VBS13>REF(VBS13,1) AND

CROSS(VBS13,VABS34) AND VBS13>VEBS5 AND (REF(VBS13,1)<5 OR REF(VBS13,2)<5 ) AND

(VEBS5>=VABS34 OR REF( VBS13,1)<1 ));

FZBT:=DXBT AND 低金;

FZXG:=低金 OR FZBT;

VARF11:=(C-MA(C,55))/MA(C,55)*100<-30 AND (C-MA(C,89))/MA(C,89)*100<-27

AND COUNT((C-MA(C,55))/MA(C,55)*100<-30 AND (C-MA(C,89))/MA(C,89)*100<-27,2)=1

AND (O-REF(C,1))/REF(C,1)>-0.07 AND COUNT(C=O,6)=0,COLORCCCCCC;

VARF21:=(C-DMA(EMA(C,8),SUM(V,9)/2.8/CAPITAL))/DMA(EMA(C,8),SUM(V,9)/2.8/CAPITAL)*100,COLOR00AAAA;

VARF31:=REF(VARF21,1)<-46 AND VARF21>REF(VARF21,1) AND REF(VARF21,1)<REF(VARF21,2) AND VARF21-REF(VARF21,1)>2.2;{-42,1.8}

JDBT1:=(VARF11 OR VARF31)*10,COLOR0000FF,LINETHICK2;

JDBT2:=LONGCROSS(VARF21,-23,3);

JDXG:=JDBT1 OR JDBT2;

W118:=FILTER(FZXG OR JDXG,5);

STICKLINE(W118,C,O,3,0),COLOR008888;

STICKLINE(W118,C,O,1,0),COLOR00AAAA;

STICKLINE(W118,C,O,0.3,0),COLOR00CCCC;

STICKLINE(W118,C,O,0.0,0),COLOR00FFFF;

DRAWTEXT(W118,L*0.99,'★谷底'),COLOR00FFFF;

IF(MA60>=MA120,MA60,DRAWNULL),COLOR0000FF;

IF(MA120>=MA60,MA120,DRAWNULL),COLORFF9900;

IF(MA60>=MA120,MA120,DRAWNULL),COLOR00FFFF;

IF(MA120>=MA60,MA60,DRAWNULL),COLOR00FF00; 

D1:=YEAR AND MONTH AND DAY;

AA1:=STRCAT(CON2STR(YEAR,0),'年');

AA2:=STRCAT(CON2STR(MONTH,0),'月');

AA3:=STRCAT(CON2STR(DAY,0),'日');

AA4:=STRCAT('星期',IF(WEEKDAY=1,'一',IF(WEEKDAY=2,'二',IF(WEEKDAY=3,'三',IF(WEEKDAY=4,'四',IF(WEEKDAY=5,'五',IF(WEEKDAY=6,'六','日'))))))); 

AA:=STRCAT(STRCAT(STRCAT(AA1,AA2),STRCAT(AA3,AA4)),'');

DRAWTEXT_FIX(D1,0.83,0,0,AA),COLORGREEN;