查看完整版本: 感谢YNGS兄发《阳光普照》源码，特发自编分析家《实战MACD》源码

感谢YNGS兄发《阳光普照》源码，特发自编分析家《实战MACD》源码

[color=Red][font=黑体][size=5]公布我编的分析家《实战MACD》源码，真有点舍不得，为感谢YNGS兄，忍痛割爱了！！！！指标还是经典的好！！！！[/size][/font][/size]
   [size=5] [color=Blue]请YNGS 兄多批评指导！！！我还有自编的成交量公式很有独到之出，愿与兄单独交流，我的ID地址：[email]zhxiang8857@yahoo.com.cn[/email][/color][/size]
[size=6][color=Green]朋友，下载别忘加分，别忘多顶！！！！！！！！！！！！
  只下不顶太不够朋友[/color][/size]
----------------------------------------------------------------------------------
我随时可能取掉帖子，请朋友[color=Red]珍惜机会！[/color]指标效果见后三副帖图！！！！！！！！
----------------------------------------------------------------------------------
愿朋友们在交流中提高， 在实战中获利！ 你的朋友王冠杰
----------------------------------------------------------------------------------
  [size=5]只见有人下载没人顶，先取掉公式，顶够三十个人再发！公式在十四楼[/size]



-------------------------------------------------------------------------------------------
愿朋友们在交流中提高， 在实战中获利！ 你的朋友王冠杰[color=Red][/color][size=5][/size]

[[i] 本帖最后由 王冠杰 于 2006-2-14 17:33 编辑 [/i]]

只要YNGS 兄看到此帖了，我随时可能取掉帖子，请朋友珍惜机会！！！！！！！！！
      再帖一幅图               [color=Red]图的关键点在周线(红区) [/color]
-----------------------------------------------------------------------------------------------------------------

[[i] 本帖最后由 王冠杰 于 2006-2-14 08:44 编辑 [/i]]

经典好指标，没人顶，我很伤心！！！！



   但顶的人多了，还是要发的。

[[i] 本帖最后由 王冠杰 于 2006-2-14 03:10 编辑 [/i]]

不用也顶.

为了更多的朋友用上《实战MACD》，要多顶。


看帖是缘分，回帖是礼貌。

难到慧眼识真经的朋友太少了？？？？？？？？？？？？？？？？？？？？

这帖又帮你顶,可是绿箭头太多,由底部到头部要跑到脚酸呀

红绿箭头是日线解盘提示。

ddd

谢谢你啊,对照主图,副图的红豆和绿豆不漂亮啊,顶你的帖好高兴,再见了

YCKK老兄，你真细心，副图的红豆和绿豆可是中线是否走好的指标！

谢谢！你增加了周线

这里是飞狐的专门论坛，使用分析家的朋友不多（我也没有使用），因此感兴趣的朋友少一些

谢谢YNGS 兄，因为使用传统MACD指标，朋友们总是上当，使用分析家的朋友也用不上飞狐的MACD实战源码，因此做了分析家《实战MACD》源码，飞狐的在MACD实战源码上加以改编就成，朋友们自己搞吧。
        YNGS 兄已看帖了，那我就帖公式了：
        [size=5][color=Red]分析家《实战MACD》源码[/color][/size]
       input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);{实战MACD};

