查看完整版本: yngs兄，你神通广大，能否提供一个指标源码

王冠杰 2006-2-12 17:48

yngs兄，你神通广大，能否提供一个指标源码

指标公式：海融经典《阳光普照》，谢谢你了！

王冠杰 2006-2-14 00:26

为感谢YNGS 兄，我已特发自编分析家《实战MACD 》源码，请朋友多珍惜，细心找帖子！！！！！！！！！！！

huaxi2 2006-2-15 20:45

能转换成"飞狐 "用吗:thinking::thinking::thinking:

王冠杰 2006-2-15 21:05

《实战MACD 》源码在飞狐《MACD实战源码》的基础上，加上周线即可。
   [color=Red][size=5]飞狐《实战MACD》源码[/size]：[/color]   
[code] input:LONG(26,20,100),SHORT(12,5,40),M(9,2,60);
MK:="MACD.DIFF#week";
MD:="MACD.DEA#week";
FILLRGN(MK > MD,MK,MD),colorff;
FILLRGN(MK< MD,MD,MK),colorFF0000;

DIFF:=(EMA(CLOSE,SHORT) - EMA(CLOSE,LONG));
DEA:=EMA(DIFF,M);
MACD2:=(2 * (DIFF - DEA));
VERTLINE(((CLOSE < 0) AND CROSS(DIFF,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(MACD2,0))),color80;
VERTLINE(((CLOSE < 0) AND CROSS(0,DIFF))),color808080;
VERTLINE(((CLOSE < 0) AND CROSS(0,MACD2))),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,10),ALIGN4;
DRAWICON((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),0,11),ALIGN5;
STICKLINE((MACD2 >= 0),0,MACD2,6,1),colorFF;
STICKLINE(((MACD2 >= 0) AND (MACD2 < REF(MACD2,1))),0,MACD2,6,0),colorFF;
STICKLINE((MACD2 < 0),0,MACD2,6,0),colorFFFF00;
STICKLINE(((MACD2 < 0) AND (MACD2 > REF(MACD2,1))),0,MACD2,6,1),colorFFFF00;
DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;
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),ALIGN0;
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,12),ALIGN0;
DRAWICON(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),MACD2,12);
EXPLAIN(JDU2,'注意长线趋势空转多');
EXPLAIN(JUD2,'注意长线趋势多转空');
EXPLAIN((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'长线为多头趋势');
EXPLAIN((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'长线为空头趋势');
EXPLAINEX((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),'MACD多头防守价',BSLINE,2,1);
EXPLAINEX((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),'MACD空头防守价',BSLINE,2,1);
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (CLOSE < BSLINE)),'防守价跌破：多头小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (CLOSE > BSLINE)),'防守价突破：空头小心');
EXPLAIN(((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND CROSS(MACD2,0)),'空头注意今明两日高点压力,找日落K线放空，用线控盘');
EXPLAIN(((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND CROSS(0,MACD2)),'多头注意今明两日低点支撑,找日出K线做多，用线控盘');
EXPLAIN(((((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))) AND (MACD2 >= 0)) AND (REF(MACD2,1) < REF(DEFU2L,1))) AND (MACD2 > DEFU2L)),'DEF柱状特殊研判\n空头注意今明两日高点压力');
EXPLAIN(((((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))) AND (MACD2 < 0)) AND (REF(MACD2,1) > REF(DEFD2L,1))) AND (MACD2 < DEFD2L)),'DEF柱状特殊研判\n多头注意今明两日低点支撑');
EXPLAINEX((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'空头注意压力',HHV(HIGH,2),2,1);
EXPLAIN((REF((JUD1 OR (BARSLAST(JDU1) > BARSLAST(JUD1))),1) AND CROSS(REF(MACD2,1),0)),'找日落K线放空，用线控盘');
EXPLAINEX((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'多头注意支撑',LLV(LOW,2),2,1);
EXPLAIN((REF((JDU1 OR (BARSLAST(JDU1) < BARSLAST(JUD1))),1) AND CROSS(0,REF(MACD2,1))),'找日出K线进场，用线控盘');
EXPLAIN(((((LLV(MACD2,4) > 0) AND (MACD2 < REF(MACD2,1))) AND (REF(MACD2,1) > REF(MACD2,2))) AND (REF(MACD2,2) > REF(MACD2,3))),'请注意DEF柱状缩头');
EXPLAIN(((((HHV(MACD2,4) < 0) AND (MACD2 > REF(MACD2,1))) AND (REF(MACD2,1) < REF(MACD2,2))) AND (REF(MACD2,2) < REF(MACD2,3))),'请注意DEF柱状缩脚');[/code]

王冠杰 2006-2-15 21:08

感谢朋友们



[[i] 本帖最后由 王冠杰 于 2006-2-15 21:30 编辑 [/i]]

林枫 2006-2-16 06:40

DIFIFF,LINETHICK2,colorFFFF;
MACDEA,colorFF00;
????????????????????

千里快哉风 2006-2-16 23:21

谢谢王冠杰朋友

nqz 2006-2-17 00:14

DIFIFF,LINETHICK2,colorFFFF;
MACDEA,colorFF00;

楼主，38行未定义？

王冠杰 2006-2-17 00:41

将[DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;][size=5][color=Red]变[/color]为[/size]---------------------------------------------

                                                                                                                             [size=5][color=Red] DIF：DIFF,LINETHICK2,colorFFFF;
                                                                                                                               MACD：DEA,colorFF00;[/color][/size]

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

qxssys 2006-2-17 16:30

ddd

m39506 2006-2-18 14:57

谢谢分享

忠剑飞扬 2006-2-20 00:47

谢谢...好用!!!!!!

hhyhhy 2006-2-21 15:40

谢谢分享

tnt2005 2006-2-24 11:11

学习......

frankwang 2006-2-25 18:11

王兄，
因為我不懂指標，請問防守價的意思是指什麼？能否說明．謝謝

hws58600 2006-2-25 19:01

谢谢王冠杰朋友

林枫 2006-2-25 22:02

谢谢王冠杰朋友 !!

[quote]原帖由 [i]王冠杰[/i] 于 2006-2-17 00:41 发表
将[DIF:DIFF,LINETHICK2,colorFFFF;
MACD:DEA,colorFF00;][size=5][color=Red]变[/color]为[/size]---------------------------------------------

                                                        ... [/quote]
:clap::clap:

ak99519 2006-3-9 08:50

王兄，
因為我不会做指標，不过我感觉把彩带变为线更好一些,希望您能抽空帮改一下.

王冠杰 2006-3-10 16:51

ak99519朋友，你好！请你仔细看指标图，红区、蓝区是周MACD指标，在红区初、中期上升时段，只要日线DEF向上，做股票就是安全的！这是要点！！！！！！！没必要把彩带变为线。。。。。。如果将大红色彩带变为紫色彩带，效果比较好。

[[i] 本帖最后由 王冠杰 于 2006-3-10 19:49 编辑 [/i]]

lqyyj 2006-3-10 17:08

不错的思路

王冠杰 2006-3-21 21:50

飞狐《实战MACD》源码：

czhao 2006-3-22 10:16

不错。

gjl 2006-3-23 17:35

谢谢

忠剑飞扬 2006-3-23 20:36

再次感谢您！量神已下！！！！！！

王冠杰 2006-3-23 20:40

忠剑飞扬 朋友，你好

gdfsjian 2006-3-23 20:57

谢谢，非常感谢

liyunsheng 2006-3-23 21:25

谢谢提供

8659885 2006-3-25 21:46

谢谢王冠杰朋友

xujie 2006-3-26 06:25

谢谢！

liuxiang 2006-3-26 17:41

谢谢王冠杰朋友

liuxiang 2006-3-26 17:42

:clap::clap::clap::cool::cool::cool:

lingfang 2006-3-26 22:40

谢谢分享

lhl311 2006-4-24 08:56

不错的思路

zhouhengde 2006-5-9 05:40

感谢

g080101 2006-7-6 13:56

不错。

maclibra 2006-7-10 10:34

xx

yongle476 2006-7-11 00:37

感谢您

跟屁虫 2006-7-12 16:22

谢谢

1986dv 2006-8-9 23:08

谢谢！

tzwxlj1 2006-8-12 13:53

谢谢分享

jackbu 2007-3-11 01:44

谢谢王冠杰朋友

g080101 2007-3-11 12:52

谢谢分享

灏 2007-3-13 23:48

感谢您！感谢您！感谢您！

czjdj 2007-3-21 14:52

谢谢王冠杰朋友

rka 2007-6-18 21:50

感谢您！量神已下！！！！！！

shangjing558 2007-6-19 11:10

很棒，名家风范！！坚决支持！！

雕得尊 2007-6-20 07:00

有什么用,NND

梅子0meizi 2007-6-27 16:44

王兄为什么我会出现这样的提示呢???
                      当前公式 : 实战MACD (指标画线公式)  
                        错误句 :  
                       详细信息 : 引用的公式 MACD 无此参数!
                    错误起始位置 : 0 ; 长度: 0
  帮忙该一下
谢谢谢了
页: [1] 2
查看完整版本: yngs兄，你神通广大，能否提供一个指标源码