寧俊明135戰(zhàn)法所有公式全編寫主圖通達信指標公式源碼

XLCD:=XLCD1 AND XLCD2 AND XLCD3; 
DRAWTEXT(XLCD,(O+C)/2,'笑里藏刀'),COLORF00FF0; 
{馬失前蹄} 
MSQT1:=EMA55/EMA13>1.04 AND EMA13/C>1.03; 
MSQT2:=O<=REF(L,1) AND REF(O,1)/REF(C,1)>1.03; 
MSQT:= MSQT1 AND MSQT2; 
DRAWTEXT(MSQT,(O+C)/2,'馬失前蹄'),COLORYELLOW; 
{絕處逢生} 
JCFS1:=EMA55>EMA13 AND EMA13>C; 
JCFS2:=O<=REF(L,1) AND C/O>1.05; 
JCFS:= JCFS1 AND JCFS2; 
DRAWTEXT(JCFS,H,'絕處逢生'),COLORYELLOW; 
{一陰三線} 
YYSX1:=C<EMA13 AND O>EMA13;{一陰三線} 
YYSX2:=C<EMA34 AND O>EMA34; 
YYSX3:=C<EMA55 AND O>EMA55; 
YYYSX:=YYSX1 AND YYSX2 AND YYSX3; 
DRAWTEXT(YYYSX,H+0.1,'一陰三線'),COLORF00FF0; 
{落井下石} 
LJXS1:=O<REF(L,1) AND EMA13/EMA55>1.05 AND C<O; 
DRAWTEXT(LJXS1,H+0.01,'落井下石'),COLOR00C5FF; 
{晨鐘暮鼓} 
CZMG1:=REF(C,1)/REF(O,1)>1.05 AND REF(V,1)/REF(V,2)>2 AND HSL>3; 
CZMG2:=C>O AND V<REF(V,1); 
CZMG:=CZMG1 AND CZMG2; 
DRAWTEXT(CZMG,H,'晨鐘暮鼓'),COLORF00FF0;
EMA13:MA(C,13),COLORWHITE,LINETHICK2; 
EMA34:MA(C,34),COLORYELLOW; 
EMA55:MA(C,55),COLORFF00FF;

{見好就收} 
Y:=(EMA13-EMA55)/EMA13*100; 
JHJX:=REF(Y,1)<=10 AND Y>10; 
{DRAWICON(JHJX,H,1);} 
DRAWTEXT(JHJX,H,'見好就收'),COLORF00FF0; 
{紅杏出墻} 
HX1:=EMA13<EMA34 AND EMA34<EMA55;{股價長期下跌，并且遠離長期均線} 
HX2:=BARSLAST((C-EMA13)/EMA13*100<-6);{收盤價在13均線%6到現(xiàn)在的天數(shù)} 
HX3:=ABS(1-EMA55/REF(C,1))>0.1; 
HX6:=BARSLAST(CROSS(EMA55,EMA34))>=20;{13日均線下降趨于走平} 
HX4:=ABS(1-REF(EMA13,1)/EMA13)<0.004 AND C<EMA34; 
HX5:=REF(C,1)<EMA13 AND C>EMA13 AND C>O; 
HX7:=HX1 {AND HX3} AND HX4 AND HX5 ; 
HX8:=HX7 AND FILTER(HX7,10);{滿足后10天內(nèi)不標記} 
DRAWTEXT(HX8,L-0.05,'紅杏出墻'),COLORYELLOW; 
{螞蟻上樹} 
BR1:=COUNT(BETWEEN(((C-O)/O)*100,0,5) ,5)=5;{5日內(nèi)收盤價都比前日收盤價高} 
BR2:=(ABS(EMA13-EMA34)+ABS(EMA34-EMA55))/C<0.1;{主均線相距很近或基本持平} 
BR3:=C>EMA55 AND COUNT(L<EMA55,5)>=1;{股價送上55日均線} 
MYSS:=BR1 AND BR2 AND BR3; 
DRAWTEXT(MYSS AND FILTER(MYSS,5),H,'螞蟻上樹'),COLOR00C5FF; 
{黑客點擊} 
DJ1:=EMA13>EMA34 AND EMA34<EMA55;{13日均線大于34日均線，34日均線小于55日均線} 
DJ2:=O>EMA55;{開盤價大于55日均線} 
DJ3:=CROSS(EMA13,EMA55) OR ABS(1-EMA13/EMA55)<0.002; 
DJ4:=O>C AND C<REF(C,1); 
HKDJ:= DJ2 AND DJ3 AND DJ4; 
DRAWTEXT(HKDJ AND FILTER(HKDJ,10),L-0.03,'黑客點擊'),COLORD6BA63;

