我自己学股票也是从缠论的顶底分型开始的，我学了很多年指标技术，但是最终才发现只有缠论才能仔细把股票市场解释清楚。从原著再看微博，再到实践，这么多年我虽然一直在做价值投资，但是买卖点还是在用缠论的理论。最近编写了一点缠论的选股，希望对大家有帮助1、缠论第三类买点选股指标公式 LS:=50; A1:=HHV(H,LS*0.7){TUFENDOU}; A2:=HHV(H,LS*4){TUFENDOU}; A3:=REF(HHV(H,LS*4),LS*0.7){TUFENDOU}; A4:=LLV(L,LS/10){TUFENDOU}; 选股:{TUFENDOU}A1=A2 AND A1>=A3*1.2 AND A4>A3; 2、缠论分型笔线段主图指标公式 MA5:MA(CLOSE,5) COLORWHITE,LINETHICK2; MA10:MA(CLOSE,10) COLORMAGENTA,LINETHICK1; MA20:MA(CLOSE,20) COLORBLUE,LINETHICK1; MA60:MA(CLOSE,60) COLORYELLOW,LINETHICK2; MA250:MA(CLOSE,250) COLORRED, LINETHICK1; 老笔:=0; G:=MA(C,5);D:=MA(C,10); HH:=REF(H,5)=HHV(H,11); LL:=REF(L,5)=LLV(L,11); FG01:=BACKSET(HH,6)>BACKSET(HH,5) ; FD01:=BACKSET(LL,6)>BACKSET(LL,5) ; FG02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND G>D,FG01, IF(BARSLAST(FD01)>BARSLAST(FG01),FG01,0)); FD02:=IF(BARSLAST(FG01)=BARSLAST(FD01) AND D>G,FD01, IF(BARSLAST(FG01)>BARSLAST(FD01),FD01,0)); FG0:=FG02 AND H=HHV(H,BARSLAST(FD02)); FD0:=FD02 AND L=LLV(L,BARSLAST(FG02)); GP:IF(FG0,H,DRAWNULL),CIRCLEDOT,COLORCYAN; DP:IF(FD0,L,DRAWNULL),CIRCLEDOT,COLORCYAN; GQ:=L>REF(H,1) AND DAY!=REF(DAY,1); DQ:=H GQL:=REF(L,BARSLAST(GQ)); DQH:=REF(H,BARSLAST(DQ)); FGH:=REF(H,BARSLAST(FG0)); FGL:=REF(L,BARSLAST(FG0)); FGH1:=REF(H,BARSLAST(FG0)+1); FGL1:=REF(L,BARSLAST(FG0)+1); FGH2:=REF(H,BARSLAST(FG0)+2); FGL2:=REF(L,BARSLAST(FG0)+2); FDH:=REF(H,BARSLAST(FD0)); FDL:=REF(L,BARSLAST(FD0)); FDH1:=REF(H,BARSLAST(FD0)+1); FDL1:=REF(L,BARSLAST(FD0)+1); FDH2:=REF(H,BARSLAST(FD0)+2); FDL2:=REF(L,BARSLAST(FD0)+2); FGZH:=IF(FGL<> FGZL:=IF(FGH1<><> FDZH:=IF(FDL1>FDH,FDH,IF(FDH>=FDH1,FDH2,FDH1)); FDZL:=IF(FDH>=FDH1,FDL2,FDL1); FG1:=FGH>FDZH AND FG0; FD1:=FDL FG:=FG1 AND FGH>FDH AND FGL>FDL AND FGL1>FDL; FD:=FD1 AND FDL BH0:=(H<=ref(h,1) and="" l="">=REF(L,1)) OR (H>=REF(H,1) AND L<> BHG:=COUNT(BH0,BARSLAST(FD0)); BHD:=COUNT(BH0,BARSLAST(FG0)); BGQ:=COUNT(GQ,BARSLAST(FD0)); BDQ:=COUNT(DQ,BARSLAST(FG0)); BK0:=IF(BHG>0,BHG+2+老笔,IF(BHD,BHD+2+老笔,3)); BK:=IF(BGQ,BK0-BGQ,IF(BDQ,BK0-BDQ,BK0)); G1X:=(FG AND BARSLAST(FD)>BK); D1X:=(FD AND BARSLAST(FG)>BK); G1:=(FG0 AND REF(H,BARSLAST(FG0))>=REF(H,BARSLAST(G1X)) AND BARSLAST(D1X)>BARSLAST(G1X)) OR (FG1 AND COUNT(GQ,BARSLAST(FD1))>0 AND REF(H,BARSLAST(FG1))>REF(H,BARSLAST(G1X))); D1:=(FD0 AND REF(L,BARSLAST(FD0))<=ref(l,barslast(d1x)) and="" barslast(g1x)="">BARSLAST(D1X)) OR (FD1 AND COUNT(DQ,BARSLAST(FG1))>0 AND REF(L,BARSLAST(FD1))<> G1H:=IF(BARSLAST(D1)>BARSLAST(G1),REF(H,BARSLAST(G1)),REF(H,BARSLAST(D1))),; D1L:=IF(BARSLAST(G1)>BARSLAST(D1),REF(L,BARSLAST(D1)),REF(L,BARSLAST(G1))); G2:=G1 AND H=HHV(G1H,BARSLAST(D1)+1) AND H>REF(H,1) AND BARSLAST(D1)>BARSLAST(G1); D2:=D1 AND L=LLV(D1L,BARSLAST(G1)+1) AND L G3:=G2 OR (FG0 AND REF(H,BARSLAST(FG0))>REF(H,BARSLAST(G2)) AND BARSLAST(D2)>BARSLAST(G2)); D3:=D2 OR (FD0 AND REF(L,BARSLAST(FD0)) GPB:IF(G1X,H,DRAWNULL),CIRCLEDOT,COLORYELLOW; DPB:IF(D1X,L,DRAWNULL),CIRCLEDOT,COLORYELLOW; DRAWICON(CROSS(MA20,MA60),MA60*0.98,9); DIF:=MA(CLOSE,5)-MA(CLOSE,89); DIFMA:=MA(DIF,36); XG:=CROSS(DIF,DIFMA) AND DIF<> DRAWICON(XG,H*1.03,23); {画线} NN:=G3;UU:=D3; L1:DRAWLINE(UU,L,NN, H,0),COLORLIGREEN;L2:DRAWLINE(NN,H,UU, L,0),COLORLIGREEN; {标示端点数值} DRAWNUMBER(L1 AND L2 AND NN ,H,H),COLORLIRED;DRAWNUMBER(L1 AND L2 AND UU ,L,L),COLORLIMAGENTA; {折扣价} DRAWICON(CURRBARSCOUNT=6,LOW*0.98,24); DRAWNUMBER(CURRBARSCOUNT=6,LOW*0.96,C); DRAWICON(CURRBARSCOUNT=11,LOW*0.98,25); DRAWNUMBER(CURRBARSCOUNT=11,LOW*0.96,C); DRAWICON(CURRBARSCOUNT=21,LOW*0.98,26); DRAWNUMBER(CURRBARSCOUNT=21,LOW*0.96,C); DRAWICON(CURRBARSCOUNT=61,LOW*0.98,27); DRAWNUMBER(CURRBARSCOUNT=61,LOW*0.96,C); DRAWICON(CURRBARSCOUNT=121,LOW*0.98,18); DRAWNUMBER(CURRBARSCOUNT=121,LOW*0.96,C); {量能平台} N250:=250; PT250:=CONST(HHVBARS(V,N250)); T250:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT250+1,T250,DRAWNULL),CIRCLEDOT,COLORFF0000,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N250,T250,'250'),COLOR990000; N120:=120; PT120:=CONST(HHVBARS(V,N120)); T120:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT120+1,T120,DRAWNULL),CIRCLEDOT,COLORFFFF00,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N120,T120,'120'),COLORAAAA00; N60:=60; PT60:=CONST(HHVBARS(V,N60)); T60:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT60+1,T60,DRAWNULL),CIRCLEDOT,COLOR00FF00,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N60,T60,'60'),COLOR00BB00; N30:=30; PT30:=CONST(HHVBARS(V,N30)); T30:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT30+1,T30,DRAWNULL),CIRCLEDOT,COLOR0000FF,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N30,T30,'30'),COLOR0000CC; N20:=20; PT20:=CONST(HHVBARS(V,N20)); T20:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT20+1,T20,DRAWNULL),CIRCLEDOT,COLORFF00FF,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N20,T20,'20'),COLORDD00DD; N10:=10; PT10:=CONST(HHVBARS(V,N10)); T10:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT10+1,T10,DRAWNULL),CIRCLEDOT,COLOR00FFFF,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N10,T10,'10'),COLOR00EEEE; N5:=5; PT5:=CONST(HHVBARS(V,N5)); T5:IF(CURRBARSCOUNT<> IF(CURRBARSCOUNT=PT5+1,T5,DRAWNULL),CIRCLEDOT,COLORFFFFFF,LINETHICK2; DRAWTEXT(CURRBARSCOUNT=N5,T5,'5'),COLORFFFFFF; ND:=10; PTD:=CONST(LLVBARS(V,ND)); TDPX:IF(CURRBARSCOUNT<=nd,const(if(ptd=0,o,ref(o,ptd))),drawnull),> IF(CURRBARSCOUNT=PTD+1,TDPX,DRAWNULL),CIRCLEDOT, COLOR9370DB,LINETHICK2; DRAWTEXT(ISLASTBAR,TDPX,' 地平线10'), COLOR9370DB; 3、缠论背驰指标公式 DIFF:EMA(CLOSE,12)-EMA(CLOSE,27); DEA:EMA(DIFF,9); MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK2; 低位金叉:=CROSS(DIFF,DEA) AND DIFF<> STICKLINE(低位金叉,0,0.08,6,0),coloryellow; DRAWTEXT(低位金叉,0.16,' 低位金叉'),colorwhite; JCCOUNT:=COUNT(CROSS(DIFF,DEA),BARSLAST(DEA>=0)); 二次金叉:=CROSS(DIFF,DEA) AND DEA<0 and="" count(jccount=""> STICKLINE(二次金叉,0,0.06,6,0),COLORFF00FF; DRAWICON(二次金叉,DEA*0.9,1) ; DRAWTEXT(二次金叉,0.2,' 二次金叉'),coloryellow; A1:=BARSLAST(REF(CROSS(DIFF,DEA),1)); 底背离:=REF(CLOSE,A1+1)>CLOSE AND DIFF>REF(DIFF,A1+1) AND CROSS(DIFF,DEA); STICKLINE(底背离,0,0.03,6,0),COLOR00FF00; 底背:DRAWLINE(A1=0,DEA,底背离,DEA,0),colorred,LINETHICK4; DRAWTEXT(底背离,0.12,' 底背离'),COLORFF00FF; A2:=BARSLAST(REF(CROSS(DEA,DIFF),1)); 顶背离:=REF(CLOSE,A2+1) 顶背:DRAWLINE(A2=0,DEA,顶背离,DEA,0),colorgreen,LINETHICK4; DRAWTEXT(低位金叉 AND 二次金叉 AND 底背离,0.25,'三全项'),COLOR0000FF,LINETHICK2; |
|
|
