A:=DATATYPE;
BL:=IF(A=1,150,IF(A=2,50,IF(A=3,30,IF(A=4,17,IF(A=5,15,IF(A=6,8,
IF(A=7,3,IF(A=8,2,IF(A=11,50,IF(A=10,3,1.3))))))))));
FM:=(EMA(CLOSE,1.414*N+1));
FCL:=IF(FM<=0.05,ABS(FM)+0.1,0);
DIF:=(EMA(CLOSE,N)-EMA(CLOSE,2*N+2))/(FCL+FM)*100*BL,COLORLIRED,LINETHICK2;
DEA:=EMA(DIF,N*0.75),COLORGREEN,LINETHICK2;
{DRAWBAND(DEA,RGB(55,250,96),DIF,RGB(155,50,196));}
FILLRGN(DEA>DIF,DEA,DIF),COLOR60FA37;FILLRGN(DEA<DIF,DEA,DIF),COLORC4329B;
ED:=(-0.4*REF(C,4)-0.4*REF(C,3)-1.1*REF(C,2)+0.9*REF(C,1)+2*C);
RSV:=(SMA(ED,4,1)-LLV(L,M))/(HHV(H,M)-LLV(L,M))*100;
K:SMA(RSV,3,1),COLORWHITE,LINETHICK;
D:SMA(K,3,1),COLORYELLOW,LINETHICK;
J:2*K-1*D,COLORGREEN,LINETHICK1;
{W:=IF(J>REF(J,1),J,0);}
{DRAWBAND(W,RGB(240,50,50),W,0),LINETHICK2;}
PARTLINE(J>REF(J,1),J),COLOR3232F0;
{DRAWBAND(K,RGB(240,50,50),D,RGB(50,98,240));}
FILLRGN(K>D,K,D),COLOR3232F0;FILLRGN(K<D,K,D),COLORF06232;
MACD:2*(DIF-DEA),COLORRED,COLORSTICK;
黄色转强买:(MACD<0 AND MACD>REF(MACD,1))*MACD,COLOR00FFFF,LINETHICK;
STICKLINE(MACD>0 AND MACD<REF(MACD,1),0,MACD,3,0)COLOR00FF00;
STICKLINE(MACD>0 AND MACD>REF(MACD,1),0,MACD,3,0)COLORRED;
STICKLINE(MACD<0 AND MACD<REF(MACD,1),0,MACD,3,0),COLORCYAN;
STICKLINE(MACD<0 AND MACD>REF(MACD,1),0,MACD,3,0),COLOR00FFFF;
原码奉上,舶来品,请管理员改成通达信的最好了!
阅读全文


最新回复
皆有可能 (2008-10-10 18:00:00)
大炜 (2008-10-10 19:00:03)
xietiang (2008-10-10 20:00:00)
dhdpy (2008-10-10 21:00:01)
lxh5001 (2008-10-10 22:00:01)
xlh6768 (2008-10-10 23:00:01)
snowfoxrain (2008-10-11 00:00:02)
天堂湖 (2008-10-11 01:00:01)
yy5566 (2008-10-11 02:00:01)
werry (2008-10-11 03:00:00)
yy5566 (2008-10-11 04:00:00)
guxiangyun (2008-10-11 05:00:00)
xietiang (2008-10-11 06:00:02)
brendel (2008-10-11 07:00:00)
brendel (2008-10-11 08:00:00)
xietiang (2008-10-11 09:00:00)
到剑客 (2008-10-11 10:00:00)
wanxiaodan (2008-10-11 11:00:01)
飞鱼在线 (2008-10-11 12:00:02)
木石语 (2008-10-11 13:00:01)