奇狐社區論壇 (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)

請問如何取得

請問如何取得盤中最大量公式?
與站在盤中最大量之上與最大量之下 公式的表示程式?
3q!

__________________
shujenwen

參考下面範例五看看
http://www.chiefox.com.tw/bbs/showt...AA%BA%A6%EC%B8m

__________________
--
忘我無為無不為..

3q3q3q!

引用:

---

最初由 justdoit829 發表
參考下面範例五看看
http://www.chiefox.com.tw/bbs/showt...AA%BA%A6%EC%B8m

---

__________________
shujenwen

太深了!!! 看ㄚ霧殺殺..
希望看懂的大大能夠寫出公式，能夠在日線引用，如此便能解盤:出貨或進貨了

求救

引用:

---

最初由 mikle 發表
太深了!!! 看ㄚ霧殺殺..
希望看懂的大大能夠寫出公式，能夠在日線引用，如此便能解盤:出貨或進貨了

---

__________________
shujenwen

是有寫過 不過弄丟了
不然可以提供給你們

學習學習

[指標名稱:量關鍵價] (只能限定在分筆)

fv:=vol;
fc:=close;
fcp:=fc;
a:=sortpos(fcp,0,1,datacount);
fvmax:=0; fvmaxp:=1; fvtemp:=fv[fcp[1]];
fbmax:=0; fbmaxp:=1; fbtemp:=1;
if datacount>1 then begin
for i=2 to datacount do
if fc[fcp[i]]=fc[fcp[i-1]] then begin
fvtemp:=fvtemp+fv[fcp[i]];
fbtemp:=fbtemp+1;
end else begin
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
fvtemp:=fv[fcp[i]];
fbtemp:=1;
end;
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
end;

svmin:=0; svminp:=fv[fcp[1]]; svmax:=0; svmaxp:=fv[fcp[1]];
for i=1 to datacount do begin
svmin:=svmin+fv[fcp[i]];
if svmin>=dynainfo(8)/6 then begin
svminp:=i;
break;
end;
end;
for i=datacount downto 1 do begin
svmax:=svmax+fv[fcp[i]];
if svmax>=dynainfo(8)/6 then begin
svmaxp:=i;
break;
end;
end;
量關鍵價:fc[fcp[fvmaxp]],colorred;
----------------------------------------------------------------------
----------------------------------------------------------------------

然後利用以下公式自行引用或修改∼
量關鍵價:STKINDI('','量關鍵價.量關鍵價,0,0),LINETHICK0;

3q3q3q

引用:

---

最初由 joanne115244 發表



[指標名稱:量關鍵價] (只能限定在分筆)

fv:=vol;
fc:=close;
fcp:=fc;
a:=sortpos(fcp,0,1,datacount);
fvmax:=0; fvmaxp:=1; fvtemp:=fv[fcp[1]];
fbmax:=0; fbmaxp:=1; fbtemp:=1;
if datacount>1 then begin
for i=2 to datacount do
if fc[fcp[i]]=fc[fcp[i-1]] then begin
fvtemp:=fvtemp+fv[fcp[i]];
fbtemp:=fbtemp+1;
end else begin
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
fvtemp:=fv[fcp[i]];
fbtemp:=1;
end;
if fvmax<fvtemp then begin
fvmax:=fvtemp;
fvmaxp:=i-1;
end;
if fbmax<fbtemp then begin
fbmax:=fbtemp;
fbmaxp:=i-1;
end;
end;

svmin:=0; svminp:=fv[fcp[1]]; svmax:=0; svmaxp:=fv[fcp[1]];
for i=1 to datacount do begin
svmin:=svmin+fv[fcp[i]];
if svmin>=dynainfo(8)/6 then begin
svminp:=i;
break;
end;
end;
for i=datacount downto 1 do begin
svmax:=svmax+fv[fcp[i]];
if svmax>=dynainfo(8)/6 then begin
svmaxp:=i;
break;
end;
end;
量關鍵價:fc[fcp[fvmaxp]],colorred;
----------------------------------------------------------------------
----------------------------------------------------------------------

然後利用以下公式自行引用或修改∼
量關鍵價:STKINDI('','量關鍵價.量關鍵價,0,0),LINETHICK0;

---

__________________
shujenwen

[QUOTE]最初由 joanne115244 發表
量關鍵價:fc[fcp[fvmaxp]],colorred;[/COLOR]
----------------------------------------------------------------------
----------------------------------------------------------------------

非常感謝joanne115244大大的用心幫忙
另外請問
1.(小於量關鍵價的所有成交量的總和不知如何計算) 與 (大於量關鍵價的所有成交量的總和不知如何計算) 煩請指導 以便於日線引用(如附圖)
2.是不是每天都要傳 "補分筆成交" 不然好像只能顯示當天解盤而已 ?

量:=STKINDI('','CVSORT.量(0)',0,0);
價:=STKINDI('','CVSORT.價(0)',0,0);
量關鍵價:價[datacount];

UUSUM:=SUM(IF(價>量關鍵價,量,0),0);
大於量關鍵價分量總和:UUSUM[datacount];

DDSUM:=SUM(IF(價<量關鍵價,量,0),0);
小於量關鍵價分量總和:DDSUM[datacount];



公式 CVSORT 請到這下載:
http://www.chiefox.com.tw/bbs/showt...=&threadid=1512

引用:

---

最初由 cgjj 發表
量:=STKINDI('','CVSORT.量(0)',0,0);
價:=STKINDI('','CVSORT.價(0)',0,0);
量關鍵價:價[datacount];

UUSUM:=SUM(IF(價>量關鍵價,量,0),0);
大於量關鍵價分量總和:UUSUM[datacount];

DDSUM:=SUM(IF(價<量關鍵價,量,0),0);
小於量關鍵價分量總和:DDSUM[datacount];



公式 CVSORT 請到這下載:
http://www.chiefox.com.tw/bbs/showt...=&threadid=1512

---

__________________
shujenwen

引用:

---

最初由 cgjj 發表
量:=STKINDI('','CVSORT.量(0)',0,0);
價:=STKINDI('','CVSORT.價(0)',0,0);
量關鍵價:價[datacount];

UUSUM:=SUM(IF(價>量關鍵價,量,0),0);
大於量關鍵價分量總和:UUSUM[datacount];

DDSUM:=SUM(IF(價<量關鍵價,量,0),0);
小於量關鍵價分量總和:DDSUM[datacount];

公式 CVSORT 請到這下載:
http://www.chiefox.com.tw/bbs/showt...=&threadid=1512

---

引用:

---

最初由 mikle 發表
謝謝C大
但有一疑問:
大於量關鍵價分量總和:UUSUM[datacount]; 與 小於量關鍵價分量總和:DDSUM[datacount]; 在日線都是0 好像不對ㄋ

---

__________________
shujenwen

引用:

---

最初由 p0068 發表
只能在分筆成交圖顯示
請問 cgjj總版主 要如何才能引用在日線顯示?
3q3q3q!

---