奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- 請問如何取得_量最多的價(關鍵價量) (http://www.chiefox.com.tw/bbs/showthread.php?threadid=7703)

引用:

---

最初由 cyberpeace 發表
......專門給"區間關鍵價量&區間分價分量"引用的範例,
方便放在平常習慣使用的看盤主圖使用,
無限感恩~!

---

引用:

---

最初由 cgjj 發表
這個我要改版一下公式才行
要輸出一個數列變數給畫線當做判斷用
改好後再發佈嚕

---

已發佈:
[修正] 當分價分量計算結果只有單一價格時,會引發錯誤的問題
[新增] 輸出變數 CK 用於判斷當前K棒是否於區間內(1.是 0.否)

請見
http://www.chiefox.com.tw/bbs/showt...35130#post35130

範例如下:
主價:"區間關鍵價量.主價"(1070831,1070831,0) LINETHICK0;
次價:"區間關鍵價量.次價"(1070831,1070831,0) LINETHICK0;
CK:="區間關鍵價量.CK"(1070831,1070831,0) LINETHICK0;
STICKLINE(CK,次價,次價,10,0) colorFF00FF;
STICKLINE(CK,主價,主價,10,0) color00CCFF;


不過不建議您像這樣引用再觀看
因為以此例來說
區間關鍵價量被重複計算了三次
較浪費 CPU 效能
若您是於盤後觀看就比較無影響

引用:

---

...
不過不建議您像這樣引用再觀看
因為以此例來說
區間關鍵價量被重複計算了三次
較浪費 CPU 效能
若您是於盤後觀看就比較無影響 [/B]

---

請教cgjj為何當日最大量的價跟交易訊息區的最大量不同?

例如以9/21摩台指最大量為350.9,可是該程式沒有看到這個數字,為何?







【範例5】找出最大量的價(用於分筆成交週期)
　註:此例延續 數列運算(陣列運算) 之 [範例7 求當日那一個價成交量最多]
　　 運算速度大幅提升

UseSC:=C;
UseSV:=V;
UseCP:=UseSC;
UseVP:=V;

//以價大小排序
x:=SORT(UseSC,0,1,datacount); //排序後將結果存入 UseC
x:=SORTPos(UseCP,0,1,datacount); //排序後將原本位置存入 UseCP

//將量依據前面排序結果位置存放入 UseSV
for i=1 to datacount do begin
UseSV[i]:=UseVP[UseCP[i]];
end;

//標示每個價的起點(StP=1)
StP:=barpos=1 or ref(UseSC,1)<UseSC;
//加總每個價的量
SVV:=sum(UseSV,barslast(StP)+1);

//找出最大量的價的位置
HVP:=hhvbars(SVV,0);
HVP:=datacount-HVP[datacount];
MaxVolC:UseSC[HVP];
MaxVolV:SVV[HVP];

　與原範例不同的是若碰到有兩個價都是量最多時, 其是取價位較高的價(而非取離目前時間最近的價)

__________________
i am a person

沒問題呀
請確認您是於分筆成交週期跑的

數列運算求最低價

感謝cgjj解惑,再請教一個問題,我參考【範例5】求指定年份的最低價
FindYear 為指定的年份
MinLow 為該年份的最低價
　　　　 若為 -1 代表不存在該年份數據

FindYear:=2002;
UseY:=YEAR;
UseL:=LOW;
MinLow:=-1;
StartNo:= lbound(UseY);
EndNo:= ubound(UseY);
for i = StartNo to EndNo do begin
if UseY[i] = FindYear then begin
if UseL[i] < MinLow or MinLow = -1 then MinLow:= UseL[i];
end;
end;
最低:MinLow;
------------------------------------------------------------------------------------------------------
模仿程式希望找8068全達上市以來最低價3.85
minlow:=-1;
ll:=LOW;
startno:=LBOUND(ll);
endno:=UBOUND(ll);
for i= startno to endno do begin
IF ll[i]< minlow or minlow=-1 then minlow=ll[i];
end;
最低:minlow;
------------------------------------------------------------------------------------------------------
自己寫的程式可以找到最低價3.85
ll:llv(low,0),linethick;
距今天數ll:llvbars(low,0),linethick,colorwhite;
hh:hhv(h,0),linethick;
距今天數hh:hhvbars(h,0),linethick,coloryellow;
-----------------------------------------------------------------------------------------------------
想請教模仿程式的哪個環節出問題?為何找不到最低價3.85,請指教,謝謝

__________________
i am a person

引用:

---

最初由 keven15 發表
.........想請教模仿程式的哪個環節出問題?為何找不到最低價3.85,請指教,謝謝

---

引用:

---

最初由 PILOT 發表
謝版大,真是高效率.待完成後,能否針對15m為主,並且僅限於當日
的成交做計算,對期指的觀察應有助益

---

再來一張

新公式 分鐘關鍵價量 發佈嚕
請見 http://www.chiefox.com.tw/bbs/showt...36408#post36408

此外這兩個公式也更新了
　新增控制資料留存天數的功能(不用再自行刪舊資料嚕)
　1.關鍵價量 http://www.chiefox.com.tw/bbs/showt...36406#post36406
　2.區間關鍵價量&區間分價分量 http://www.chiefox.com.tw/bbs/showt...36407#post36407

引用:

---

　...新增控制資料留存天數的功能(不用再自行刪舊資料嚕)
　

---