MK:="MACD.DIFF#week";
MD:="MACD.DEA#week";
FILLRGN(MK,MD, MK > MD,RGB(230,90,50));
FILLRGN(MD,MK, MK< MD,RGB(50,90,250));
ZDIF:MK;
ZDEA:MD;
DIFF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));
DEA:=EMA(DIFF,M);
MACD2:=(2 * (DIFF - DEA));
VERTLINE(((CLOSE < 0) AND CROSS(DIFF,0)),0),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(MACD2,0)),0),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(0,DIFF)),0),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(0,MACD2)),0),color808080;
DU0:=CROSS(DIFF,0);
UD0:=CROSS(0,DIFF);
TDU0:=BARSLAST(DU0);
TUD0:=BARSLAST(UD0);
DU3:=REF(DU0,1);
UD3:=REF(UD0,1);
TDU3:=BARSLAST(DU3);
TUD3:=BARSLAST(UD3);
UDGLINE:=IF((TDU3 < TUD3),REF(HHV(HIGH,2),TDU3),REF(LLV(LOW,2),TUD3));
JDU0:=(((REF(CLOSE,1) <= REF(UDGLINE,1)) AND (CLOSE > UDGLINE)) AND (TDU0 < TUD0));
JUD0:=(((REF(CLOSE,1) >= REF(UDGLINE,1)) AND (CLOSE < UDGLINE)) AND (TUD0 < TDU0));
JDU1:=(JDU0 AND (COUNT(JDU0,TDU0) = 1));
JUD1:=(JUD0 AND (COUNT(JUD0,TUD0) = 1));
JDU2:=(JDU1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
JUD2:=(JUD1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JDU3:=(JDU1 AND (REF(BARSLAST(JUD1),1) > REF(BARSLAST(JDU1),1)));
JUD3:=(JUD1 AND (REF(BARSLAST(JUD1),1) < REF(BARSLAST(JDU1),1)));
BSLINE:=IF((BARSLAST(JDU2) < BARSLAST(JUD2)),IF(REF(CROSS(0,MACD2),1),LLV(LOW,2),REF(LLV(LOW,2),BARSLAST(REF(CROSS(0,MACD2),1)))),IF(REF(CROSS(MACD2,0),1),HHV(HIGH,2),REF(HHV(HIGH,2),BARSLAST(REF(CROSS(MACD2,0),1)))));
DRAWICON((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),0,9),VALIGN1,LAYER0;
DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,10),VALIGN1,LAYER0;
STICKLINE((MACD2 >= 0),0,MACD2,6,1),colorRED;
STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,6,0),colorRED;
STICKLINE((MACD2 < 0),0,MACD2,6,0),colorFFFF00;
STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,6,1),colorFFFF00;
DIF:DIFF,LINETHICK2,color00FFFF;
MACD:DEA,color00FF00;
DEF:MACD2,LINETHICK0,colorFFFF00;
STICKLINE((CLOSE > 0),0,0,10,0),color808080;
DEFUT:=BARSLAST(CROSS(MACD2,0));
DEFDT:=BARSLAST(CROSS(0,MACD2));
DEFUL:=IF((MACD2 >= 0),HHV(MACD2,(DEFUT + 1)),REF(HHV(MACD2,(DEFUT + 1)),(DEFDT + 1)));
DEFDL:=IF((MACD2 < 0),LLV(MACD2,(DEFDT + 1)),REF(LLV(MACD2,(DEFDT + 1)),(DEFUT + 1)));
DEFU2L:=REF(DEFUL,(DEFUT + 1));
DEFD2L:=REF(DEFDL,(DEFDT + 1));
DRAWICON(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),MACD2,5),VALIGN1,ALIGN1;
DRAWICON(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),MACD2,4);
DRAWICON(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),MACD2,8),VALIGN0,ALIGN1;
DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,8),VALIGN2,ALIGN1;
{TIPTEXT};
TIPTEXT(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (CLOSE < BSLINE)),10,'防守价跌破：多头小心');
TIPTEXT(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (CLOSE > BSLINE)),-10,'防守价突破：空头小心');
TIPTEXT(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND CROSS(MACD2,0)),-10,'空头注意今明两日高点压力,找日落K线放空，用线控盘');
TIPTEXT(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND CROSS(0,MACD2)),10,'多头注意今明两日低点支撑,找日出K线做多，用线控盘');
TIPTEXT(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),-10,'DEF柱状特殊研判:空头注意今明两日高点压力');
TIPTEXT(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),10,'DEF柱状特殊研判:多头注意今明两日低点支撑');
{TIPTEXT((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),-10,'空头注意压力:,HHV(HIGH,2),2,1).')};
TIPTEXT((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),-10,'找日落K线放空，用线控盘');
{EXPLAINEX((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'多头注意支撑',LLV(LOW,2),2,1)};
TIPTEXT((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),10,'找日出K线进场，用线控盘');
TIPTEXT(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),10,'请注意DEF柱状缩头');
TIPTEXT(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),-10,'请注意DEF柱状缩脚');
   
     [size=4]再转帖其他朋友一篇文章[/size]
{MACD捕捉主升浪起涨点 （核心内参，免费查看）

    　　在多年的投资实践和技术研究中发现，在选股尤其是选强势股方面，ＭＡＣＤ有着非常重要的作用， 如果运用得好，可以成功地捕捉到行情主升浪的起涨点，其方法如下：

　　首先是调整所用分析软件中有关指标的参数，即移动平均线时间参数设定为５、１０、３０，它们分别代 表短期、中期、长期移动平均线；成交量平均线参数设定为５、１０；ＭＡＣＤ中的快速Ｅ－ＭＡ参数设定 为８，慢速ＥＭＡ参数设定为１３，ＤＩＦ参数设定为９。

　　调整好指标参数之后，便是根据合理、科学的指标组合来设定选股条件。实践证明，满足“ＭＡＣＤ连续 二次翻红”的股票往往会有非常好的上涨行情。所谓“ＭＡＣＤ连续二次翻红”，是指ＭＡＣＤ第一次出现 红柱后，还没等红柱缩没变绿便又再次放大其红柱。这是利用ＭＡＣＤ选股的关键。如果一只股票的走势符 合这一总则，同时又符合以下四个条件，那就意味着该股票出现大幅上涨行情的可能性非常大：

　一、３０日移动平均线由下跌变为走平或翘头向上，５日、１０日、３０日移动平均线刚刚形成多头排列；

　二、股票的日Ｋ线刚刚上穿３０日移动平均线或在３０日移动平均线上方运行；

　三、ＭＡＣＤ第一次翻红的红柱越短越好，一般不过多超过０轴上方的第一横线；

　四、成交量由萎缩逐渐放大，当日成交量大于５日平均量。
　　
             特别需要说明的是，买入后成交量必须连续放大；买入后ＭＡＣＤ的ＤＩＦ值必须连续递增，          如果不符合这两个条件，就要及时出场。

[[i] 本帖最后由 欣儿 于 2006-2-14 13:30 编辑 [/i]]

多谢！

欣儿美女，你好，感谢回帖。

多谢！

多谢！

谢谢

ok!

看帖是缘分，回帖是礼貌。

可惜.我也不能用:crying::crying:

请楼主能该成"飞狐"原码:clap::clap::clap:

[color=Red][size=5]飞狐《实战MACD》源码在这找[/size][/color]：
[quote]原帖由 [i]王冠杰[/i] 于 2006-2-15 21:08 发表
[url]http://bbs.fjfox.com/viewthread.php?tid=26635&page=1&extra=page%3D1#pid300187[/url] [/quote]

多谢！

看帖是缘分，回帖是礼貌。

谢谢了

愿朋友们在交流中提高， 在实战中获利！ 你的朋友王冠杰

多谢！

看帖是缘分，回帖是礼貌。

看帖是缘分，回帖是礼貌。

谢谢分享

顶!!

ddddddddd

ddddddddd

看帖是缘分，回帖是礼貌。

3q

頂尖

谢谢朋友们

又创新，好，非常好。

谢谢支持原码提供

谢谢!支持原码提供

我用分析家，感觉好极了，我谢谢你，为表示感激，我可送好公式给你，你可与我联系：email：[email]ily10000y@126.com[/email]

谢谢.

谢谢

[quote]原帖由 [i]王冠杰[/i] 于 2006-2-15 21:23 发表
[color=Red][size=5]飞狐《实战MACD》源码在这找[/size][/color]：
[/quote]


找不到这个地址啊!
请问下列分析家指标对应飞狐的那些指标?我自己改一下.谢谢!
FILLRGN
VERTLINE
VALIGN
ALIGN
BSLINE
TIPTEXT

谢谢!下载了.

好公式!

3Q!謝謝原提供者

3Q3Q3Q! 精簡雙周期MACD回饋

//{實戰MACD}雙周期MACD;
input:LONG(20,10,50),SHORT(10,5,30),M(9,2,30);
M2:=IF( DATATYPE=0,12,IF( DATATYPE=12,1,IF( DATATYPE=1,11,IF( DATATYPE=2,3,IF( DATATYPE=11,2,IF( DATATYPE=3,4,IF( DATATYPE=4,5,IF( DATATYPE=5,6,IF( DATATYPE=6,7,IF( DATATYPE=7,8,0))))))))));
MK:=STKINDI('','MACD20.DIFF',0,M2);//MACD參數，20,10,9 ;
MD:=STKINDI('','MACD20.DEA',0,M2);
e2:Sma(MK,3,1),colorff99ff,LINETHICK2;
f2:Sma(MD,3,1),colorFF9900,LINETHICK2;
fillrgn(e2>f2,e2,f2),colorff99ff;
fillrgn(f2>e2,e2,f2),colorFF9900;
DIFF:(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),LINETHICK2;
DEA:EMA(DIFF,M),LINETHICK2;
MACD2:(2 * (DIFF - DEA)),COLORSTICK;
0;

非常感谢shujenwen 朋友，对《实战MACD》指标修改得十分好，YNGS兄的愿望实现了，周线很

平滑，图形漂亮！！！！！！！！
                  
                          允许我代表狐友们向你致敬，非常感谢你付出的辛勤创作！！！

                           祝shujenwen 朋友万事如意，常有极品指标能让朋友们分享！！！！！！


                      对shujenwen 朋友的  [//{實戰MACD}雙周期MACD]稍做改动，以方便朋友们直接使用。

请狐友们感谢shujenwen朋友

                雙周期MACD---shujenwen创作
input:LONG(20,10,50),SHORT(10,5,30),M(9,2,30);
M2:=IF( DATATYPE=0,12,IF( DATATYPE=12,1,IF( DATATYPE=1,11,IF( DATATYPE=2,3,IF( DATATYPE=11,2,IF( DATATYPE=3,4,IF( DATATYPE=4,5,IF( DATATYPE=5,6,IF( DATATYPE=6,7,IF( DATATYPE=7,8,0))))))))));
MK:=STKINDI('','MACD.DIFF',0,M2);//MACD參數，20,10,9 ;
MD:=STKINDI('','MACD.DEA',0,M2);
e2:Sma(MK,3,1),colorff99ff,LINETHICK2;
f2:Sma(MD,3,1),colorFF9900,LINETHICK2;
fillrgn(e2>f2,e2,f2),colorff99ff;
fillrgn(f2>e2,e2,f2),colorFF9900;
DIFF:(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG)),LINETHICK2;
DEA:EMA(DIFF,M),LINETHICK2;
MACD2:(2 * (DIFF - DEA)),COLORSTICK;
0;