注:全文均為轉載

發(fā)源碼,不發(fā)咒語---------日線逐日顯示周均線,周k線(副圖),不含未來數據



三個月前,有人發(fā)指標時下了一個咒語,結果引來超級人氣,回了1000多帖.是咒語果真厲害還是指標確實很好?久思不得其解.今天我也來發(fā)一個指標-----kma日表周-------日線逐日顯示周均線,周k線(副圖),不含未來數據.其特點是每日k線顯示的不是當日k線,而是本周的周k線;每日均線顯示的不是當日均線,而是本周的周均線;且數據不會隨時間推移發(fā)生改變;參數用來調節(jié)均線周期.我發(fā)源碼,不發(fā)咒語,歡迎大家評頭論足,不斷優(yōu)化,就是想看看高回帖是不是咒語在起作用?


附源碼(分析家):
{名稱: 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.