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

感恩

引用:

---

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

---

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

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

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

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

原碼:
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;

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

引用:

---

最初由 KV1566 發表

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

---

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

引用:

---

最初由 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;