版主你好:

1)可否寫出將日盤（8:45–13:45）及夜盤（15:00–05:00）分開計算的公式？

2)公式為MACD

以上需求煩請指導....謝謝

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好:

1)可否寫出將日盤（8:45–13:45）及夜盤（15:00–05:00）分開計算的公式？

2)公式為MACD

以上需求煩請指導....謝謝

---

原碼:
CC:=C;
SWCK:=IsRegularFBar or tradedate<>ref(tradedate,1);
ES:=barssince(SWCK)*0;
EL:=ES; EM:=ES; StNo:=lbound(ES);
for i=StNo to datacount do begin
  if SWCK[i]=1 then begin
    ES[i]:=CC[i]; EL[i]:=ES[i];
  end else begin
    ES[i]:=(2*CC[i]+(SHORT-1)*ES[i-1])/(SHORT+1);
    EL[i]:=(2*CC[i]+(LONG-1)*EL[i-1])/(LONG+1);
  end;  
end;
DIFF:ES-EL;
for i=StNo to datacount do begin
  if SWCK[i]=1 then begin
    EM[i]:=DIFF[i];
  end else begin
     EM[i]:=(2*DIFF[i]+(M-1)*EM[i-1])/(M+1);
  end;  
end;
DEA:EM;
MACD:2*(DIFF-DEA),COLORSTICK,Linethick2;
VERTLINE(SWCK) Linedot color777777;

回覆:

1) 版主太棒了，謝謝你

2)想瞭解一下源碼意思，可否幫忙註解...謝謝

__________________
chiu

引用:

---

最初由 a9681054 發表
回覆:

1) 版主太棒了，謝謝你

2)想瞭解一下源碼意思，可否幫忙註解...謝謝

---

引用:

---

最初由 a9681054 發表
回覆:
2)想瞭解一下源碼意思，可否幫忙註解...謝謝

---

回覆:

了解.....謝謝版主的指導

__________________
chiu

不練習，"迴圈" 是永遠學不會的~~
要試著自己去思考想像處理的流程，去實際練習
從無到有，自己把程式練習寫出來~~

回覆:

1)這迴圈的學習版主所言甚是，會照版主建議從基本學習起

2)另日夜盤還有一個需求:
1.可否寫出將日盤（8:45–13:45）及夜盤（15:00–05:00）分開計算的公式？

2.公式為奇狐內建特色公式"控盤力道"

以上需求煩請指導....謝謝

__________________
chiu

引用:

---

最初由 a9681054 發表

回覆:

1)這迴圈的學習版主所言甚是，會照版主建議從基本學習起

2)另日夜盤還有一個需求:
1.可否寫出將日盤（8:45–13:45）及夜盤（15:00–05:00）分開計算的公式？

2.公式為奇狐內建特色公式"控盤力道"

以上需求煩請指導....謝謝

---

控盤力道不是每一根都有值，是自第二根才開始有效~~

回覆:
我有看了歷史圖。的確是第二根才開始有值


要日夜分開計算，起算點那根如何因應您必須去思考

回覆:
日夜起算點，都採第二根開始計算，這樣可以嗎?

__________________
chiu

引用:

---

最初由 a9681054 發表
控盤力道不是每一根都有值，是自第二根才開始有效~~

回覆:
我有看了歷史圖。的確是第二根才開始有值


要日夜分開計算，起算點那根如何因應您必須去思考

回覆:
日夜起算點，都採第二根開始計算，這樣可以嗎?

---

對一個數列而言
並無法去設置僅中間某幾根K棒是無效的~~

回覆:
了解

也就是說
必須要有相應的處理，一定要給數值來填補
重點是您要填補何值!

回覆:
以0來填補，這樣可以嗎?

__________________
chiu

引用:

---

最初由 a9681054 發表
對一個數列而言
並無法去設置僅中間某幾根K棒是無效的~~

回覆:
了解

也就是說
必須要有相應的處理，一定要給數值來填補
重點是您要填補何值!

回覆:
以0來填補，這樣可以嗎?

---

原碼:
SS:=(C+H+L)/3;
SWCK:=IsRegularFBar or tradedate<>ref(tradedate,1) or barpos=1;
ES:=barssince(SWCK)*0; StNo:=lbound(ES);
P:=01;for i=StNo to datacount do if SWCK[i]=0 then SS[i]:=(2*SS[i]+(P-1)*SS[i-1])/(P+1);
P:=13;for i=StNo to datacount do if SWCK[i]=0 then SS[i]:=(2*SS[i]+(P-1)*SS[i-1])/(P+1);
P:=21;for i=StNo to datacount do if SWCK[i]=0 then SS[i]:=(2*SS[i]+(P-1)*SS[i-1])/(P+1);
RSS1:=REF(SS,1);
MM:=if(SWCK,0,(SS-RSS1)/RSS1*100);
力道:MM*1000 linethick;
STICKLINE(MM>1,1,力道,6,0),COLORMAGENTA;
STICKLINE(MM<1,1,力道,6,0),COLORCYAN;
STICKLINE(MM<ref(MM,1),1,力道,6,0),COLORCYAN;
STICKLINE(MM>ref(MM,1),1,力道,6,0),COLORMAGENTA;

回覆:

可以了，非常感謝版主幫忙~

__________________
chiu