[通达信] 精品指标之股票杀多、洗盘、买卖、背离一目了然 - 股票指标 - 股票之声

郎少发表于 2010-1-19 15:34

RSV:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100; K:=SMA(RSV,3,1),COLORWHITE; D:=SMA(K,3,1),COLORYELLOW; J:=3*K-2*D,COLORFF00FF; A:=250; DIFF:=(EMA(CLOSE,12) - EMA(CLOSE,26)); DEA:=EMA(DIFF,9),COLORBLUE,LINETHICK0; MACD:=2*(DIFF-DEA); MM:=IF(MACD< 0,MACD,0); JJ:=MM> REF(MM,1); ZZ:=REF(JJ,1)=1; 准备:=(JJ AND ZZ)*DEA; STICKLINE(准备=DEA,1,-1,2,1),COLORFFFF00; JH:=HHV(MAX(K,MAX(D,J)),A); DH:=HHV(MAX(DIFF,DEA),A); SH:=INTPART(JH/DH)/2; DIFF50:=SH*DIFF+50,COLORFFFF00; DEA50:=SH*DEA+50,COLORBLUE; STICKLINE(DIFF50>DEA50,0,1.5*(DIFF50-DEA50),0,0),COLORRED; STICKLINE(DIFF50<DEA50,0,1.5*(DIFF50-DEA50),0,0),COLORFFFF00; 红柱:IF(1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1.5*(DIFF50-DEA50),0), STICK,COLORLICYAN; 绿柱:IF(1.5*(DIFF50-DEA50)<REF(1.5*(DIFF50-DEA50),1), 1.5*(DIFF50-DEA50),0),STICK,COLORGREEN; 缩头:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)>REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)< REF(1.5*(DIFF50-DEA50),1),1,0); 缩脚:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0); 杀多:=IF(1.5*(DIFF50-DEA50)<0 AND REF(1.5*(DIFF50-DEA50),1)> REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)<REF(1.5*(DIFF50-DEA50),1),1,0); 诱空:=IF(1.5*(DIFF50-DEA50)>0 AND REF(1.5*(DIFF50-DEA50),1)< REF(1.5*(DIFF50-DEA50),2) AND 1.5*(DIFF50-DEA50)>REF(1.5*(DIFF50-DEA50),1),1,0); 阻力:=IF(CROSS(C,MA(C,20)) OR CROSS(C,MA(C,60)),1,0); DRAWTEXT(FILTER(杀多,3) AND 杀多,1.5*(DIFF50-DEA50),'杀多'),COLORFF00FF; DRAWTEXT(FILTER(缩头,3) AND 缩头,1.5*(DIFF50-DEA50)+0.2,'卖'),COLORFF00FF; DRAWTEXT(FILTER(诱空,3) AND 诱空,1.5*(DIFF50-DEA50),'?洗盘'),COLOR00FF00; DRAWTEXT(FILTER(缩脚,3) AND 缩脚,1.5*(DIFF50-DEA50)-0.2,'买'),COLOR00FF00; DRAWTEXT(FILTER(阻力,16) AND 1.5*(DIFF50-DEA50)>=0,1.5*(DIFF50-DEA50)+0.01,'阻力'),COLOR00FFFF; VRA:=REF(CLOSE,1); VRB:=SMA(MAX(CLOSE-VRA,0),6,1)/SMA(ABS(CLOSE-VRA),6,1)*100; VRC:=(2*CLOSE+HIGH+LOW)/4; VR0:=LLV(LOW,34); VR1:=HHV(HIGH,34); VR2:=EMA((VRC-VR0)/(VR1-VR0)*100,6); VR3:=EMA(0.667*REF(VR2,1)+0.333*VR2,4);   VA1:=(REF(HIGH,1)+REF(LOW,1))/2; VA2:=MA(CLOSE,20)+2*STD(CLOSE,20); VA3:=REF(CLOSE,1); VA4:=SMA(MAX(CLOSE-VA3,0),7,1)/SMA(ABS(CLOSE-VA3),7,1)*100; VA5:=CROSS(79,VA4); VA6:=FILTER(VA5,4); VVD:=MA(CLOSE,80)-MA(CLOSE,10)/3; VA7:=3*SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1)-2*SMA(SMA((CLOSE-LLV(LOW,27))/(HHV(HIGH,27)-LLV(LOW,27))*100,5,1),3,1); X1:=CROSS(VA1,VA2) OR VA6; X2:=CROSS(84,VRB); STICKLINE(X1 OR X2,1.5*(DIFF50-DEA50)*1.05,1.5*(DIFF50-DEA50)*1.08,3,0); Y1:=IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VA2>VA3,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0); Y2:=IF(CLOSE<VVD AND VOL/240>MA(VOL,5)/240 AND CLOSE>REF(CLOSE,1)*1.08 AND CLOSE<MA(CLOSE,13)*1.3,1,0); Y3:=CROSS(VA7,10); Y4:=IF(COUNT(CLOSE<REF(CLOSE,1),8)/8>0.3 AND COUNT(VR2>VR3,3) AND REF(LOW,1)=LLV(LOW,120) AND CLOSE>OPEN,1,0); STICKLINE(Y1 OR Y2 OR Y3 OR Y4,1.5*(DIFF50-DEA50)*0.90,1.5*(DIFF50-DEA50)*0.99,3,0); DD:=C=HHV(C,180); EE:=DEA< REF(DEA,1) AND REF(DEA< REF(DEA,1),1)=1; CC:=C> REF(C,1) AND REF(C> REF(C,1),1)=1; 上升背离:(CC AND EE)*1.5*(DIFF50-DEA50),LINETHICK2,COLORWHITE; 顶背离:(DD AND EE AND DEA< HHV(DEA,180))*3*ABS(DIFF50-DEA50),STICK,LINETHICK3,COLORGREEN; FF:=C=LLV(C,180); GG:= DEA> REF(DEA,1) AND REF(DEA> REF(DEA,1),1)=1; LL:=C< REF(C,1) AND REF(C< REF(C,1),1)=1; 下降背离:(LL AND GG)*1.5*(DIFF50-DEA50),LINETHICK2,COLORYELLOW; 底背离:(FF AND GG AND DEA> LLV(DEA,180))*3*(DIFF50-DEA50),STICK,LINETHICK3,COLORRED; <IMG border=0 src="images/2008/attachimg.gi

