求浩版把这两个分时指标合编一下【AHFYXL1总版主解决】

xvcd1001

求浩版把这两个分时指标合编一下【AHFYXL1总版主解决】

来自：MACD论坛(bbs.shudaoyoufang.com) 作者：xvcd1001 浏览：10533 回复：24

找到一个挺好的分时指标：分时五线，麻烦浩版把分时MACD底背离的参数合编成一个分时指标。

分时五线（tdx）
AAA:=MAX(DYNAINFO(3),DYNAINFO(5));
BBB:=MIN(DYNAINFO(3),DYNAINFO(6));
CCC:=AAA-BBB;
中轨:=(AAA+BBB)/2,COLOR999900;
DIFF:=(EMA(CLOSE,12)-EMA(CLOSE,26))*500/EMA(CLOSE,26);
DEAA:=EMA(DIFF,9);MACD:=(DIFF-DEAA)/4;
STICKLINE(MACD>=REF(MACD,1)AND MACD<=0,中轨,中轨+MACD,2,1),COLOR009999;
STICKLINE(MACD>REF(MACD,1)AND MACD>=0,中轨,中轨+MACD,2,1),COLOR0000DD;
STICKLINE(MACD<REF(MACD,1)AND MACD<0,中轨,中轨+MACD,2,0)COLORDDDD00;
STICKLINE(MACD<REF(MACD,1)AND MACD>0,中轨,中轨+MACD,2,0),COLORDDDD00;
阻力:BBB+CCC*7/8,COLOR00DD00;
支撑:BBB+CCC*1/8,COLOR00DD00;
上顶:BBB+CCC*2/3,COLOR999900;
下底:BBB+CCC/3,COLOR999900;
价:C,COLOR00FFFF;








分时MACD底背离（TDX）

DIF1:EMA(C,84)-EMA(CLOSE,180)COLORLIGRAY,LINETHICK1;
DEA1:EMA(DIF1,6)COLORLIRED,LINETHICK1;
MACDF:(DIF1-DEA1)*2,COLORSTICK;
{DRAWBAND(DEA1,RGB(0,224,24),DIF1,RGB(185,196,0));}
PJ:3*DIF1-2*DEA1,COLORLIBLUE;
DIF:EMA(CLOSE,12)-EMA(CLOSE,26)COLORYELLOW,LINETHICK2;
DEA:EMA(DIF,9)COLORWHITE,LINETHICK2;
MACD:=(DIF-DEA)*2,COLORSTICK;
J:3*DIF-2*DEA,COLORLIGREEN,LINETHICK2;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,0.8,0),COLORRED;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,0.8,0),COLORYELLOW;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,0.8,0),COLORLIRED;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,0.8,0),COLORLIBLUE;
A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
背离:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);
STICKLINE(背离,DIF1,0.02,2,0),COLORWHITE;
DRAWTEXT(背离,DIF1-0.01,'背离'),COLORCYAN;

DRAWTEXT(C=C AND CURRBARSCOUNT=230,0.023,'使用方法:0轴下背离伺机买入即可'),COLOR325495;




[ 本帖最后由 浩申 于 2010-7-24 08:42 编辑 ]

AHFYXL1

原帖由 xvcd1001 于 2010-7-24 01:03 发表
找到一个挺好的分时指标：分时五线，麻烦浩版把分时MACD底背离的参数合编成一个分时指标。

分时五线（tdx）
AAA:=MAX(DYNAINFO(3),DYNAINFO(5));
BBB:=MIN(DYNAINFO(3),DYNAINFO(6));
CCC:=AAA-BBB;
中轨 ...

呵呵,浩版比较辛苦,我来试试?

1. 
   
2. DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
   
3. {=====================================================}
   
4. {** 计算指标变换所需的公共数据 **}
   
5. q:=datacount;      hh:=DYNAINFO(5);{最高}    LL:=DYNAINFO(6);{最低}   ZZ:=(hh+LL)/2;{中}
   
6. f:=max(hh-ZZ,ZZ-LL);        ff:=f/ZZ*100;{最大半振幅}
   
7. {四线}
   
8. AAA:=MAX(DYNAINFO(3),DYNAINFO(5));   BBB:=MIN(DYNAINFO(3),DYNAINFO(6));   CCC:=AAA-BBB;
   
