楼主看看这个怎么样:
短均:(MA(CLOSE,3)+MA(CLOSE,5)+MA(CLOSE,8)+MA(CLOSE,13))/4;
PARTLINE(短均>REF(短均,1),短均),colorred,linethick2;
PARTLINE(短均<REF(短均,1),短均),colorgreen,linethick2;
m10:ma(C,10),COLORYELLOW,LINETHICK0;
m20:ma(C,20),COLORFF00FF,LINETHICK0;
m30:ma(c,30),colorblue,LINETHICK0;
m60:ma(c,60),colorred,LINETHICK0;
f:"macd.diff",linethick0,Color72C072;
a:"macd.dea",linethick0,ColorE98210;
m:"macd.macd",linethick0,COLORYELLOW;
q:=SYSPARAM(3)-SYSPARAM(2);
p:=SYSPARAM(3);
kh:=hhv(h,q);
kL:=LLv(L,q);
mh:=hhv(max(f,a),q);
mL:=LLv(max(f,a),q);
bm:=(kh-kL)/(mh-mL)/3;
wk:=(kh-kL)/3;
wm:=(kh+kL-(mh+mL)*bm)/2;
STICKLINE(m>0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORMAGENTA;
STICKLINE(m<0,m*bm[p]+wm[p],wm[p],0.1,0),POINTDOT,COLORGREEN;
CBH:REF(H,3),colorwhite,LINETHICK0;
CBL:REF(L,3), colorgreen,LINETHICK0;
STICKLINE((BARPOS = (SYSPARAM(1) - 3)),HIGH,HIGH*1,200,0),colorWHITE;
STICKLINE((BARPOS = (SYSPARAM(1) - 3)),LOW,LOW*1,200,0),colorFF00;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)),M10,M10*1,40,0),colorYELLOW;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)),M20,M20*1,40,0),colorFF00FF;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)),M30,M30*1,40,0),colorBLUE;
STICKLINE((BARPOS = (SYSPARAM(1) - 0)),M60,M60*1,40,0),colorRED;
DRAWTEXT((BARPOS = SYSPARAM(1)),(LOW * 0.995),'▲'),ALIGN0,coloryellow;
加入了顾比倒数,MACD柱线,均线随光标移动以短平线显示,
[ 本帖最后由 jiahuiqu 于 2008-6-28 12:56 编辑 ]
附件: 您所在的用户组无法下载或查看附件