{MACD背离}
{参数}SHORT:=12;LONG:=26;M:=9;
DIFF : EMA(CLOSE,SHORT) - EMA(CLOSE,LONG);
DEA : EMA(DIFF,M);
MACD : 2*(DIFF-DEA), COLORSTICK,COLOR5454FF;
DD:=C=HHV(C,180);
EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1;
CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1;
上升背离:=(CC AND EE)*DEA,COLOR00FFFF;
顶背离:(DD AND EE AND DEA< HHV(DEA,180))*DEA,STICK,NODRAW,COLORGREEN;
FF:=C=LLV(C,180);
GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1;
LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1;
下降背离:=(LL AND GG)*DEA,COLORMAGENTA;
底背离:=(FF AND GG AND DEA> LLV(DEA,180))*DEA,STICK,LINETHICK3,COLORRED;
MM:=IF(MACD< 0,MACD,0);
WWW58188COM:=IF(MACD< 0,MACD,0);
JJ:=MM> REF(MM,1);
ZZ:=REF(JJ,1)=1;
介入区:(JJ AND ZZ)*DEA,POINTDOT,COLORRED;{MACD蓝柱缩短---指今日比昨天短}
STICKLINE(介入区=DEA,DEA,DIFF,3,0),COLORRED;
DRAWTEXT(CROSS(DIFF,DEA ),0,'金叉'),COLORYELLOW;
DRAWTEXT(CROSS(DEA,DIFF ),0,'死叉'),COLORGREEN;
金叉:CROSS(DIFF,DEA),NODRAW;
2、龙头战法
专门捕捉强势个股龙头成功率极大,通达信主图,缔造龙头,源码分享
这公式,比绝大部分的金钻指标更好, 无未来函数不漂移
龙头战法公式介绍和使用方法::
通达信主图里面主要用到平台线和龙行线 潜伏黄柱 和红色箭头持股 绿色箭头卖出
平台线又称涨停过河线 意思就是过了线往往会出现涨停( 顶尖财经 股票学院: )
龙行线寻找启动板块及个股
1.使用5分钟级别寻找
610均线向上金叉987均线 板块开始启动 关注
610 987 均线顺行向上板块有大行情 开始关注板块内的个股 买个股基本不会亏
2.寻找板块内的强势个股(龙头的概率大)
1.日线龙行线斜向上,大阳线穿过龙行线
2.5分钟级别610线金叉之后越来越陡
发现未来函数 WINNER
发现未来函数 CAPITAL
发现未来函数 #MONTH
知道什么是未来函数吗 不懂就到网上搜搜好吧 看看这几个算不算
补一个选股公式的源码:
潜伏信号选股公式
SHORT:=4;
LONG:=10;
MID:=3;
SHORT1:=4;
LONG1:=10;
MID1:=3;
月K:="KDJ.K#MONTH";
月D:="KDJ.D#MONTH";
周K:="KDJ.K#WEEK";
周D:="KDJ.D#WEEK";
日K:="KD.K";
日D:="KD.D";
T1:=月K>月D AND 周K>周D AND 日K>日D;
DIF:=EMA(CLOSE,SHORT)-EMA(CLOSE,LONG);
DEA:=EMA(DIF,MID);
MACD:=(DIF-DEA)*2;
T2:=DIF>DEA ;
MA5:=MA(C,5);
MA10:=MA(C,10);
MA60:=MA(C,60);
T3:=(MA5>MA10 ) AND (MA(C,5)>REF(MA(C,5),1) AND
ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.3>=20 AND ATAN((MA(C,10)/REF(MA(C,10),1)-1)*100)*57.3>=10);
DIF1:=EMA(VOL,SHORT1)-EMA(VOL,LONG1);
DEA1:=EMA(DIF1,MID1);
MACD1:=DIF1-DEA1;
S1:=CROSS(DIF1,DEA1);
LZR:=BARSLAST(S1);
T4:=BETWEEN(LZR,0,10);
买进:=(T1 AND T2 AND T3 AND T4);
T6:=CROSS(DEA,DIF) ;
卖出:=T6;
X_1:=(2*CLOSE+HIGH+LOW)/4;
X_2:=LLV(LOW,5);
X_3:=HHV(HIGH,5);
X_4:=EMA((X_1-X_2)/(X_3-X_2)*27,5);
X_5:=EMA(X_4,3);
潜伏:FILTER(WINNER(CLOSE)-REF(WINNER(CLOSE),1)>0.1 AND CLOSE/REF(CLOSE,1)<1.05
AND CAPITAL<1000000000 AND EVERY(X_4>17,3) AND EVERY(X_5>17,3),30) AND DIF>DEA;
3、测上升阻力
{测上升阻力}
DRAWGBK(C>0, RGB(0,0,20),RGB(00,0,0),0,0,1);
DRAWKLINE(H,O,L,C);
{HD LD ZIG}
HD:=FILTER(BACKSET(FILTER(REF(H,5)=HHV(H,13),5),5+1),6);{高点}
LD:=FILTER(BACKSET(FILTER(REF(L,5)=LLV(L,21),6),6),5);{低点}
DRAWLINE(LD,L,HD,H,0),COLORRED,LINETHICK2;
DRAWLINE(HD,H,LD,L,0),COLORGREEN;
{----------------------------------------------}
{A B C}
J1:=BACKSET(CURRBARSCOUNT=2 ,MIN(BARSLAST(HD),BARSLAST(LD))+1);
J2:=J1>REF(J1,1);
DRAWLINE(J2,IF(HD,H,L),CURRBARSCOUNT=2 ,IF(BARSLAST(HD)>BARSLAST(LD),H,L),0),DOTLINE,COLORWHITE;
C点:=BARSLAST(LD);
DRAWTEXT(LD AND BARSLAST(HD)
{25T高 100T低}
波1:=12;
PLZ:=CONST(BARSLAST(CONST(FINDHIGH(H,0,25,1))=H))+1;
高25:CONST(IF(PLZ=1,H,REF(H,PLZ-1))),COLORGREEN,DOTLINE;
PLL:=CONST(BARSLAST(CONST(FINDLOW(L,0,100,1))=L))+1;
低100:CONST(IF(PLL=1,L,REF(L,PLL-1))),COLORGREEN,DOTLINE;
波动速率:=100*((高25-低100)/(IF(PLL>PLZ,低100,高25)))/(PLL-PLZ);
BPURC:=CONST(FINDHIGH(H,0,(IF(波1>0,波1,IF(PLZ
BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ
BLC顶X:=CONST(IF(BPLZ=1,H,REF(H,BPLZ-1)));
BLC低X:=CONST(IF(BPLL=1,L,REF(L,BPLL-1)));
BASE:=IF(波动速率<0,BLC顶X,BLC低X);
BLCZ:=(高25-低100)*(IF(PLL>PLZ,1,-1));
B12:=BASE+(BLCZ*1.382);
B14:=BASE+(BLCZ*1.618);
B200:=BASE+(BLCZ*2);
XZDD:=IF(PLL>PLZ,BPLL,BPLZ);
STICKLINE(CURRBARSCOUNT=XZDD ,BASE,B200,0,0),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=XZDD,B12,'---------------------------------------------------------------C1')COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=XZDD,B14,'---------------------------------------------------------------C2')COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------------------------------------------C3')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B12,CON2STR(B12,2)),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=10,B14,CON2STR(B14,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B200,CON2STR(B200,2)),COLORGREEN;
{合第二个};
B121:=BASE+(BLCZ*0.775)COLORRED;
B141:=BASE+(BLCZ*0.868)COLORRED;
B2001:=BASE+(BLCZ*1)COLORRED;
XZDD1:=IF(PLL>PLZ,BPLL,BPLZ);
STICKLINE(CURRBARSCOUNT=XZDD1 ,BASE,B2001,0,0),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=XZDD1,B121,'---------------------------C1')COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=XZDD1,B141,'---------------------------C2')COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=XZDD1,B2001,'--------------------------C3')COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B121,CON2STR(B121,2)),COLORC0FF7F;
DRAWTEXT(CURRBARSCOUNT=10,B141,CON2STR(B141,2)),COLORYELLOW;
DRAWTEXT(CURRBARSCOUNT=10,B2001,CON2STR(B2001,2)),COLORGREEN;
DRAWTEXT(CURRBARSCOUNT=10,B2001,CON2STR(B2001,2)),COLORGREEN;