{紅衣俠女} 
XN1:=ABS(1-HHV(EMA55,5)/LLV(EMA55,5))<0.02; 
XN2:=CROSS(EMA13,EMA55) OR ABS(1-EMA13/EMA55)<0.002; 
XN3:=C>O AND V>REF(V,1) AND C>EMA55; 
HYXN:=XN1 AND XN2 AND XN3; 
DRAWTEXT(HYXN AND FILTER(HYXN,5),L-0.05,'紅衣俠女'),COLORF00FF0;

{海底撈月} 
LY1:=COUNT(ABS(1-EMA55/EMA34)<0.1,20)>=16; 
LY2:=COUNT(CROSS(EMA34,EMA13),40)>=1 AND COUNT(CROSS(EMA55,EMA13),40)>=1; 
LY3:=CROSS(EMA13,EMA55); 
HDLY:=LY1 AND LY2 AND LY3; 
DRAWTEXT(HDLY AND FILTER(HDLY,5),L-0.25,'海底撈月'),COLORGREEN;

{均線互換} 
JXHH:=BARSLAST(REF(CROSS(EMA55,EMA34),1)) AND CROSS(EMA34,EMA55); 
DRAWTEXT(JXHH,L+0.09,'均線互換'),COLOR0099FF; 
{梅開二度} 
MKED1:=BARSLAST(REF(CROSS(EMA34,EMA13),1)); 
MKED2:=COUNT(H>=EMA55,MKED1)=MKED1; 
MKED:=MKED2 AND CROSS(EMA13,EMA34); 
DRAWTEXT(MKED,L-0.1,'梅開二度'),COLOR0044FF; 
{一陽三線} 
YY1:=C>EMA13 AND O<EMA13; 
YY2:=C>EMA34 AND O<EMA34; 
YY3:=C>EMA55 AND O<EMA55; 
YYSX:=YY1 AND YY2 AND YY3; 
DRAWTEXT(YYSX,H+0.1,'一陽三線'),COLORRED;

{揭竿而起} 
MAX3:=MAX(MAX(EMA13,EMA34),EMA55); 
MIN3:=MIN(MIN(EMA13,EMA34),EMA55); 
JG1:=ABS(EMA13-EMA34)<C*0.05;{13線34線55線接近} 
JG2:=ABS(EMA34-EMA55)<C*0.05; 
JG3:=C>=O*1.03 AND C>MAX3;{陽線3％} 
JG4:=O>MIN3 AND O<MAX3; 
JG5:=C>REF(H,5); 
JG6:=(C-EMA34)/EMA34<=0.15;{控制價高} 
JG7:=V>MA(V,5) AND MA(V,10); 
JGEQ:=JG1 AND JG2 AND JG3 AND JG4 AND JG5 AND JG6 AND JG7; 
DRAWTEXT(JGEQ,H+0.1,'揭竿而起'),COLORGREEN;

{三線推進} 
MAX4:=MAX(MAX(MAX(EMA13,EMA34),EMA55),H); 
MIN4:=MIN(MIN(MIN(EMA13,EMA34),EMA55),L); 
SXTJ1:=HHV(MAX4,60); 
SXTJ2:=LLV(MIN4,60); 
SXTJ3:=EVERY(ABS(1-SXTJ1/SXTJ2)<0.3,20); 
SXTJ:=SXTJ3 AND (YYSX OR JGEQ); 
DRAWTEXT(SXTJ AND FILTER(SXTJ,10),H+0.25,'三線推進'),COLOR00C5FF;

