<DIV class=tpc_content>以MACD为基楚，显示MACD、KDJ、DMI、RSI顶底背离<BR><BR>{背离MACD飞弧}<BR><BR>DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;<BR>DEA :EMA(DIFF,9),COLORGREEN;<BR>MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK0;<BR>TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);<BR>HD := HIGH-REF(HIGH,1);<BR>LD := REF(LOW,1)-LOW;<BR>PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14);<BR>MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);<BR>PDI:= PDM*100/TR;<BR>MDI:= MDM*100/TR;<BR><BR>A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));<BR>B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);<BR>A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));<BR>B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");<BR>A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));<BR>B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");<BR>C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));<BR>D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);<BR>C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));<BR>D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));<BR>C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));<BR>D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");<BR>C4:=BARSLAST(ref(cross(mdi,pdi),1));<BR>D4:=ref(c,C+1)<c and ref(mdi,C4+1)>mdi and cross(mdi,pdi);<BR>A4:=BARSLAST(ref(cross(PDI,MDI),1));<BR>B4:=ref(c,A4+1)>c and ref(pdi,A4+1)<pdi and cross(pdi,mdi);<BR>MACD底▲:if(FILTER(B1>0,5),0.1,0),colorred,LINETHICK0;<BR>MACD顶▼:if(FILTER(D1>0,5),-0.1,0),color00ff00,LINETHICK0;<BR>KDJ底△:if(FILTER(B2>0,5),0.1,0),colorff00ff,LINETHICK0;<BR>KDJ顶▽:if(FILTER(D2>0,5),-0.1,0),colorffcc66,LINETHICK0;<BR>DMI底∧:IF(FILTER(D4>0,5),-0.1,0),COLOR0099FF,LINETHICK0;<BR>DMI顶∨:IF(D4>0,-0.1,0),COLORBLUE,LINETHICK0;<BR>RSI底↑:if(FILTER(B3>0,5),0.1,0),coloryellow,LINETHICK0;<BR>RSI顶↓:if(FILTER(D3>0,5),-0.1,0),ColorFF6AAD,LINETHICK0;<BR>DRAWTEXT(FILTER(B1>0,5),0.45,'▲'),colorred;//MACD底背离<BR>DRAWTEXT(FILTER(D1>0,5),-0.45,'▼'),color00ff00;//MACD顶背离<BR>DRAWTEXT(FILTER(B2>0,5),0.45,'△'),colorff00ff;//KDJ底背离<BR>DRAWTEXT(FILTER(D2>0,5),-0.45,'▽'),colorffcc66;//KDJ顶背离<BR>DRAWTEXT(FILTER(B4>0,5),0.45,'∧'),COLOR0099FF;//DMI底背<BR>DRAWTEXT(FILTER(D4>0,5),-0.45,'∨'),COLORBLUE;//DMI顶背<BR>DRAWTEXT(FILTER(B3>0,5),0.45,'↑'),coloryellow;//RSI底背离<BR>DRAWTEXT(FILTER(D3>0,5),-0.45,'↓'),ColorFF6AAD;//RSI顶背离<BR>STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1,0),colorgreen;<BR>STICKLINE(MACD<ref(MACD,1)and MACD<0,0,MACD,1,0),colorFFCC33;<BR>STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1,0),COLORyellow; <BR>STICKLINE(MACD>ref(MACD,1)and MACD>0,0,MACD,1,0),COLORmagenta;<BR><BR>PARTLINE(DIFF>DEA,DIFF),COLORff11cc,LINETHICK2;<BR>PARTLINE(DIFF>DEA AND DIFF<0,DIFF),COLORred,LINETHICK2;<BR>DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,10);<BR>DRAWICON(CROSS(DEA,DIFF),DIFF,12);<BR>DD1:=EMA(C,3)-EMA(C,15);<BR>DD2:=EMA(O,3)-EMA(O,15);<BR>DD3:=EMA(H,3)-EMA(H,15);<BR>DD4:=EMA(L,3)-EMA(L,15);<BR>DRAWICON(cross(dd1,diff) and diff<-0.05 ,dd4-0.1,4);<BR>DRAWICON(cross(diff,dd1) and diff>0.1 ,dd3+0.1,5);<BR>STICKLINE(DD1>=DD2,DD1,DD2,8,0),COLOR0055AA;<BR>STICKLINE(DD1<=DD2,DD1,DD2,8,0),COLOR006600;<BR>STICKLINE(DD1>=DD2,DD1,DD2,5,0),COLOR0077CC;<BR>STICKLINE(DD1>=DD2,DD1,DD2,3,0),COLOR0099DD;<BR>STICKLINE(DD1>=DD2,DD3,DD4,0,0),COLOR00BBFF;<BR>STICKLINE(DD1<=DD2,DD1,DD2,5,0),COLOR009900;<BR>STICKLINE(DD1<=DD2,DD1,DD2,3,0),COLOR00BB00;<BR>STICKLINE(DD1<=DD2,DD3,DD4,0,0),COLOR00EE00;<BR><BR>----------------------------------------------------------------------<BR><BR>{背离MACD分析家<BR><BR>DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;<BR>DEA :EMA(DIFF,9),COLORGREEN;<BR>MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK0;<BR>TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);<BR>HD := HIGH-REF(HIGH,1);<BR>LD := REF(LOW,1)-LOW;<BR>PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14);<BR>MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);<BR>PDI:= PDM*100/TR;<BR>MDI:= MDM*100/TR;<BR><BR>A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));<BR>B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);<BR>A2:=BARSLAST(REF(CROSS("KDJ.K","KDJ.D"),1));<BR>B2:=REF(C,A2+1)>C AND REF("KDJ.K",A2+1)<"KDJ.K" AND CROSS("KDJ.K","KDJ.D");<BR>A3:=BARSLAST(REF(CROSS("RSI.RSI1","RSI.RSI2"),1));<BR>B3:=REF(C,A3+1)>C AND REF("RSI.RSI1",A3+1)<"RSI.RSI1" AND CROSS("RSI.RSI1","RSI.RSI2");<BR>C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));<BR>D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);<BR>C2:=BARSLAST(REF(CROSS("KDJ.D","KDJ.K"),1));<BR>D2:=REF(C,C2+1)<C AND REF("KDJ.K",C2+1)>"KDJ.K" AND CROSS("KDJ.D","KDJ.K");C3:=BARSLAST(ref(cross("RSI.RSI2"(6,12,24),"RSI.RSI1"(6,12,24)),1));<BR>C3:=BARSLAST(REF(CROSS("RSI.RSI2","RSI.RSI1"),1));<BR>D3:=REF(C,C3+1)<C AND REF("RSI.RSI1",C3+1)>"RSI.RSI1" AND CROSS("RSI.RSI2","RSI.RSI1");<BR>C4:=BARSLAST(ref(cross(mdi,pdi),1));<BR>D4:=ref(c,C+1)<c and ref(mdi,C4+1)>mdi and cross(mdi,pdi);<BR>A4:=BARSLAST(ref(cross(PDI,MDI),1));<BR>B4:=ref(c,A4+1)>c and ref(pdi,A4+1)<pdi and cross(pdi,mdi);<BR>Ｍ底▲:if(FILTER(B1>0,5),0.1,0),colorred,LINETHICK0;<BR>Ｍ顶▼:if(FILTER(D1>0,5),-0.1,0),color00ff00,LINETHICK0;<BR>Ｋ底△:if(FILTER(B2>0,5),0.1,0),colorff00ff,LINETHICK0;<BR>Ｋ顶▽:if(FILTER(D2>0,5),-0.1,0),colorffcc66,LINETHICK0;<BR>Ｄ底∧:IF(FILTER(D4>0,5),-0.1,0),COLOR0099FF,LINETHICK0;<BR>Ｄ顶∨:IF(D4>0,-0.1,0),COLORBLUE,LINETHICK0;<BR>Ｒ底↑:if(FILTER(B3>0,5),0.1,0),coloryellow,LINETHICK0;<BR>Ｒ顶↓:if(FILTER(D3>0,5),-0.1,0),ColorFF6AAD,LINETHICK0;<BR>DRAWTEXT(FILTER(B1>0,5),0.45,'▲'),colorred;<BR>DRAWTEXT(FILTER(D1>0,5),-0.45,'▼'),color00ff00;<BR>DRAWTEXT(FILTER(B2>0,5),0.45,'△'),colorff00ff;<BR>DRAWTEXT(FILTER(D2>0,5),-0.45,'▽'),colorffcc66;<BR>DRAWTEXT(FILTER(B4>0,5),0.45,'∧'),COLOR0099FF;<BR>DRAWTEXT(FILTER(D4>0,5),-0.45,'∨'),COLORBLUE;<BR>DRAWTEXT(FILTER(B3>0,5),0.45,'↑'),coloryellow;<BR>DRAWTEXT(FILTER(D3>0,5),-0.45,'↓'),ColorFF6AAD;<BR>STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1,0),colorgreen;<BR>STICKLINE(MACD<ref(MACD,1)and MACD<0,0,MACD,1,0),colorFFCC33;<BR>STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1,0),COLORyellow; <BR>STICKLINE(MACD>ref(MACD,1)and MACD>0,0,MACD,1,0),COLORmagenta;<BR><BR>PARTLINE(DIFF,DIFF>DEA),COLORff11cc,LINETHICK2;<BR>PARTLINE(DIFF,DIFF>DEA AND DIFF<0),COLORred,LINETHICK2;<BR>DRAWICON(CROSS(DIFF,DEA),DIFF-0.01,9);<BR>DRAWICON(CROSS(DEA,DIFF),DIFF,10);<BR>DD1:=EMA(C,3)-EMA(C,15);<BR>DD2:=EMA(O,3)-EMA(O,15);<BR>DD3:=EMA(H,3)-EMA(H,15);<BR>DD4:=EMA(L,3)-EMA(L,15);<BR>DRAWICON(cross(dd1,diff) and diff<-0.05 ,dd4-0.1,4);<BR>DRAWICON(cross(diff,dd1) and diff>0.1 ,dd3+0.1,5);<BR>STICKLINE(DD1>=DD2,DD1,DD2,8,0),COLOR0055AA;<BR>STICKLINE(DD1<=DD2,DD1,DD2,8,0),COLOR006600;<BR>STICKLINE(DD1>=DD2,DD1,DD2,5,0),COLOR0077CC;<BR>STICKLINE(DD1>=DD2,DD1,DD2,3,0),COLOR0099DD;<BR>STICKLINE(DD1>=DD2,DD3,DD4,0,0),COLOR00BBFF;<BR>STICKLINE(DD1<=DD2,DD1,DD2,5,0),COLOR009900;<BR>STICKLINE(DD1<=DD2,DD1,DD2,3,0),COLOR00BB00;<BR>STICKLINE(DD1<=DD2,DD3,DD4,0,0),COLOR00EE00;<BR>0.5,Color0000BC,pointdot;<BR>-0.5,Color0000BC,pointdot;<BR><BR>--------------------------------------------------------------<BR><BR>{背离MACD大智慧}<BR><BR>DIFF:EMA(CLOSE,12) - EMA(CLOSE,26),COLORYELLOW,LINETHICK2;<BR>DEA :EMA(DIFF,9),COLORGREEN,LINETHICK2;<BR>MACD:2*(DIFF-DEA), COLORSTICK,LINETHICK0;<BR>TR := SUM(MAX(MAX(HIGH-LOW,ABS(HIGH-REF(CLOSE,1))),ABS(LOW-REF(CLOSE,1))),14);<BR>HD := HIGH-REF(HIGH,1);<BR>LD := REF(LOW,1)-LOW;<BR>PDM:= SUM(IF(HD>0 AND HD>LD,HD,0),14);<BR>MDM:= SUM(IF(LD>0 AND LD>HD,LD,0),14);<BR>PDI:= PDM*100/TR;<BR>MDI:= MDM*100/TR;<BR>RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;<BR>K:=SMA(RSV,3,1);<BR>D:=SMA(K,3,1);<BR>J:=3*K-2*D ;<BR>LC := REF(CLOSE,1);<BR>RSI1:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100;<BR>RSI2:=SMA(MAX(CLOSE-LC,0),12,1)/SMA(ABS(CLOSE-LC),12,1)*100;<BR>RSI3:=SMA(MAX(CLOSE-LC,0),24,1)/SMA(ABS(CLOSE-LC),24,1)*100;<BR>A1:=BARSLAST(REF(CROSS(DIFF,DEA),1));<BR>B1:=REF(C,A1+1)>C AND REF(DIFF,A1+1)<DIFF AND CROSS(DIFF,DEA);<BR>A2:=BARSLAST(REF(CROSS(K,D),1));<BR>B2:=REF(C,A2+1)>C AND REF(K,A2+1)<K AND CROSS(K,D);<BR>A3:=BARSLAST(REF(CROSS(RSI1,RSI2),1));<BR>B3:=REF(C,A3+1)>C AND REF(RSI1,A3+1)<RSI1 AND CROSS(RSI1,RSI2);<BR>C1:=BARSLAST(REF(CROSS(DEA,DIFF),1));<BR>D1:=REF(C,C1+1)<C AND REF(DIFF,C1+1)>DIFF AND CROSS(DEA,DIFF);<BR>C2:=BARSLAST(REF(CROSS(D,K),1));<BR>D2:=REF(C,C2+1)<C AND REF(K,C2+1)>K AND CROSS(D,K);<BR>C3:=BARSLAST(ref(cross(RSI2,RSI1),1));<BR>D3:=REF(C,C3+1)<C AND REF(RSI1,C3+1)>RSI1 AND CROSS(RSI2,RSI1);<BR>C4:=BARSLAST(ref(cross(mdi,pdi),1));<BR>D4:=ref(c,C+1)<c and ref(mdi,C4+1)>mdi and cross(mdi,pdi);<BR>A4:=BARSLAST(ref(cross(PDI,MDI),1));<BR>B4:=ref(c,A4+1)>c and ref(pdi,A4+1)<pdi and cross(pdi,mdi);<BR>M底▲:if(FILTER(B1>0,5),0.1,0),colorred,pointdot;<BR>M顶▼:if(FILTER(D1>0,5),-0.1,0),color00ff00,pointdot;<BR>K底△:if(FILTER(B2>0,5),0.1,0),colorff00ff,pointdot;<BR>K顶▽:if(FILTER(D2>0,5),-0.1,0),colorffcc66,pointdot;<BR>D底∧:IF(FILTER(D4>0,5),-0.1,0),COLOR0099FF,pointdot;<BR>D顶∨:IF(D4>0,-0.1,0),COLORBLUE,pointdot;<BR>R底↑:if(FILTER(B3>0,5),0.1,0),coloryellow,pointdot;<BR>R顶↓:if(FILTER(D3>0,5),-0.1,0),ColorFF6AAD,pointdot;<BR>DRAWTEXT(FILTER(B1>0,5),0.45,'▲'),colorred;<BR>DRAWTEXT(FILTER(D1>0,5),-0.45,'▼'),color00ff00;<BR>DRAWTEXT(FILTER(B2>0,5),0.45,'△'),colorff00ff;<BR>DRAWTEXT(FILTER(D2>0,5),-0.45,'▽'),colorffcc66;<BR>DRAWTEXT(FILTER(B4>0,5),0.45,'∧'),COLOR0099FF;<BR>DRAWTEXT(FILTER(D4>0,5),-0.45,'∨'),COLORBLUE;<BR>DRAWTEXT(FILTER(B3>0,5),0.45,'↑'),coloryellow;<BR>DRAWTEXT(FILTER(D3>0,5),-0.45,'↓'),ColorFF6AAD;<BR>STICKLINE(MACD<ref(MACD,1)and MACD>0,0,MACD,1,0),colorgreen;<BR>STICKLINE(MACD<ref(MACD,1)and MACD<0,0,MACD,1,0),colorFFCC33;<BR>STICKLINE(MACD>ref(MACD,1)and MACD<0,0,MACD,1,0),COLORyellow; <BR>STICKLINE(MACD>ref(MACD,1)and MACD>0,0,MACD,1,0),ColorFF00FF;<BR><BR>DD1:=EMA(C,3)-EMA(C,15);<BR>DD2:=EMA(O,3)-EMA(O,15);<BR>DD3:=EMA(H,3)-EMA(H,15);<BR>DD4:=EMA(L,3)-EMA(L,15);<BR>DRAWTEXT(cross(dd1,diff) and diff<-0.05 ,dd4-0.05,'●');<BR>DRAWTEXT(cross(diff,dd1) and diff>0.1 ,dd3+0.15,'●');<BR>STICKLINE(DD1>=DD2,DD1,DD2,8,0),COLOR0055AA;<BR>STICKLINE(DD1<=DD2,DD1,DD2,8,0),COLOR006600;<BR>STICKLINE(DD1>=DD2,DD1,DD2,5,0),COLOR0077CC;<BR>STICKLINE(DD1>=DD2,DD1,DD2,3,0),COLOR0099DD;<BR>STICKLINE(DD1>=DD2,DD3,DD4,0,0),COLOR00BBFF;<BR>STICKLINE(DD1<=DD2,DD1,DD2,5,0),COLOR009900;<BR>STICKLINE(DD1<=DD2,DD1,DD2,3,0),COLOR00BB00;<BR>STICKLINE(DD1<=DD2,DD3,DD4,0,0),COLOR00EE00;<BR>0.5,Color0000BC,pointdot;<BR>-0.5,Color0000BC,pointdot; <BR></DIV>
Powered by Discuz! 6.0.0 © 2001-2007 Comsenz Inc.
