注:全文均为转载
发源码,不发咒语---------日线逐日显示周均线,周k线(副图),不含未来数据
三个月前,有人发指标时下了一个咒语,结果引来超级人气,回了1000多帖.是咒语果真厉害还是指标确实很好?久思不得其解.今天我也来发一个指标-----kma日表周-------日线逐日显示周均线,周k线(副图),不含未来数据.其特点是每日k线显示的不是当日k线,而是本周的周k线;每日均线显示的不是当日均线,而是本周的周均线;且数据不会随时间推移发生改变;参数用来调节均线周期.我发源码,不发咒语,欢迎大家评头论足,不断优化,就是想看看高回帖是不是咒语在起作用?
附源码(分析家):
{名称: KMA日表周
描述:日线逐日显示周均线,周k线 }
input:n1(5,2,1000,1),n2(8,2,1000,1),n3(13,2,1000,1),n4(21,2,1000,1);
ZC:=IF(BARPOS=1,1,DAYS1970-DAYS1970[1]<>WEEKDAY-WEEKDAY[1]);
{上市第一日ZC取1,每周初交易日取1,其他交易日取0 }
M:=BARSLAST(ZC)+1; { 最后一周交易日 }
周初标记:DAYS1970-DAYS1970[1]<>WEEKDAY-WEEKDAY[1],color00ffff,linethick0,PRECIS0;
A:=IF(BARPOS=1,1,周初标记);
STICKLINE(周初标记 ,l*0.95 ,l*0.97 ,2 ,0 ),color00ffff;
{ 标记每周第一个交易日 }
周开盘:if(m=1,o,ref(o,m-1)),colorffffff,linethick0,PRECIS2;
周收盘:c,colorffffff,linethick0,PRECIS2;
周最高:if(m=1,h,hhv(h,m-1)),colorffffff,linethick0,PRECIS2;
周最低:if(m=1,l,llv(l,m-1)),colorffffff,linethick0,PRECIS2;
stickline(c>周开盘,
llv(l,m),周最高,1,1),color0000ff;
stickline(c>周开盘,周开盘,c,6,1),color0000ff;
stickline(c<=周开盘,周最低,周最高,1,0),colorffff00;
stickline(c<=周开盘,周开盘,c,6,0),colorffff00;
B:=IF(A=1,REF(C,1),0);
T1:=SUMBARS(A,N1-1);
T2:=SUMBARS(A,n2-1);
T3:=SUMBARS(A,n3-1);
T4:=SUMBARS(A,n4-1);
MA1:(SUM(B,T1)+C)/N1,color00ffff;
MA2:(SUM(B,T2)+C)/n2,colorff00ff;
MA3:(SUM(B,T3)+C)/n3,color00ff00;
MA4:(SUM(B,T4)+C)/n4,coloraaaaaa;
[ 本帖最后由 炒着玩 于 2006-1-14 13:38 编辑 ]股票论坛 www.55188.com