{浪子回頭} 
LZ1:=REF(C,2)<REF(O,2) AND REF(C,1)<REF(O,1) AND C<O; 
LZ2:=C<=REF(C,1) AND REF(C,1)<=REF(C,2); 
LZ3:=MA(V,3)<REF(V,3); 
LZ4:=REF(C,3)>EMA13 AND (C>EMA55 OR ABS(1-C/EMA55)<0.01); 
LZHT:=LZ1 AND LZ2 AND LZ3 AND LZ4; 
DRAWTEXT(LZHT AND FILTER(LZHT,5),L-0.1,'浪子回頭'),COLOR00FF99;

{走四方} 
ZSF1:=REF(C,4)>REF(O,4) AND (REF(C,4)>EMA13 OR REF(C,4)>EMA34) AND (ABS(1-REF(EMA55,4)/EMA55)<0.01 OR MA(EMA55,4)>REF(EMA55,5)); 
ZSF2:=COUNT(ABS((1-REF(C,1)/C)*100)<3,4)=4 AND MA(V,4)<REF(V,4)*0.8; 
ZSF:=ZSF1 AND ZSF2; 
DRAWTEXT(ZSF AND FILTER(ZSF,4),L-0.1,'走四方'),COLORBLUE;

{一枝獨秀} 
YZ1:=C/O>1.01 AND H/C>1.025 ;{收陽有上影} 
YZ2:=EMA13>MAX(EMA34,EMA55) AND C>1.05*EMA13 AND O>MA(C,11);{昨收陽 今大于均線} 
YZDX:=YZ1 AND YZ2; 
DRAWTEXT(YZDX,(H+C)/2,'一枝獨秀'),COLORF00FF0;

{獨上高樓} 
DSGL1:=REF(C,1)>=REF(O,1); 
DSGL2:=O/REF(C,1)>1.029 AND O/C>1.03 AND O/MAX(EMA13,EMA55)>1.03; 
DSGL:=DSGL1 AND DSGL2; 
DRAWTEXT(DSGL,(O+C)/2,'獨上高樓'),COLORF00FF0;

{金屋藏嬌} 
JWCJ1:=C<O AND REF(C,1)<REF(O,1); 
JWCJ2:=O<=REF(C,1) AND L>=REF(L,1); 
JWCJ3:=REF(C,1)/REF(L,1)>1.02; 
JWCJ4:=EMA13<EMA34 OR EMA13<EMA55; 
JWCJ:=JWCJ1 AND JWCJ2 AND JWCJ3 AND JWCJ4; 
DRAWTEXT(JWCJ,LOW-0.2,'金屋藏嬌'),COLORYELLOW;

