| 1、MACD背离 {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、龙头战法 专门捕捉强势个股龙头成功率极大，通达信主图，缔造龙头，源码分享 这公式，比绝大部分的金钻指标更好， 无未来函数不漂移 龙头战法公式介绍和使用方法：： 通达信主图里面主要用到平台线和龙行线 潜伏黄柱 和红色箭头持股 绿色箭头卖出 平台线又称涨停过河线 意思就是过了线往往会出现涨停( 顶尖财经 股票学院: http://58188.com ) 龙行线寻找启动板块及个股 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)<BARSLAST(REF(LD,1)) ,L-0.1,'Ａ'),COLORRED; DRAWTEXT(HD,H+0.1,'Ｂ'),COLORGREEN; {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<PLL,5,10)))*5,1)); BPLZ:=CONST(BARSLAST(BPURC=H))+1; BQQT:=CONST(FINDLOW(L,0,(IF(波1>0,波1,IF(PLZ<PLL,5,10)))*5,1)); BPLL:=CONST(BARSLAST(BQQT=L))+1; 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,'---------------------------------------------------------------Ｃ１')COLORC0FF7F; DRAWTEXT(CURRBARSCOUNT=XZDD,B14,'---------------------------------------------------------------Ｃ２')COLORYELLOW; DRAWTEXT(CURRBARSCOUNT=XZDD,B200,'--------------------------------------------------------------Ｃ３')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,'---------------------------Ｃ１')COLORC0FF7F; DRAWTEXT(CURRBARSCOUNT=XZDD1,B141,'---------------------------Ｃ２')COLORYELLOW; DRAWTEXT(CURRBARSCOUNT=XZDD1,B2001,'--------------------------Ｃ３')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; |