奇狐社區論壇 - [問題]前10大量平均

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

由 Markchu7 在 2012-09-26 15:51 發表:

[問題]前10大量平均

請問在5分鐘週期中,今天以前之前3天(共162根K棒)之前10大量平均要如何寫請指導!謝謝!

由 cgjj 在 2012-09-27 09:26 發表:

回覆: [問題]前10大量平均

引用:
最初由 Markchu7 發表
請問在5分鐘週期中,今天以前之前3天(共162根K棒)之前10大量平均要如何寫請指導!謝謝!

CKDE:=date<>ref(date,1);
P1SP:=sumbars(CKDE,4);
P1:=datacount-P1SP[datacount]+1; //區間起點K棒
P2SP:=sumbars(CKDE,1);
P2:=datacount-P2SP[datacount]; //區間終點K棒
VERTLINE(barpos=P1) linedot;
VERTLINE(barpos=P2) linedot;

//排序量
SV:=V; x:=SETLBOUND(SV,P1); //縮短計算範圍(加速)
x:=SORT(SV,0,P1,P2);

//算平均
MM:MA(SV,10);MM:=MM[P2];

由 Markchu7 在 2012-09-27 09:51 發表:

感謝指導,需要消化一下!

由 Markchu7 在 2012-10-03 13:41 發表:

請問總版主,上述公式所呈現的數值是最後一天的數值,若是要讓數值逐日變化(方便盤後作統計分析數據),要如何更改?感謝!

由 cgjj 在 2012-10-03 16:14 發表:

引用:
最初由 Markchu7 發表
請問總版主,上述公式所呈現的數值是最後一天的數值,若是要讓數值逐日變化(方便盤後作統計分析數據),要如何更改?感謝!

注意:以下公式計算負荷重, 不建議於盤中使用

原碼:


CKDE:=date<>ref(date,1);

P1SP:=sumbars(CKDE,4);

P2SP:=sumbars(CKDE,1);

MM:P1SP*0;

for i=lbound(P1SP) to datacount do begin

  if CKDE[i] then begin

    P1:=i-P1SP[i]+1; P2:=i-P2SP[i];

    SV:=V; x:=SETLBOUND(SV,P1);    

    x:=SORT(SV,0,P1,P2); SS:=0;

    for j=0 to 9 do begin

      SS:=SS+SV[P2-j];

    end;

    MM[i]:=SS/10;

  end;

end;

MM:=ref(mm,barslast(MM<>0));

由 Markchu7 在 2012-10-03 22:40 發表:

感謝指導!

由 Markchu7 在 2012-10-04 17:07 發表:

CKDE:=date<>ref(date,1);
P1SP:=sumbars(CKDE,4);
P1:=datacount-P1SP[datacount]+1; //區間起點K棒
P2SP:=sumbars(CKDE,1);
P2:=datacount-P2SP[datacount]; //區間終點K棒
VERTLINE(barpos=P1) linedot;
VERTLINE(barpos=P2) linedot;
若只是單純的前N1根k棒中的前N2大量平均要如何寫?感謝!

由 cgjj 在 2012-10-04 17:23 發表:

引用:
最初由 Markchu7 發表
CKDE:=date<>ref(date,1);
P1SP:=sumbars(CKDE,4);
P1:=datacount-P1SP[datacount]+1; //區間起點K棒
P2SP:=sumbars(CKDE,1);
P2:=datacount-P2SP[datacount]; //區間終點K棒
VERTLINE(barpos=P1) linedot;
VERTLINE(barpos=P2) linedot;
若只是單純的前N1根k棒中的前N2大量平均要如何寫?感謝!

P1:=datacount-N1;
P2:=datacount-1;
SV:=V; x:=SETLBOUND(SV,P1);
x:=SORT(SV,0,P1,P2);
MM:MA(SV,N2);MM:=MM[P2];

由 Markchu7 在 2012-10-04 19:06 發表:

感恩!

由 Markchu7 在 2012-10-04 19:30 發表:

