奇狐社區論壇 - 版主好^^請協助如何在3分盤中找出當日第2大量及第3大量

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 版主好^^請協助如何在3分盤中找出當日第2大量及第3大量 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=19327)

由阿酷在 2015-06-18 19:26 發表:

版主好^^請協助如何在3分盤中找出當日第2大量及第3大量

版主好^^請協助如何在3分盤中找出當日第2大量及第3大量位置的(收盤價)，還請版主協助，謝謝您。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

由 cgjj 在 2015-06-22 09:26 發表:

回覆: 版主好^^請協助如何在3分盤中找出當日第2大量及第3大量

引用:
最初由阿酷發表
版主好^^請協助如何在3分盤中找出當日第2大量及第3大量位置的(收盤價)，還請版主協助，謝謝您。

//僅算最末日
DE:=DATE; DESP:=barslast(DE<>ref(DE,1));
if DESP[datacount]+1<3 then exit; //當日K棒不足,跳離
StKNo:=datacount-DESP[datacount];
SortVP:=V; CC:=C;
x:=sortpos(SortVP,0,StKNo,datacount);
第2大量的價:CC[SortVP[datacount-1]];
第3大量的價:CC[SortVP[datacount-2]];

由阿酷在 2015-06-22 16:41 發表:

非常謝謝版主協助，若要找出(每日)的第2及第3大量，煩請指導。

非常謝謝版主協助，若要找出(每日)的第2及第3大量要如何寫作，煩請指導謝謝您。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

由 cgjj 在 2015-06-22 18:01 發表:

回覆: 非常謝謝版主協助，若要找出(每日)的第2及第3大量，煩請指導。

引用:
最初由阿酷發表
非常謝謝版主協助，若要找出(每日)的第2及第3大量要如何寫作，煩請指導謝謝您。

原碼:


DE:=DATE;

DESP:=barslast(DE<>ref(DE,1) or barpos=1);

BV2C:C*0;  //第2大量的價, 若當日不足兩根值為零

BV3C:BV2C; //第3大量的價, 若當日不足三根值為零

CC:=C;

for i=datacount downto 1 do begin

  StKNo:=i-DESP[i]; SortVP:=V;

  x:=Sortpos(SortVP,0,StKNo,i);

  if DESP[i]>0 then BV2C[i]:=CC[SortVP[i-1]];

  if DESP[i]>1 then BV3C[i]:=CC[SortVP[i-2]];

  i:=StKNo;

end;

EDCK:=refx(DESP,1)=0 or islastbar;

BV2C:=SETVAL(EDCK,BV2C,-DESP,BV2C);

BV3C:=SETVAL(EDCK,BV3C,-DESP,BV3C);

由阿酷在 2015-06-22 21:07 發表:

非常感謝版主喔^^常麻煩您真是感謝喔。

非常感謝版主喔^^常麻煩您真是感謝喔。

__________________
永遠學習、學習永遠
善為傳家寶
忍為積德門

由 cgjj 在 2015-06-22 21:41 發表:

回覆: 非常感謝版主喔^^常麻煩您真是感謝喔。

引用:
最初由阿酷發表
非常感謝版主喔^^常麻煩您真是感謝喔。

您客氣了，謝謝 ^^

全部時間均為台灣時間, 現在時間為08:57

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