八味天黄丸 发表于 2009-1-8 16:15

变色MACD指标源码，送有缘人！

DIFIF1:=EMA(CLOSE,12) - EMA(CLOSE,26);
DEAEA1:=EMA(DIFIF1,9);
MACD1:=2*(DIFIF1-DEAEA1),STICK;
MACD2:=EMA(MACD1,3);
STICKLINE(MACD1>MACD2 AND MACD1>0,0,MACD1,1,0),COLORRED;
STICKLINE(MACD1>MACD2 AND MACD1<0,0,MACD1,1,0),COLORGREEN;
STICKLINE(MACD1<MACD2,0,MACD1,1,0),COLORCBCBC0;
STICKLINE(MACD1>=0 OR MACD1<=0,0,0,50,1),COLORWHITE;
DIFIF1,COLOR33FF33,LINETHICK1;
DEAEA1,COLORYELLOW,LINETHICK1;
MACD:MACD1,NODRAW,COLORMAGENTA;
强:IF(DIFIF1>=DEAEA1,DIFIF1,DRAWNULL),COLORRED,LINETHICK1;
弱:IF(DEAEA1>=DIFIF1,DEAEA1,DRAWNULL),COLORFF9900,LINETHICK1;
DRAWICON(CROSS(DIFIF1,DEAEA1),DIFIF1+0.1,1);
DRAWICON(CROSS(DEAEA1,DIFIF1),-0.5,2);
DRAWTEXT(CROSS(DIFIF1,DEAEA1),DIFIF1,'○'),LINETHICK1, COLORYELLOW;

椛宠蝶 发表于 2009-1-8 16:21

:*25*: :*25*:

椛宠蝶 发表于 2009-1-8 16:27

:*31*: :*31*: :*31*:

股药 发表于 2009-1-8 16:35

*d:1* :*19*: b:b :)

wangx414 发表于 2009-1-8 16:45

:*( :*(

liuping26619 发表于 2009-1-8 17:56

谢谢八兄的变色MACD指标，非常好用，再次谢谢了*d:1* *d:1*

liuping26619 发表于 2009-1-8 17:59

百草神农先生的CDL指标也能用，但就是与原K线叠加的不好，上下位置总在变动。:*19*: :*19*: :*22*: :*22*:

wjx314wjx 发表于 2009-4-12 21:05

呵呵。这个我也想学习。

tianlongdianqi 发表于 2009-4-12 21:27

b:b b:b b:b *d:1*

zhangkay 发表于 2009-4-18 15:03

*d:1* *d:1* *d:1* *d:1*

lzqstk 发表于 2009-4-18 20:35

*d:1* *d:1* *d:1* *d:1* *d:1*

liuping26619 发表于 2009-4-19 08:48

*d:1*

j6w8 发表于 2009-4-19 12:55

*d:1* *d:1* *d:1* *d:1*

bzhscy1 发表于 2009-4-19 14:41

cdl公式源码macd dif变色   交易费用千分之8，通达信的
买:C,COLORFFFFFF;
止损价:买/1.017,COLOR00FF00;
平仓价:买*1.008,COLORYELLOW;
赚2点5价:买*1.033,COLORFFFFFF;
赚4价:买*1.048,COLOR00FF00;
赚5价:买*1.058,COLORFFFFFF;
赚10价:买*1.108,COLOR00FF00;
最高价:H,COLORMAGENTA;
逃命价:H/1.11,COLORFFFFFF;
DIF:(EMA(CLOSE,9)-EMA(CLOSE,26))*10000,COLORRED;
DEA:EMA(DIF,12);
MACD:(DIF-DEA)*2,COLORSTICK;
IF(DIF<=REF(DIF,1),DIF,DRAWNULL),COLORGREEN;
RSVK:=(CLOSE-LLV(LOW,9))/(HHV(HIGH,9)-LLV(LOW,9))*100;
KK:=SMA(RSVK,3,1);
DK:=SMA(KK,3,1);
JK:=3*KK-2*DK;
顶:(JK<120 AND JK>98 AND JK>REF(JK,1))*6000,COLORYELLOW;
A1:=(C/MA(C,3)>=(1+0.07) AND C=HHV(C,3) AND MA(V,2)/MA(V,40)>=3 AND
    MA(V,2)=HHV(MA(V,2),3) AND V>REF(V,1) AND C>REF(C,1));
A9:=MA(C,30);      
A10:=(C-A9)/A9*100;   
A11:=MA(A10,3);
A15:=BARSLAST(CROSS(-10,A11)=1);
DRAWTEXT(FILTER(顶 , 10),顶*1.2 ,'顶' ),COLORRED;
RR8:=MA(CLOSE,27);
RR9:=(CLOSE-RR8)/RR8*100;
RRA:=MA(RR9,2);
RRB:=BARSLAST(CROSS(-10,RRA)=1);
RRD:=RRA<-10 AND RRB>3;
黄金坑:IF(RRD,-4000,0),COLORYELLOW,LINETHICK2;

bzhscy1 发表于 2009-4-19 14:45

紫阳公式通达信紫阳蓝阴

参数：
p11    1   100    10
p22    1   200    40
p3      1   300    5





E10:EMA(CLOSE,P11);
E40:EMA(CLOSE,P22);
M5:MA(CLOSE,P3);
M3:MA(CLOSE,3),COLOR00FF00;
F:=100*(C-REF(C,1))/REF(C,1);
今小昨:=IF(C<REF(O,1) AND F<0,1,0);
P1:=今小昨;
今小前:=IF(C<REF(O,2) AND F<0,1,0);
P2:=今小前;
STICKLINE(P1=0 AND REF(P1,1)=1 AND P2=0 AND REF(P2,1)=1,OPEN,CLOSE,3,0),COLORMAGENTA;
STICKLINE(P1=1 AND REF(P1,1)=0 AND P2=1AND REF(P2,1)=0,OPEN,CLOSE,3,0),COLORFFAA44;

liuping26619 发表于 2009-4-19 15:19

谢谢bzhscy1先生的CDL公式，比我原来的好用多了，一分钟图也可以用了，黄金坑也有了，谢谢!:) :) b:b b:b

雨晴xyl 发表于 2009-4-19 15:22

回复 #5 liuping26619 的帖子

*d:1* *d:1* *d:1* *d:1*

五魁首 发表于 2009-4-27 22:23

*d:1* *d:1*

liugates 发表于 2009-7-11 17:00

:*29*: :*29*: :*29*:

sniffer2008 发表于 2010-4-2 20:09

非常感谢楼上几位热心人的指标
页: 1 [2] 3
查看完整版本: 求通达信软件用的CDL战法指标