当前位置: 网站首页 > 股票软件公式 > 通达信公式 > 文章 当前位置: 通达信公式 > 文章

通达信源码:庄家骗线吸筹,分型顶底,股海淘金

点击: 次    来源:顶尖财经    作者:股市狙击 - 小 + 大

1、庄家骗线吸筹

N:=24;

A1:=1;
A2:=(100*(CLOSE-(MA(CLOSE,30))))/(MA(CLOSE,30));
A3:=100-((90*((HHV(HIGH,20))- CLOSE))/((HHV(HIGH,20))-(LLV(LOW,20))));
A4:=100-(MA(((100*((HHV(HIGH,6))-CLOSE))/((HHV(HIGH,6))-(LLV(LOW,6)))),28));
A5:=MA(A4,6);
L1:=(EMA(CLOSE,3) - EMA(CLOSE,13));
L2:=EMA(L1,9);
L3:=BARSLAST(CROSS(L1,L2));
L4:=REF(L3,L3+1);
L5:=L2;
红持股:IF((A3 < A5),A5,A3),COLORRED;
绿持币:IF((A3 > A5),A5,A3),COLORGREEN;
强弱:(A5),LINETHICK1,COLORYELLOW;
变盘:CROSS(L1,L2) AND L5,NODRAW,COLORD6FF9C;
STICKLINE(变盘,5,0,0,1),COLORD6FF9C;
DIFF:(EMA(CLOSE,12) - EMA(CLOSE,26))*20,COLORWHITE,LINETHICK1;
DEA:EMA(DIFF,9),COLORYELLOW,LINETHICK1;
MACD:2*(DIFF-DEA),COLORSTICK;
MACD1:=2*(DIFF-DEA),COLORRED,NODRAW;
MACD2:=EMA(MACD1,3),COLORCYAN,NODRAW;
A14:=EMA(CLOSE,8);
A15:=EMA(A14,20);
A16:=CROSS(A14,A15);
A17:=A14 < (EMA(CLOSE,120));
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,2,0),COLORRED;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,2,0),COLORYELLOW;
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORGREEN;
LS:=IF(DIFF>DEA AND DIFF>0,1,0);
加速上扬:IF(REF(LS=0,1) AND LS=1,0.1,0);
大波黑马起步:((A16 AND A17) * 75) * A1,LINETHICK2,COLORMAGENTA;
XG1:CROSS(MACD1,MACD2) AND MACD1<0,NODRAW;
XG2:CROSS(DIFF,DEA),NODRAW;
M1:=MACD>REF(MACD,1) AND DIFF<DEA;
绿柱短了:M1 AND COUNT(M1,10)=1 AND C>MA(C,55) AND COUNT(MACD<0,5)>=5,NODRAW;
DRAWTEXT(绿柱短了,MACD,'买点来了');
A18:=SUM((IF((CLOSE > (REF(CLOSE,1))),VOL,(IF((CLOSE < (REF(CLOSE,1))),(0 - VOL),0)))),0);
A19:=SUMBARS(VOL,CAPITAL);
A20:=(IF((CLOSE > (LLV(CLOSE,A19))),1,-1)) * (IF((A18 > (LLV(A18,A19))),1,-1));
A21:=IF((A20 = -1),1,0);
DIFL:=EMA(V,12)-EMA(V,26);
DIF:=EMA(C,12)-EMA(C,26);
BL:=DIFL>REF(DIFL,1) AND DIF<REF(DIF,1);
A22:=(COUNT((A21 = 1),8)) > 2;
A23:=((SUM(AMOUNT,13)) / ((AMOUNT / VOL) / 100)) / 100;
A24:=DMA((((((3 * HIGH) + LOW) + OPEN) + (2 * CLOSE)) / 7),(VOL / A23));
A25:=(((CLOSE - A24) / A24) * 100) < -15;
四天: REF(BL,3)=1 AND REF(BL,2)=1 AND REF(BL,1)=1 AND BL;
三天:REF(BL,2)=1 AND REF(BL,1)=1 AND BL;
IF(DIFF>DEA,DIFF,DRAWNULL),COLORFF11CC,LINETHICK1;
IF(DIFF>DEA AND DIFF<0,DIFF,DRAWNULL),COLORRED,LINETHICK1;
RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
K:=SMA(RSV,3,1);
D:=SMA(K,3,1);
A26:=((CLOSE - (MIN(((REF(CLOSE,5)) * 0.865),((REF(CLOSE,21)) * 0.772)))) / CLOSE) < 0.05;
A27:=REF(LOW,1);
A28:=((SMA(ABS((LOW - A27)),3,1)) / (SMA((MAX((LOW - A27),0)),3,1))) * 100;
A29:=EMA((IF((CLOSE * 1.2),(A28 * 10),(A28 / 10))),3);
DRAWTEXT(FILTER(D>80,6),H*1.018,'D>80');
DRAWTEXT(FILTER(CROSS(K,D) AND D<26,6),H*0.95,'KD低位金叉'),COLORFFCCCC;
STICKLINE(FILTER(CROSS(K,D) AND D<26,6),H*0.97,H*0.95,4,0),COLORFFCCCC;
DIFFF:=EMA(CLOSE,12) - EMA(CLOSE,26);
A30:=LLV(LOW,38);
A31:=HHV(A29,38);
DEAF :=EMA(DIFFF,9);
MACDD:=2*(DIFFF-DEAF);
A32:=IF((LLV(LOW,90)),1,0);
A33:=((EMA((IF((LOW <= A30),((A29 + (A31 * 2)) / 2),0)),3)) / 618) * A32;
ROC:=(CLOSE-REF(CLOSE,21))/REF(CLOSE,21)*100;
WWW58188COM:= EMA(EMA(CLOSE,13),13);
DRAWTEXT(FILTER(CROSS(ROC,0),6),L-2.25,'骗线拐点'),COLORWHITE;
STICKLINE(FILTER(CROSS(ROC,0),6),L-0.02,L-0.15,5,0),COLORFF00FF;
庄家吸筹留踪影:(STICKLINE(A33,0,A33,6,1)) ,COLORWHITE;



