|
以下是通达信牛三斤源码主图贴图（无源码的请下载附件导入）
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;
719599731.jpg
|