东子发表于 2010-1-19 15:39

胜者无招 发表于 2010-1-19 18:25

亚家欣 发表于 2010-1-20 19:31

dddddddddddddddddddddddddddd

诸葛小亮 发表于 2010-1-21 16:38

谢谢提供，

加菲发表于 2010-1-21 16:42

狼少辛苦~~~~~~~

牛熊不分 发表于 2010-1-21 16:49

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶的顶顶顶顶顶

潮人故里 发表于 2010-1-21 17:16

弱弱地问一句，要怎么用？导入？  小菜鸟哦

尚功文 发表于 2010-1-21 18:22

<FIELDSET><LEGEND>潮人故里 于 2010-1-21 17:16:01 在大作中提到</LEGEND>
弱弱地问一句，要怎么用？导入？  小菜鸟哦</FIELDSET>
具体方法：先复制上面的一段代码--打开通达信公式管理器--点一下其他类型--新建--粘贴原代码。这样就<SPAN style="FONT-SIZE: 10.5pt; FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'; mso-font-kerning: 1.0pt; mso-bidi-font-family: 'Times New Roman'; mso-ansi-language: EN-US; mso-fareast-language: ZH-CN; mso-bidi-language: AR-SA">建了一个新的公式。 
 [该帖子由作者于2010年1月21日 18:28:49最后编辑]

股民老李 发表于 2010-1-21 21:48

要认真研究后才是，不错的指标。

好学者 发表于 2010-1-24 19:40

多谢老师

奇瑞发表于 2010-1-24 21:02

不知道怎么用也是无用啊

江之南 发表于 2010-2-7 18:09

顶了再说

大漠神影 发表于 2010-2-15 11:57

顶顶顶顶顶顶顶顶顶顶顶顶顶顶顶的顶顶顶顶顶

新圆心 发表于 2010-2-15 19:45

学习学习，感谢楼主提供。

页: [1] 2 3 4

股票之声's Archiver