2、分型顶底,黄色笑脸金叉信号,补仓或进场

公式介绍:
是一个比较典型的“优化MACD”指标,
但是对比传统的MACD更为详细,可以直观的看出( 顶尖财经 股票学院: http://www.58188.com )
金叉与死叉的分界线,同时成交量的高低也更为直观明确。
 
公式用法:
黄色笑脸金叉信号,补仓或进场
绿色钻石 死叉
 
DIFF:EMA(CLOSE,7) - EMA(CLOSE,19);
DEA:EMA(DIFF,9);
DRAWBAND(DIFF,RGB(200,50,55),DEA,RGB(50,100,10));
MACD:2*(DIFF-DEA),COLORSTICK;
A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));
B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);
A2:=BARSLAST(REF(CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3)),1));
B2:=REF(C,A2+1)>C AND REF("KDJ.K"(9,3,3),A2+1)<"KDJ.K"(9,3,3) AND CROSS("KDJ.K"(9,3,3),"KDJ.D"(9,3,3));
A3:=BARSLAST(REF(CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24)),1));
B3:=REF(C,A3+1)>C AND REF("RSI.RSI1"(6,12,24),A3+1)<"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI1"(6,12,24),"RSI.RSI2"(6,12,24));
C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));
D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);
C2:=BARSLAST(REF(CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3)),1));
D2:=REF(C,C2+1)<C AND REF("KDJ.K"(9,3,3),C2+1)>"KDJ.K"(9,3,3) AND CROSS("KDJ.D"(9,3,3),"KDJ.K"(9,3,3));
C3:=BARSLAST(REF(CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));
D3:=REF(C,C3+1)<C AND REF("RSI.RSI1"(6,12,24),C3+1)>"RSI.RSI1"(6,12,24) AND CROSS("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24));
STICKLINE(B1>0,-0.1,0,1,0),COLORRED;
STICKLINE(B2>0,-0.1,0,1,0),COLORFF00FF;
STICKLINE(B3>0,-0.1,0,1,0),COLORYELLOW;
STICKLINE(D1>0,0.1,0,1,0),COLOR00FF00;
STICKLINE(D2>0,0.1,0,1,0),COLORFFCC66;
STICKLINE(D3>0,0.1,0,1,0),COLORWHITE;
STICKLINE(MACD>REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORRED;
STICKLINE(MACD<=REF(MACD,1) AND MACD>0,0,MACD,0,0),COLORYELLOW;
STICKLINE(MACD<REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORCYAN;
STICKLINE(MACD>=REF(MACD,1) AND MACD<0,0,MACD,0,0),COLORMAGENTA;
STICKLINE(C>0,0,0,50,1),COLORBLUE;
MACD底背:IF(B1>0,-0.1,0),COLORRED,POINTDOT;
KDJ底背:IF(B2>0,-0.1,0),COLORFF00FF,POINTDOT;
RSI底背:IF(B3>0,-0.1,0),COLORYELLOW,POINTDOT;
MACD顶背:IF(D1>0,0.1,0),COLOR00FF00,POINTDOT;
KDJ顶背:IF(D2>0,0.1,0),COLORFFCC66,POINTDOT;
RSI顶背:IF(D3>0,0.1,0),COLORWHITE,POINTDOT;
强:IF(DIFF>MA(DIFF,2),DIFF,DRAWNULL),COLORRED,LINETHICK2;
弱:IF(DEA>MA(DEA,2),DEA,DRAWNULL),COLORMAGENTA,LINETHICK2;
DRAWICON(CROSS(DIFF,DEA),DEA,5);
DRAWICON(CROSS(DEA,DIFF),DEA,27);
A:=REF(DIFF,1)<REF(DIFF,2) AND REF(DIFF,2)<REF(DIFF,3) AND DIFF>REF(DIFF,1);
B:=REF(DIFF,1)>REF(DIFF,2) AND REF(DIFF,2)>REF(DIFF,3) AND DIFF<REF(DIFF,1);
DRAWICON(A,DIFF,1);
DRAWICON(B,DIFF,2);
STICKLINE((MACD > 0),0,MACD,0.1,0),COLOR0000CC;
STICKLINE((MACD > 0),0,MACD*0.9,0.1,0),COLOR0000EE;
STICKLINE((MACD > 0),0,MACD*0.8,0.1,0),COLOR0011FF;
STICKLINE((MACD > 0),0,MACD*0.7,0.1,0),COLOR0033FF;
STICKLINE((MACD > 0),0,MACD*0.6,0.1,0),COLOR0055FF;
STICKLINE((MACD > 0),0,MACD*0.5,0.1,0),COLOR0077FF;
STICKLINE((MACD > 0),0,MACD*0.4,0.1,0),COLOR0099FF;
STICKLINE((MACD > 0),0,MACD*0.3,0.1,0),COLOR00BBFF;
STICKLINE((MACD > 0),0,MACD*0.2,0.1,0),COLOR00DDFF;
STICKLINE((MACD > 0),0,MACD*0.1,0.1,0),COLOR00FFFF;
STICKLINE((MACD < 0),0,MACD,0.1,0),COLORCC0033;
STICKLINE((MACD < 0),0,MACD*0.9,0.1,0),COLOREE0033;
STICKLINE((MACD < 0),0,MACD*0.8,0.1,0),COLORFF1133;
STICKLINE((MACD < 0),0,MACD*0.7,0.1,0),COLORFF3333;
STICKLINE((MACD < 0),0,MACD*0.6,0.1,0),COLORFF5533;
STICKLINE((MACD < 0),0,MACD*0.5,0.1,0),COLORFF7733;
STICKLINE((MACD < 0),0,MACD*0.4,0.1,0),COLORFF9933;
STICKLINE((MACD < 0),0,MACD*0.3,0.1,0),COLORFFBB33;
STICKLINE((MACD < 0),0,MACD*0.2,0.1,0),COLORFFDD33;
STICKLINE((MACD < 0),0,MACD*0.1,0.1,0),COLORFFFF33;




3、股海淘金

 {股海淘金}

MA5:=MA(C,5);
MA20:=MA(C,20);
角度5:=ATAN((MA(C,5)/REF(MA(C,5),1)-1)*100)*57.3;
角度60:=ATAN((MA(C,60)/REF(MA(C,60),1)-1)*100)*57.3;
A51:= REF(MA5,1)*0.98;
A52:= REF(MA5,2)*0.98;
B52:= BARSLAST(REF(C,2)>=REF(MA5,2) AND REF(C,1)<REF(MA5,1))+2;
B51:= BARSLAST(REF(C,2)>=REF(MA5,2) AND REF(C,1)<REF(MA5,1))+1;
DZ:=IF((REF(C,2)>=REF(MA5,2)) AND (REF(C,1)<REF(MA5,1)),IF(REF(MA5,2)<REF(MA5,1),A51,A52),IF(BARSSINCE(REF(C,2)>=REF(MA5,2) AND REF(C,1)<REF(MA5,1))>0,IF(REF(MA5, B52)< REF(MA5, B51),REF(MA5,B51)*0.98, REF(MA5,B52)*0.98), REF(MA5,1)));
A201:= REF(MA20,1)*0.98;
A202:= REF(MA20,2)*0.98;
B202:= BARSLAST(REF(C,2)>=REF(MA20,2) AND REF(C,1)<REF(MA20,1))+2;
B201:= BARSLAST(REF(C,2)>=REF(MA20,2) AND REF(C,1)<REF(MA20,1))+1;
ZZ:=IF((REF(C,2)>=REF(MA20,2)) AND (REF(C,1)<REF(MA20,1)),IF(REF(MA20,2)<REF(MA20,1),A201,A202),IF(BARSSINCE(REF(C,2)>=REF(MA20,2) AND REF(C,1)<REF(MA20,1))>0,IF(REF(MA20, B202)< REF(MA20, B201),REF(MA20,B201)*0.98, REF(MA20,B202)*0.98), REF(MA20,1)));
短止:=DZ,COLORWHITE,LINETHICK2;
紫线:=ZZ,COLORMAGENTA;
绿线:=LLV(REF(LOW,1),2)+(HHV(REF(HIGH,1),2)-LLV(REF(LOW,1),2))/2,COLORGREEN;
黄线:=MA(CLOSE,25)+MA(CLOSE,25)*6/100,COLORYELLOW,LINETHICK2;
白轨:=MA(CLOSE,25)+MA(CLOSE,25)*20/100,COLORWHITE;
影子线:=MA(CLOSE,25)+MA(CLOSE,25)*13/100,COLORGRAY;
AZZ:=LLV(REF(LOW,1),2)+(HHV(REF(HIGH,1),2)-LLV(REF(LOW,1),2))/2,COLORGREEN;
AXX:=((((MA(C,10) > MA(C,25)) && CROSS(C,MA(C,5))) && (V > MA(V,10))) && (MA(C,10) > REF(MA(C,10),1)));
ASS:=C>=黄线 AND AXX ;
角度黄线:=ATAN((黄线/REF(黄线,1)-1)*100)*180/3.1416;
BIAS:=(O-黄线)/黄线*100;
XA_1:=(CLOSE/REF(CLOSE,1)-1)*100>9.5;
XA_2:=BARSLAST(XA_1);
XA_3:=BARSLAST(XA_1);
XA_4:=(REF(CLOSE,XA_3)+REF(OPEN,XA_3))/2;
XA_5:=REF(CLOSE,1);
XA_6:=IF((XA_5-CLOSE)*100/XA_5>=10-0.01*100/XA_5,1,0);
MA13:=MA(CLOSE,13);
MA21:=MA(CLOSE,21);
MA55:=MA(CLOSE,55);
XA_7:=CLOSE>MA21 AND MA13>REF(MA13,1) AND XA_6!=1;
XA_8:=(MA(CLOSE,3)+MA(CLOSE,6)+MA(CLOSE,12)+MA(CLOSE,24))/4;
XA_9:=REF(CLOSE,1);
XA_10:=SMA(MAX(CLOSE-XA_9,0),2,1)/SMA(ABS(CLOSE-XA_9),2,1)*100;
XA_11:=SMA(MAX(CLOSE-XA_9,0),14,1)/SMA(ABS(CLOSE-XA_9),14,1)*100;
XA_12:=45;
XA_13:=80;
XA_14:=20;
XA_15:=5;
XA_16:=XA_10<XA_12 AND REF(XA_10,1)>XA_12;
XA_17:=XA_10<XA_14 AND REF(XA_10,1)>XA_14;
XA_18:=COUNT(XA_1,13)>=1;
XA_19:=SMA(LOW,4,3);
XA_20:=XA_16 OR XA_17 AND XA_18;
XA_21:=REF(XA_16,1) OR REF(XA_17,1) AND LOW<MA(CLOSE,5) AND XA_18 AND XA_7 AND CLOSE>REF(LOW,XA_3);
LC:=REF(CLOSE,1);
操作线:=SMA(MAX(CLOSE-LC,0),2,1)/SMA(ABS(CLOSE-LC),2,1)*100,COLORWHITE,LINETHICK2;
震仓线2:=45,COLORGRAY;
抄底线:=25,COLORGREEN;
PP:=操作线<震仓线2  AND REF(操作线,1)>震仓线2 AND C>MA(C,21);
PP3:=操作线<抄底线  AND REF(操作线,1)>抄底线 AND C>MA(C,21);
涨停:=IF(REF(C,1)*1.1-C<0.01 ,1,0);
HH:=COUNT(涨停,13)>=1;
HJ1:=(REF(PP3,1) AND HH),COLORGREEN;
HJ2:=(REF(PP,1) AND HH),COLORGREEN;
绿柱子选股L:=HJ1 OR HJ2;
上趋势:=MA(LOW,20)*1.2,COLORBLACK;
次上趋势:=MA(LOW,20)*1.12,COLORBLACK;
次下趋势:=MA(HIGH,20)*1,COLORBLACK;
下趋势:=MA(HIGH,20)*0.92,COLORBLACK;
HJ_1:=(CLOSE-REF(CLOSE,1))/REF(CLOSE,1)*100;
HJ_2:=(HHV(HIGH,20)-CLOSE)/(HHV(HIGH,20)-LLV(LOW,20));
HJ_3:=IF(CLOSE>次上趋势,IF(CLOSE>上趋势,4,3),IF(CLOSE>次下趋势 AND CLOSE<次上趋势,2,IF(CLOSE<下趋势,0,1)));
HJ11:=(HJ_3=3),COLORYELLOW;
HJ12:=(HJ_3=4),COLORMAGENTA;
上升趋势:=HJ11 OR HJ12;
XG1:=XA_21 OR 绿柱子选股L;
预选:=XG1 AND C>O;
DIF:=EMA(CLOSE,12)-EMA(CLOSE,26);
DEA:=EMA(DIF,9);
MACD:=2*(DIF-DEA);
K:=BARSLAST(妖股);
淘金:K>=1 AND K <=15 AND 预选 AND 角度黄线>10 AND DIF>DEA AND ZJTJ.有庄控盘>0,COLORMAGENTA;
STICKLINE(淘金,0,0.5,3,0),COLORCYAN;
STICKLINE(淘金,0.5,1,3,0),COLORMAGENTA;
STICKLINE(淘金,0,0.5,3,0),COLORCYAN;
STICKLINE(淘金,0.5,1,3,0),COLORMAGENTA;
DRAWTEXT(淘金,0.5,'    ★股海淘金'),COLORYELLOW;

上一篇:通达信公式下载:筹码集中度,起爆点,牛股分时突破,寻龙诀

下一篇:通达信源码:资金进场,抓住黑马,金山钻石底