奇狐社區論壇 - [問題]均線問題

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]均線問題 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=11983)

由 gn00838888 在 2009-08-17 23:45 發表:

[問題]均線問題

請問
日線5MA的值要拿到5分K畫成直線要怎麼寫
日線5MA的扣抵值要拿到5分K畫成直線要怎麼寫

感恩

由 KV1566 在 2009-08-18 08:56 發表:

回覆: [問題]均線問題

引用:
最初由 gn00838888 發表
請問
日線5MA的值要拿到5分K畫成直線要怎麼寫
日線5MA的扣抵值要拿到5分K畫成直線要怎麼寫
感恩

日線5MA的值直接拿到5分K來畫，應該是沒有多大意義的。程式中的寫法，適用於包含日線以下之任何分線(1K除外)

底下的程式碼分三部份，你用用看。不要問我程式寫作原理，你自己研究看看！

指標名稱：R平均線

原碼:{參數設定}
input:N(3,0,100);
input:M(0,0,100);

YY:REF(MA(C,N),M);

指標名稱：R收盤

原碼:{參數設定}
input:N(3,0,100);
input:M(0,0,100);

YY:REF(MA(C,N),M);

指標名稱：日線MA及扣抵

原碼:dayBars:=barslast(not(day=refx(day,1)));
nDayBars:=dayBars[ubound(dayBars)];
if nDayBars=54 then begin
   明日MA_5:"r平均線.YY#DAY"(N-1,0),shift54,colorYellow;
   明日扣抵_5:"r收盤.YY#DAY"(N-1),shift54,colorGreen;
end else if nDayBars=18 then begin
   明日MA_15:"r平均線.YY#DAY"(N-1,0),shift18,colorYellow;
   明日扣抵_15:"r收盤.YY#DAY"(N-1),shift18,colorGreen;
end else if nDayBars=9 then begin 
   明日MA_30:"r平均線.YY#DAY"(N-1,0),shift9,colorYellow;
   明日扣抵_30:"r收盤.YY#DAY"(N-1),shift9,colorGreen;
end else if nDayBars=5 then begin
   明日MA_60:"r平均線.YY#DAY"(N-1,0),shift5,colorYellow;
   明日扣抵_60:"r收盤.YY#DAY"(N-1),shift5,colorGreen;
end else if nDayBars=1 then begin
   明日MA_日:"r平均線.YY#DAY"(N-1,0),shift1,colorYellow;
   明日扣抵_日:"r收盤.YY#DAY"(N-1),shift1,colorGreen;
end;

順便在此向奇狐版大建議(若版大有看到這篇的話)，
shift可不可以在改版時改為函數型態使用？譬如，shift1可改寫成shift(1)、shift5可改寫成shift(5)...
並且，能夠讓該shift函數可以用變數為參數代入。依上例則為shift(nDayBars)
這樣，可以縮短類似這類程式的程式碼長度！謝謝！

由 gn00838888 在 2009-08-18 16:19 發表:

非常謝謝您的指導，您實在太高明了。我非常佩服您，非常感激您。

由 cgjj 在 2009-08-18 17:26 發表:

回覆: 回覆: [問題]均線問題

引用:
最初由 KV1566 發表

.............................................
順便在此向奇狐版大建議(若版大有看到這篇的話)，
shift可不可以在改版時改為函數型態使用？譬如，shift1可改寫成shift(1)、shift5可改寫成shift(5)...
並且，能夠讓該shift函數可以用變數為參數代入。依上例則為shift(nDayBars)
這樣，可以縮短類似這類程式的程式碼長度！謝謝！

Shift N 可以用此法取巧處理
http://www.chiefox.com.tw/bbs/showt...=&threadid=4107

由 KV1566 在 2009-08-18 20:10 發表:

回覆: 回覆: 回覆: [問題]均線問題

引用:
最初由 cgjj 發表
Shift N 可以用此法取巧處理
http://www.chiefox.com.tw/bbs/showt...=&threadid=4107

感謝！原來ChungWen以前就問過跟我一樣的問題了，真巧！而這方法也真是高明！

那，這個程式就可以縮短為：

原碼:dayBars:=barslast(not(day=refx(day,1)));
nDayBars:=dayBars[ubound(dayBars)];
明日MA:refx("r平均線.YY#DAY"(N-1,0),54-nDayBars),shift54,colorYellow;
明日扣抵:refx("r收盤.YY#DAY"(N-1),54-nDayBars),shift54,colorGreen;

全部時間均為台灣時間, 現在時間為19:25

在這個頁面顯示本主題全部的 5 個文章