9. 上顶:BBB+CCC*7/8,Color00ADAB;
   
10. 阻力:BBB+CCC*2/3,ColorFFADFF;
    
11. 支撑:BBB+CCC/3,COLORMAGENTA;
    
12. 下底:BBB+CCC*1/8,COLORRED;
    
13. {基础线}
    
14. XA:=SUM(C*V,0);       XB:=SUM(VOL,0);
    
15. CLOSE,COLORWHITE; {主图:显示分时指数}
    
16. XA/XB,COLORYELLOW;{主图:显示分时成本}
    
17. //------------------------------------
    
18. {主图叠加 macd}
    
19. DIF1:=EMA(C,84)-EMA(CLOSE,180);
    
20. DEA1:=EMA(DIF1,6);
    
21. MACD:=(DIF1-DEA1)*2,COLORSTICK;
    
22. A1:=BARSLAST(REF(CROSS(DIF1,DEA1),1));
    
23. 底背:=REF(CLOSE,A1+1)>CLOSE AND DIF1>REF(DIF1,A1+1) AND CROSS(DIF1,DEA1);
    
24. DRAWTEXT(底背&&C<下底,L,'底 \n背'),COLORCYAN;
    
25. 倒数周期:=DATACOUNT-BARPOS+1=200;
    
26. DRAWTEXT(C=C AND 倒数周期,ZZ,' \n \n使用方法:0轴下背离伺机买入即可'),COLOR325495;
    
27. STICKLINE(MACD>0,ZZ,ZZ+MACD*6,0,0),Color5050FF;         STICKLINE(MACD<=0,ZZ,ZZ+MACD*6,0,0),ColorCyan;
    
28. 
    
29. //
    

复制代码

浩申

周末愉快！#*)*#

haohaolin

通达信的呢？ 呵呵， 希望浩版 来一个，谢谢#vv1#

haohaolin

#*29*# 第一个指标有未来

xvcd1001

谢谢A版！#*d1*#

xvcd1001

A版，如果再把顶背离也加上显示，那就是极品公式了！做T+0就胜算的几率大多了！#*29*# #*22*#

flatland

这是什么软件的  是不是TDX???

flatland

哦 不好意思  是 通达信的!谢谢!

flatland

奇怪 TDX用不了 A版的 指标

tq05zck

DRAWGBK((DATE > 0),COLORRGB(0,33,0),COLORRGB(0,33,0),1);
通不过

2306jinsong

奇怪 TDX用不了 A版的 指标
我也用不了#*27*#

AHFYXL1

原帖由 2306jinsong 于 2010-7-26 01:00 发表
奇怪 TDX用不了 A版的 指标
我也用不了#*27*#

我只用飞狐的.........抱歉~~通达信的可请浩版#*19*#

AHFYXL1

原帖由 xvcd1001 于 2010-7-24 16:09 发表
A版，如果再把顶背离也加上显示，那就是极品公式了！做T+0就胜算的几率大多了！#*29*# #*22*#

我不用顶;底背离的,我只用"未来",请看图(呵呵,因系未来--不能害人,所以就不发了,见谅!)

浩申

早上好感谢您的回复!#*d1*#

okmsw

期待大大能发布TDX版本的 谢谢~

flatland

原帖由 <i>浩申</i> 于 2010-7-26 08:26 发表 <a href="http://bbs.macd.cn/redirect.php?goto=findpost&pid=23343683&ptid=1817956" target="_blank"><img src="http://bbs.macd.cn/images/common/back.gif" border="0" onload="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onmouseover="if(this.width>screen.width*0.7) {this.resized=true; this.width=screen.width*0.7; this.style.cursor='hand'; this.alt='Click here to open new window\nCTRL+Mouse wheel to zoom in/out';}" onclick="if(!this.resized) {return true;} else {window.open(this.src);}" onmousewheel="return imgzoom(this);" alt="" /></a><br />
早上好感谢您的回复!<img src="images/smilies/q1.gif" smilieid="75" border="0" alt="" />

<br />
TDX 浩 版!

iceicerain

#*d1*# #*d1*# #*d1*#

ndesh

请高手们出来弄个通达信的呀

ndesh

看来赚钱太忙了，楼主可能要改一下标题，让高手们来帮忙呀，不一定非指定总版 呀