<P>DRAWBKBMP(C,'龙1');<BR>{RSI顶底}<BR>LC:=REF(CLOSE,1); <BR>RSI:=SMA(MAX(CLOSE-LC,0),6,1)/SMA(ABS(CLOSE-LC),6,1)*100; <BR>DRAWICON(CROSS(84,RSI) ,h*1.1,5),ALIGN1;<BR>DRAWICON(CROSS(RSI,11) ,l*0.99,4),ALIGN1;<BR>{布林}<BR>中:MA(C,N),COLORRED,LINETHICK0;<BR>PARTLINE(C>=中,中),COLORRED,LINETHICK1;<BR>PARTLINE(C<中,中),COLORWHITE,LINETHICK1;<BR>上A:中+2.1*STD(C,N),Color00FFFF,LINETHICK0;<BR>STICKLINE(C,上A,上A,4,0),Color00FFFF,LINETHICK2;<BR>下A:中-2.1*STD(C,N),COLORGREEN,LINETHICK0;<BR>STICKLINE(C,下A,下A,4,0),COLORGREEN,LINETHICK2;<BR>上B:中+1.3*STD(C,N),COLORCYAN,LINETHICK0;<BR>STICKLINE(C,上B,上B,4,0),COLORCYAN,LINETHICK1;<BR>下B:中-1.3*STD(C,N),COLORFF00FF,LINETHICK0;<BR>STICKLINE(C,下B,下B,4,0),COLORFF00FF,LINETHICK1;<BR>{宝塔}<BR>var1:=barscount(c);{宝塔两平底见红}<BR>var2:=(hhv(h,200)-llv(l,200))/40;<BR>stickline(var1/30=floor(var1/30),h+var2,h+var2*4,10,0),colorwhite;<BR>关注？:stickline(var1/30=floor(var1/30),h+var2,h+var2*3,10,1),coloryellow;<BR>DRAWTEXT(var1/30=floor(var1/30),H+VAR2*3,'关注?'),COLORYELLOW;<BR>var3:=ref(c,1);<BR>var4:=ref(c,2);<BR>var5:=ref(c,3);<BR>var6:=ref(c,4);<BR>var7:=hhv(c,4);<BR>var8:=llv(c,4);<BR>var9:=c=var7 and (var3>=var4 or var3>=var5) or var3=var7 and close>=var4 or var4=var7 and var5=var8 and c>=var3 or var5=var7 and c>=var3 and c>=var4;<BR>{stickline(c,h,l,10,0),colorBLACK};<BR>红持:stickline(var9,var3,c,8,1),colorred;<BR>vara:=c=var7 and var3=var8;<BR>粉变:stickline(vara,var4,c,8,1),colorff00ff;<BR>varb:=c=var8 and (var3<var4 or var3<var5) or var3=var8 and c<var4 or var4=var8 and var3<>var7 and c<var3 or var5=var8 and c<var3 and c<var4;<BR>灰跌:stickline(varb,var3,c,8,0),colorCYAN;<BR>varc:=var3=var8 and c>=var4 or var4=var8 and var3<=var5 and var4<var6 and c>=var3;<BR>绿买:stickline(varc,var3,var4,8,0),colorgreen;<BR>vard:=var3=var7 and c<var4 or (var4=var7 and var3>var5 or var5=var7 and var3>var4) and var4>=var6 and c<var3;<BR>蓝抛:stickline(vard,var3,var4*1.01,8,0),colorblue;<BR>SQ1:=SMA(MAX(C-REF(C,2),0),7,1)/SMA(ABS(C-REF(C,2)),7,1)*100;<BR>SQ2:=SMA(MAX(C-REF(C,1),0),7,1)/SMA(ABS(C-REF(C,1)),7,1)*100;<BR>CM1:=IF(SQ1<12,30,0);<BR>CM2:=IF(SQ2<12,30,0);<BR>超卖一:STICKLINE(CM1,l-0.2,l-0.4,8,1),Color0089FF;{超卖一:橙}<BR>超卖二:STICKLINE(CM2,l-0.4,l-0.6,8,0),Color00FF00;{超卖二:绿}; <BR> <BR>{天眼通li_yung0053自用}<BR>a1:=cost(95);<BR>a2:=cost(5);<BR>天眼通:=(a1-a2)*100/(a1+a2);<BR>drawicon(天眼通>ref(天眼通,1), l*0.98,8)ALIGN5;<BR>{买入提示}<BR>VarV1:=(HIGH+LOW+OPEN+2*CLOSE)/5;<BR>VarV2:=REF(VarV1,1);<BR>VarV3:=SMA(MAX(VarV1-VarV2,0),10,1)/SMA(ABS(VarV1-VarV2),10,1)*100;<BR>HY3:=IF(COUNT(VarV3<20,5)>=1 AND COUNT(VarV1=LLV(VarV1,10),10)>=1 AND CLOSE>=OPEN*1.038 AND VOL>MA(VOL,5)*1.2,1,0);<BR>DRAWTEXT(hy3,LOW,'▲买入'),coloryellow;<BR>{卖娃}<BR>卖娃: DRAWICON((FILTER(CROSS(79,(SMA(MAX(C-REF(C,1),0),7,1)/SMA(ABS(C-REF(C,1)),7,1)*100)),4)),H*1.08,2),ALIGN4;<BR><BR>{顶底背离}<BR>DIFF:=EMA(CLOSE,12) - EMA(CLOSE,26);<BR>DEA:=EMA(DIFF,9);<BR>MACD:=2*(DIFF-DEA);<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>DRAWICON(FILTER(B1>0,5),L*0.94,10);<BR>DRAWTEXT(FILTER(B1>0,5),L*0.94,'M底'),COLORGREEN;{MACD底背离}<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>DRAWICON(FILTER(B2>0,5),L*0.96,10);<BR>DRAWTEXT(FILTER(B2>0,5),L*0.96,'K底'),COLORYELLOW;{KDJ底背离}<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>DRAWICON(FILTER(B3>0,5),L*0.98,10);<BR>DRAWTEXT(FILTER(B3>0,5),L*0.98,'R底'),COLORCYAN;{RSI底背离}<BR><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>DRAWICON(FILTER(D1>0,5),H*1.07,12);<BR>DRAWTEXT(FILTER(D1>0,5),H*1.07,'M顶'),COLOR0066FF;{MACD顶背离}<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");<BR>DRAWICON(FILTER(D2>0,5),H*1.05,12);<BR>DRAWTEXT(FILTER(D2>0,5),H*1.05,'K顶'),COLORRED;{KDJ顶背离}<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>DRAWICON(FILTER(D3>0,5),H*1.03,12),;<BR>DRAWTEXT(FILTER(D3>0,5),H*1.03,'R顶'),COLORMAGENTA,;;{RSI顶背离}</P>
Powered by Discuz! 6.0.0 © 2001-2007 Comsenz Inc.