再次有勞總版主指導會隨K棒逐根變化數值的寫法(用於盤後分析)!感恩!

由 Markchu7 在 2012-10-04 23:22 發表:

P1:=datacount-N1;//N1取180
P2:=datacount-1;
SV:=V; x:=SETLBOUND(SV,P1);
x:=SORT(SV,0,P1,P2);
MM:MA(SV,N2),LINETHICK;//N2取30
MM:=MM[P2];
L1:REF((H+L)/2,BARSLAST(V>MM)),COLORBLACK,LINETHICK2;
報告總版主:MM:3316.70是最後的值,那我去檢查附圖中L1變動的K棒都是量大於MM者,所以以最後的值往前畫的L1線意義不大!我想要達到的效果是每根K棒都有自己當下對應的MM,並且記錄下來,以利條件成立(V>MM)時,可以畫L1,請總版主指導!另如此公式計算負荷是否會很重?

由 Markchu7 在 2012-10-04 23:28 發表:

忘了貼圖!

由 Markchu7 在 2012-10-05 09:03 發表:

目前在觀察之前畫出的L1線是否會因後面的MM值而變化!

由 cgjj 在 2012-10-05 09:24 發表:

引用:
最初由 Markchu7 發表
P1:=datacount-N1;//N1取180
P2:=datacount-1;
SV:=V; x:=SETLBOUND(SV,P1);
x:=SORT(SV,0,P1,P2);
MM:MA(SV,N2),LINETHICK;//N2取30
MM:=MM[P2];
L1:REF((H+L)/2,BARSLAST(V>MM)),COLORBLACK,LINETHICK2;
報告總版主:MM:3316.70是最後的值,那我去檢查附圖中L1變動的K棒都是量大於MM者,所以以最後的值往前畫的L1線意義不大!我想要達到的效果是每根K棒都有自己當下對應的MM,並且記錄下來,以利條件成立(V>MM)時,可以畫L1,請總版主指導!另如此公式計算負荷是否會很重?

負荷必定很重
因為每一根都要往前統計N1根範圍的資料, 去求前N2大量平均

由 Markchu7 在 2012-10-05 10:25 發表:

了解!那我就用前三天前10大量平均的方式盤中再去觀察!感恩!

由 cgjj 在 2012-10-05 12:25 發表:

引用:
最初由 Markchu7 發表
了解!那我就用前三天前10大量平均的方式盤中再去觀察!感恩!

控制只算運算近期N根, 可以減輕些負荷
註: N1 和 N2 請自行帶入

原碼:


MAXKBAR:=500; //設定運算近期N根(0為全部)

StPos:=datacount-MAXKBAR+1;

if StPos<1 or MAXKBAR=0 then StPos:=1;

MM:C*0;

for i=datacount downto StPos do begin

  P1:=i-N1; P2:=i-1;

  if P1<1 then begin

    StPos:=i+1; break;

  end;

  SV:=V; x:=SETLBOUND(SV,P1);    

  x:=SORT(SV,0,P1,P2); SS:=0;

  for j=0 to N2-1 do begin

    SS:=SS+SV[P2-j];

  end;

  MM[i]:=SS/N2;

end;

x:=SETLBOUND(MM,StPos);

由 Markchu7 在 2012-10-05 22:57 發表:

感謝指導!

由 wqew2002 在 2012-10-26 17:03 發表:

了不起

由 wqew2002 在 2012-10-28 20:37 發表:

由 Markchu7 在 2013-02-20 12:43 發表:

請問總版主:
上述源碼放在最末端,若只在5分鐘周期才執行,其他週期則跳出,請問要如何控制?感恩!

由 cgjj 在 2013-02-20 12:49 發表:

引用:
最初由 Markchu7 發表
請問總版主:
上述源碼放在最末端,若只在5分鐘周期才執行,其他週期則跳出,請問要如何控制?感恩!

在上述源碼前端加入此行就可
if DATATYPE<>2 then exit;

由 Markchu7 在 2013-02-20 15:56 發表:

感謝指導!

全部時間均為台灣時間, 現在時間為16:02

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