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

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 版主好^^請協助如何在3分盤中找出當日第2大量及第3大量

上一主題下一主題

作者

主題

阿酷
資深會員

註冊日期: Dec 2003
來　　自: 彰化
文章數量: 130

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

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

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

最後由阿酷在 2015-06-18 19:30 編輯

向版主報告此篇 |

2015-06-18 19:26

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18102

回覆: 版主好^^請協助如何在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 09:26

阿酷
資深會員

註冊日期: Dec 2003
來　　自: 彰化
文章數量: 130

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

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

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

向版主報告此篇 |

2015-06-22 16:41

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18102

回覆: 非常謝謝版主協助，若要找出(每日)的第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);