{日月合璧} 
RYHB1:=REF(O,1)<=REF(C,2) AND REF(C,1)<REF(O,1) AND ABS(1-REF(C,1)/REF(L,1))<0.02; 
RYHB2:=C>O AND ABS(1-C/REF(O,1))<0.025 AND ABS(1-O/REF(C,1))<0.025; 
RYHB3:=EMA13<REF(EMA13,1) OR ABS(1-EMA13/REF(EMA13,1))<0.01 AND (EMA13<EMA34 OR EMA13<EMA55); 
RYHB4:=REF(L,1)<=LLV(REF(L,1),10); 
RYHB:=RYHB1 AND RYHB2 AND RYHB3 AND RYHB4; 
DRAWTEXT(RYHB ,LOW,'日月合璧'),COLORYELLOW; 
{投石問路} 
TSWL1:=CROSS(EMA13,EMA34) AND EMA13<EMA55; 
DRAWTEXT(TSWL1,L-0.1,'投石問路'),COLOR0044FF; 
{分道揚鑣} 
FDYB:=CROSS(EMA34,EMA13) AND EMA34>EMA55; 
DRAWTEXT(FDYB,L-0.1,'分道揚鑣'),COLOR0044FF; 
{三軍集結(jié)} 
SJJJ3:=REF(EMA55,1)>REF(EMA13,1); 
SJJJ4:=ABS(1-(MAX(MAX(EMA34,EMA55),EMA13)/MIN(MIN(EMA13,EMA34),EMA55)))<0.005; 
SJJJ:=SJJJ3 AND SJJJ4; 
DRAWTEXT(SJJJ AND FILTER(SJJJ,5),L-0.1,'三軍集結(jié)'),COLOR0044FF; 
{突出重圍} 
TCCW1:=REF(EMA55,1)<REF(EMA13,1); 
TCCW2:=EMA13<LLV(REF(EMA13,1),5) AND ABS(1-(MAX(MAX(EMA34,EMA55),EMA13)/MIN(MIN(EMA13,EMA34),EMA55)))<0.008; 
TCCW:=TCCW1 AND TCCW2; 
DRAWTEXT(TCCW AND FILTER(TCCW,5),H+0.01,'突出重圍'),COLORF00FF0; 
{明修棧道} 
MXZD1:=C/O>1.07; 
MXZD2:=EMA13>HHV(REF(EMA13,1),5) AND V>HHV(REF(V,1),10) AND V/MA(REF(V,1),5)>2; 
MXZD:=MXZD1 AND MXZD2; 
DRAWTEXT(MXZD,H+0.01,'明修棧道'),COLORF00FF0; 
{暗度陳倉} 
ADCC1:=O/C>1.05 AND EMA13/EMA55<1.1 AND EMA13>MA(EMA13,5); 
ADCC2:=O/REF(C,1)<1.03;{V<HHV(REF(V,1),5) AND V/MA(REF(V,1),5)<2}; 
ADCC:=ADCC1 AND ADCC2; 
DRAWTEXT(ADCC,(C+O)/2,'暗度陳倉'),COLOR00C5FF; 
{破鏡重圓} 
PJCY1:=REF(O,1)/REF(C,1)>1.02; 
PJCY2:=O<=REF(C,1) AND C>=REF(O,1); 
PJCY3:=(ABS(1-REF(C,1)/EMA55)<0.05 OR ABS(1-C/EMA55)<0.05 OR ABS(1-MA(C,2)/EMA55)<0.05); 
PJCY4:=EMA13>EMA55 OR EMA13>MA(EMA13,5); 
PJCY:=PJCY1 AND PJCY2 AND PJCY3 AND PJCY4; 
DRAWTEXT(PJCY,LOW,'破鏡重圓'),COLORYELLOW; 
{一石二鳥} 
YSEN1:=REF(C,2)>REF(O,2) AND REF(C,1)<REF(O,1) AND C<O; 
YSEN2:=REF(C,2)>EMA55 AND EMA13>EMA55 AND EMA13>=MA(EMA13,5); 
YSEN3:=REF(V,2)>REF(V,1) AND REF(V,2)>V; 
YSEN:=YSEN1 AND YSEN2 AND YSEN3; 
DRAWTEXT(YSEN,H+0.01,'一石二鳥'),COLORBLUE; 
{拖泥帶水} 
TNDS1:=O/REF(C,1)>1.05 AND MIN(C,O)/L>1.03; 
TNDS2:=C/MAX(EMA13,EMA55)>1.03 AND C>REF(C,1); 
TNDS:=TNDS1 AND TNDS2; 
DRAWTEXT(TNDS,(O+C)/2,'拖泥帶水'),COLORF00FF0; 
{金蟬脫殼} 
JCTQ1:=C<O AND (EMA13/EMA55>1.1 OR (C/MIN(EMA13,EMA55)>1.1)) AND EMA13>MA(EMA13,5); 
JCTQ2:=REF(O,1)>=REF(C,2) AND REF(C,1)>REF(O,1) AND O<=REF(C,1) AND C>REF(O,1); 
JCTQ:=JCTQ1 AND JCTQ2; 
DRAWTEXT(JCTQ,(O+C)/2,'金蟬脫殼'),COLORF00FF0; 
{一箭穿心} 
YJCX:=CROSS(EMA55,EMA13); 
DRAWTEXT(YJCX,L-0.1,'一箭穿心'),COLOR0044FF; 
{步步高} 
BBG1:=C>=REF(C,1) AND REF(C,1)>=REF(C,2);{3日內(nèi)收盤價都比前日收盤價高} 
BBG2:=V>=REF(V,1) AND REF(V,1)>=REF(V,2);{3日內(nèi)量都比前日量高} 
BBG3:=COUNT(C>=O,3)=3; 
BBG:=BBG1 AND BBG2 AND BBG3; 
DRAWTEXT(BBG AND FILTER(BBG,3),(C+O)/2,'步步高'),COLORFF00FF; 
{雙飛燕} 
SFY1:=EMA13>EMA34 AND EMA34>EMA55; 
SFY2:=REF(O,1)>=REF(C,2) AND O>=REF(C,1) AND REF(C,2)>=REF(O,2); 
SFY3:=COUNT(C>O AND C/O<1.02,2)=2 OR COUNT(C<O AND O/C<1.02,2)=2; 
SFY4:= V<REF(V,1); 
SFY:=SFY1 AND SFY2 AND SFY3 AND SFY4; 
DRAWTEXT(SFY AND FILTER(SFY,2),L,'雙飛燕'),COLORYELLOW; 
{三劍客} 
SJK1:=EMA13>EMA34 AND EMA34>EMA55; 
SJK2:=COUNT(C<=O AND O/C<1.03,3)=3 AND COUNT(ABS(1-REF(C,1)/C)<1.03,2)=2; 
SJK:=SJK1 AND SJK2; 
DRAWTEXT(SJK AND FILTER(SJK,3),L,'三劍客'),COLORYELLOW; 
{四星望月} 
SXWY1:=COUNT(C>=O AND C/O<1.03,4)=4; 
SXWY2:=(ABS(EMA13-EMA34)+ABS(EMA34-EMA55))/C<0.1;{主均線相距很近或基本持平} 
SXWY3:=EMA13<EMA55; 
SXWY:=SXWY1 AND SXWY2 AND SXWY3; 
DRAWTEXT(SXWY AND FILTER(SXWY,5),H,'四星望月'),COLOR00C5FF; 
{星星點燈} 
XXDD1:=ABS(1-C/O)*100<=2.5 AND H/MAX(C,O)>1.03 AND REF(C,1)/REF(O,1)>1.05; 
XXDD2:=O>=REF(C,1) AND ABS(1-REF(EMA13,1)/EMA55)<0.1}; 
XXDD:=XXDD1 AND XXDD2; 
DRAWTEXT(XXDD,(O+C)/2,'星星點燈'),COLORGREEN; 
{過河拆橋} 
GHCQ1:=C<O AND O/C>=1.04; 
GHCQ2:=O>EMA13 AND C<EMA13; 
GHCQ3:=EMA13/EMA55>1.1 AND ABS(1-EMA13/MA(EMA13,3))<0.02; 
GHCQ:=GHCQ1 AND GHCQ2 AND GHCQ3; 
DRAWTEXT(GHCQ,(O+C)/2,'過河拆橋'),COLORF00FF0; 
{狗急跳墻} 
GJTQ1:=O/REF(C,1)>1.02 AND L>REF(C,1); 
GJTQ2:=V>MA(V,5); 
GJTQ3:=EMA13/EMA55>1.1; 
GJTQ:=GJTQ1 AND GJTQ2 AND GJTQ3; 
DRAWTEXT(GJTQ,(O+C)/2,'狗急跳墻'),COLORF00FF0; 
{雙蹄并進} 
STBJ1:=CROSS(DMI.PDI,DMI.MDI); 
STBJ2:=ABS(1-DMI.ADX/DMI.ADXR)<0.1; 
STBJ:=STBJ1 AND STBJ2; 
DRAWTEXT(STBJ,(O+C)/2,'雙蹄并進'),COLORGREEN; 
{一劍封喉} 
YJFH1:=REF(C,1)>=REF(O,1); 
YJFH2:=H/MAX(C,O)>=1.035 ; 
YJFH3:=V/MA(REF(V,1),11)>3 AND EMA13/EMA55>1.05; 
YJFH:=YJFH1 AND YJFH2 AND YJFH3; 
DRAWTEXT(YJFH,(H+L)/2,'一劍封喉'),COLORF00FF0; 
{小鳥依人} 
XNYR1:=REF(C,1)/REF(O,1)>1.05; 
XNYR2:=O<=REF(C,1) AND ABS(1-C/O)<0.02; 
XNYR3:=COUNT(JGEQ OR YYSX OR HYXN,10)>=1 AND COUNT(JGEQ OR YYSX OR HYXN,2)=0; 
XNYR:=XNYR1 AND XNYR2 AND XNYR3; 
DRAWTEXT(XNYR,H+0.01,'小鳥依人'),COLORBLUE; 
{立竿見影} 
LGJY1:=O<=REF(C,1) AND V<REF(V,1) AND C<O; 
LGJY2:=COUNT(JGEQ OR YYSX OR HYXN,2)=1; 
LGJY:=LGJY1 AND LGJY2; 
DRAWTEXT(LGJY,H+0.1,'立竿見影'),COLORBLUE; 
{節(jié)外生枝} 
JWSZ1:=EMA13>MAX(EMA34,EMA55) AND EMA13/EMA55>1.1 AND REF(C,1)>1.04*EMA13 AND REF(C,1)/REF(O,1)>1.04; 
JWSZ2:=ABS(1-C/O)<0.015 AND ABS(1-REF(C,1)/C)<0.02; 
JWSZ:=JWSZ1 AND JWSZ2; 
DRAWTEXT(JWSZ,(H+C)/2,'節(jié)外生枝'),COLORF00FF0; 
{笑里藏刀} 
XLCD1:=REF(H,1)/MAX(REF(C,1),REF(O,1))>1.04; 
XLCD2:=H<REF(H,1) AND O>=REF(C,1); 
XLCD3:=EMA13/EMA55>1.05 AND C/EMA13>1.03; 
XLCD:=XLCD1 AND XLCD2 AND XLCD3; 
DRAWTEXT(XLCD,(O+C)/2,'笑里藏刀'),COLORF00FF0; 
{馬失前蹄} 
MSQT1:=EMA55/EMA13>1.04 AND EMA13/C>1.03; 
MSQT2:=O<=REF(L,1) AND REF(O,1)/REF(C,1)>1.03; 
MSQT:= MSQT1 AND MSQT2; 
DRAWTEXT(MSQT,(O+C)/2,'馬失前蹄'),COLORYELLOW; 
{絕處逢生} 
JCFS1:=EMA55>EMA13 AND EMA13>C; 
JCFS2:=O<=REF(L,1) AND C/O>1.05; 
JCFS:= JCFS1 AND JCFS2; 
DRAWTEXT(JCFS,H,'絕處逢生'),COLORYELLOW; 
{一陰三線} 
YYSX1:=C<EMA13 AND O>EMA13;{一陰三線} 
YYSX2:=C<EMA34 AND O>EMA34; 
YYSX3:=C<EMA55 AND O>EMA55; 
YYYSX:=YYSX1 AND YYSX2 AND YYSX3; 
DRAWTEXT(YYYSX,H+0.1,'一陰三線'),COLORF00FF0; 
{落井下石} 
LJXS1:=O<REF(L,1) AND EMA13/EMA55>1.05 AND C<O; 
DRAWTEXT(LJXS1,H+0.01,'落井下石'),COLOR00C5FF; 
{晨鐘暮鼓} 
CZMG1:=REF(C,1)/REF(O,1)>1.05 AND REF(V,1)/REF(V,2)>2 AND HSL>3; 
CZMG2:=C>O AND V<REF(V,1); 
CZMG:=CZMG1 AND CZMG2; 
DRAWTEXT(CZMG,H,'晨鐘暮鼓'),COLORF00FF0;