奇狐社區論壇
在這個頁面顯示本主題全部的 41 個文章

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

由 Markchu7 在 2020-03-12 19:46 發表:

[問題]主圖疊加成交量橫條圖

N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3);
KN:=barpos-KL; KZ:=KR-KL;
PH:=SYSPARAM(4);
PS:=(SYSPARAM(4)-SYSPARAM(5))/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
MH[i]:=PH-PS*(i-1);
for k=KL to KR do begin
if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
end;
VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100;
end;

以上是總版主寫的主圖疊加成交量橫條圖的公式!
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520),LINETHICK;
SP:=BARSLAST(當沖)+1,LINETHICK;


MM:=IF(SP<=SYSPARAM(3)-SYSPARAM(2),SP,SYSPARAM(3)-SYSPARAM(2));

請問公式可以修改成
1.成交量由MM開始統計!
2.橫條圖的範圍為HHV(H,MM)~LLV(L,MM)!
請協助,謝謝!

由 cgjj 在 2020-03-13 10:53 發表:

回覆: [問題]主圖疊加成交量橫條圖

引用:
最初由 Markchu7 發表
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3);
KN:=barpos-KL; KZ:=KR-KL;
PH:=SYSPARAM(4);
PS:=(SYSPARAM(4)-SYSPARAM(5))/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
MH[i]:=PH-PS*(i-1);
for k=KL to KR do begin
if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
end;
VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100;
end;

以上是總版主寫的主圖疊加成交量橫條圖的公式!
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520),LINETHICK;
SP:=BARSLAST(當沖)+1,LINETHICK;


MM:=IF(SP<=SYSPARAM(3)-SYSPARAM(2),SP,SYSPARAM(3)-SYSPARAM(2));

請問公式可以修改成
1.成交量由MM開始統計!
2.橫條圖的範圍為HHV(H,MM)~LLV(L,MM)!
請協助,謝謝!


你的 SP 是數列，並非是單值!!!

由 Markchu7 在 2020-03-13 11:13 發表:

是的!
我試過,無法通過編譯!這個公式的程度超出我的能力,因為我也無法判斷能否如此的更改以達到我要的效果,所以想請總版主協助!
感謝!

由 cgjj 在 2020-03-13 11:59 發表:

引用:
最初由 Markchu7 發表
是的!
我試過,無法通過編譯!這個公式的程度超出我的能力,因為我也無法判斷能否如此的更改以達到我要的效果,所以想請總版主協助!
感謝!


要的效果，麻煩請用言語描述~~
那行程式無法精確知道您想做成什甚麼樣子。

由 Markchu7 在 2020-03-13 12:40 發表:

1.當沖這個指標名稱是我個人自己對交易時間的自行劃分,為每日的交易起點!
2.原公式是統計過去某幾(請問是畫面可見範圍嗎?)根K棒的成交量,而我是要統計MM根K棒的成交量!當SP小於畫面可見範圍的K棒數時,取SP做統計!當SP大於畫面可見範圍的K棒數時,取畫面可見範圍的K棒數做統計!
3.原公式的橫條圖的範圍為SYSPARAM(4)-SYSPARAM(5)並劃分為十等分,我的橫條圖的範圍為HHV(H,MM)-LLV(L,MM)並劃分為十等分!
請協助!謝謝!

由 cgjj 在 2020-03-13 12:49 發表:

引用:
最初由 Markchu7 發表
1.當沖這個指標名稱是我個人自己對交易時間的自行劃分,為每日的交易起點!
2.原公式是統計過去1200(預設)根K棒的成交量,而我是要統計MM根K棒的成交量!
3.原公式的橫條圖的範圍為SYSPARAM(4)-SYSPARAM(5)並劃分為十等分,我的橫條圖的範圍為HHV(H,MM)-LLV(L,MM)並劃分為十等分!
請協助!謝謝!


意思是若畫面區間超過一個交易時段，就只統計最後一個交易時段的範圍，對嗎?

由 Markchu7 在 2020-03-13 16:29 發表:

不需要一個交易時段，就只統計'畫面可見範圍內的K棒數'!
只是當交易時段開始以後的K棒數(SP),不足於'畫面可見範圍內的K棒數',則統計'交易時段開始以後的K棒數(SP)'!
感謝協助!

由 cgjj 在 2020-03-13 17:40 發表:

引用:
最初由 Markchu7 發表
不需要一個交易時段，就只統計'畫面可見範圍內的K棒數'!
只是當交易時段開始以後的K棒數(SP),不足於'畫面可見範圍內的K棒數',則統計'交易時段開始以後的K棒數(SP)'!
感謝協助! 


原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
MH[i]:=PH-PS*(i-1);
for k=KL to KR do begin
if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
end;
VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100;
end;

FILLRGN(ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and KN>0,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and KN>0,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and KN>0,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and KN>0,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and KN>0,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and KN>0,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and KN>0,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

由 Markchu7 在 2020-03-13 19:03 發表:

感謝總版主協助!

由 Markchu7 在 2020-03-18 18:13 發表:

總版主,先說聲對不起!
因為當前一根K棒未收盤確定時,橫條圖總會時時跳動,對看盤影響甚大!
能否調整為橫條圖統計與繪圖僅止於倒數第二根K棒,讓畫面不至於時時跳動!
思慮不周,再次請求,甚感不安,請總版主協助!
公式超出能力所及!試過'REF(ML[01]>=KN/KZ and KN>0,1)=1'如此處理!當然是不行!

由 cgjj 在 2020-03-18 23:48 發表:

引用:
最初由 Markchu7 發表
總版主,先說聲對不起!
因為當前一根K棒未收盤確定時,橫條圖總會時時跳動,對看盤影響甚大!
能否調整為橫條圖統計與繪圖僅止於倒數第二根K棒,讓畫面不至於時時跳動!
思慮不周,再次請求,甚感不安,請總版主協助!
公式超出能力所及!試過'REF(ML[01]>=KN/KZ and KN>0,1)=1'如此處理!當然是不行!:D


把 KR:=SYSPARAM(3);
改為 KR:=SYSPARAM(3)-1;

若考量平移畫面，改為下面這樣會比較好用
KR:=SYSPARAM(3)-(SYSPARAM(3)=datacount);

由 Markchu7 在 2020-03-19 12:46 發表:

太感謝了!祝大家都平安喜樂!

由 Markchu7 在 2020-03-31 09:15 發表:

再次請教總版主:如果只要畫前三大量的橫條圖的條件公式的寫法!感恩!

由 cgjj 在 2020-03-31 13:57 發表:

引用:
最初由 Markchu7 發表
再次請教總版主:如果只要畫前三大量的橫條圖的條件公式的寫法!感恩! 


原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3)-(SYSPARAM(3)=datacount);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0,MPS[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100; MPS[i]:=MP[i];
end;
x:=sortpos(MPS,1,1,N);
for i=4 to N do ML[MPS[i]]:=0;
FILLRGN(ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and KN>0,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and KN>0,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and KN>0,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and KN>0,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and KN>0,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and KN>0,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and KN>0,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;

由 Markchu7 在 2020-03-31 20:41 發表:

非常感謝!

由 Markchu7 在 2020-04-01 08:50 發表:

報告總版主:出現組標越界的警語!

由 cgjj 在 2020-04-01 08:58 發表:

引用:
最初由 Markchu7 發表
報告總版主:出現組標越界的警語!


我這測試正常唷!
您套在哪個商品&週期? 公式有再改過嗎?

由 Markchu7 在 2020-04-01 09:19 發表:

用於多秒線週期!
開盤時有警語,現在正常,不知是何問題?
另開盤前6根棒子可以不應用此公式!
還請指導!謝謝!

由 Markchu7 在 2020-04-01 09:21 發表:

早盤用於'FITX1',夜盤用於'FITX1+'!

由 cgjj 在 2020-04-01 09:36 發表:

引用:
最初由 Markchu7 發表
用於多秒線週期!
開盤時有警語,現在正常,不知是何問題?
另開盤前6根棒子可以不應用此公式!
還請指導!謝謝!


@@ 居然用在秒線
秒線剛開盤時，K棒只有一根，必然會出錯!

請將
KN:=barpos-KL; KZ:=KR-KL;

改為
KN:=barpos-KL; KZ:=KR-KL; if KZ<0 then exit;

由 Markchu7 在 2020-04-01 09:42 發表:

非常感謝!

由 Markchu7 在 2020-05-20 20:50 發表:

個人目前使用之主圖!

由 Markchu7 在 2020-05-20 20:51 發表:

版主指導之疊加成交量主圖!

由 Markchu7 在 2020-05-20 21:03 發表:

兩者會有重疊相互遮掩的問題!
功力不足,自作聰明的我將疊加圖的繪圖部分用了這樣的寫法!
STICKLINE(ISLASTBAR AND ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS,80,0) color555555,SHIFT3;
STICKLINE(ISLASTBAR AND ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS,60,0) color888888,SHIFT3;
STICKLINE(ISLASTBAR AND ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS,40,0) color555555,SHIFT3;
想把它畫在留白部分!
結果想當然耳是無效的!
請求協助:
1.前三大量的位置!
2.最大量最寬,而後次之再次之!
還請總版主出手協助!感謝!

由 cgjj 在 2020-05-21 08:42 發表:

引用:
最初由 Markchu7 發表
兩者會有重疊相互遮掩的問題!
功力不足,自作聰明的我將疊加圖的繪圖部分用了這樣的寫法!
STICKLINE(ISLASTBAR AND ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS,80,0) color555555,SHIFT3;
STICKLINE(ISLASTBAR AND ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS,60,0) color888888,SHIFT3;
STICKLINE(ISLASTBAR AND ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS,40,0) color555555,SHIFT3;
想把它畫在留白部分!
結果想當然耳是無效的!
請求協助:
1.前三大量的位置!
2.最大量最寬,而後次之再次之!
還請總版主出手協助!感謝!


不管如何，都不會有足夠的留白區域可畫!
兩圖必定會有重疊之處，無法處理!

重點!!!
這兩個指標本來就不適合疊再一起看。

由 Markchu7 在 2020-05-21 09:12 發表:

OK!
那我逐步的請問:
1.最大量的條件式為何?而它的高低位置各為何?
感恩!

由 cgjj 在 2020-05-21 09:54 發表:

引用:
最初由 Markchu7 發表
OK!
那我逐步的請問:
1.最大量的條件式為何?而它的高低位置各為何?
感恩!


這公式是以當前畫面週期之K棒為基準做計算
將統計區間內的價格區分為10等份
去統計每等份各自佔多少成交量
量最多的該等份，就是您說的最大量

量最多的該等份，其價格高低區間為:
PH1:MH[MPS[1]];
PL1:MH[MPS[1]]-10;

----------------------------------------
前面筆誤，修正應為：
PH1:MH[MPS[1]];
PL1:MH[MPS[1]]-PS;

由 Markchu7 在 2020-05-21 10:04 發表:

則2與3各為
PH2:MH[MPS[2]];
PL2:MH[MPS[2]]-10;
PH3:MH[MPS[3]];
PL3:MH[MPS[3]]-10;
請問正確否?

自己試著做看看!
感恩!

由 cgjj 在 2020-05-21 10:10 發表:

引用:
最初由 Markchu7 發表
則2與3各為
PH2:MH[MPS[2]];
PL2:MH[MPS[2]]-10;
PH3:MH[MPS[3]];
PL3:MH[MPS[3]]-10;
請問正確否?

自己試著做看看!
感恩!


yes

由 Markchu7 在 2020-05-21 10:17 發表:

PL1:MH[MPS[1]]-PS;

似乎這樣才正確,請指正!
謝謝!

由 cgjj 在 2020-05-21 10:33 發表:

引用:
最初由 Markchu7 發表
PL1:MH[MPS[1]]-PS;

似乎這樣才正確,請指正!
謝謝!


Yes, 我筆誤，誤敲為10，應為PS

由 Markchu7 在 2020-05-21 10:38 發表:

眨眼

由 alr8356 在 2022-07-12 16:42 發表:

引用:
最初由 cgjj 發表
原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
MH[i]:=PH-PS*(i-1);
for k=KL to KR do begin
if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
end;
VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100;
end;

FILLRGN(ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and KN>0,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and KN>0,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and KN>0,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and KN>0,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and KN>0,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and KN>0,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and KN>0,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;


哈囉
因灰色條柱會蓋住線(均線等)
想詢問總版主
1.還有其他顯示方法嗎^^
2.只想顯示當天價量

__________________
榮耀天 感恩協助^^
幸福傳奇總是有你我...

祐~

由 cgjj 在 2022-07-12 17:01 發表:

引用:
最初由 alr8356 發表
哈囉
因灰色條柱會蓋住線(均線等)
想詢問總版主
1.還有其他顯示方法嗎^^
2.只想顯示當天價量


這公式並沒有添加均線唷!
您若要添加，請添加於後，不要加於前
後畫的會疊在先畫的上面!!!

由 alr8356 在 2022-07-12 17:05 發表:

引用:
最初由 cgjj 發表
這公式並沒有添加均線唷!
您若要添加，請添加於後，不要加於前
後畫的會疊在先畫的上面!!!


哈哈 我聽懂了 我把它放在其它前面...

那我可以請您幫改 只顯示當天就好嗎

__________________
榮耀天 感恩協助^^
幸福傳奇總是有你我...

祐~

由 cgjj 在 2022-07-12 17:18 發表:

引用:
最初由 alr8356 發表
哈哈 我聽懂了 我把它放在其它前面...

那我可以請您幫改 只顯示當天就好嗎


不用改呀! 本來就只會有當天的(沒多日的)~~

由 alr8356 在 2022-07-12 17:25 發表:

引用:
最初由 cgjj 發表
不用改呀! 本來就只會有當天的(沒多日的)~~


不知道會不會是因為我看外期的關係
拉大時 條柱就會跑

__________________
榮耀天 感恩協助^^
幸福傳奇總是有你我...

祐~

由 cgjj 在 2022-07-12 19:39 發表:

引用:
最初由 alr8356 發表
不知道會不會是因為我看外期的關係
拉大時 條柱就會跑


這段公式不是設計給外期用的!
請仔細看看這行裡寫的條件!!!

當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);

拉大時 條柱就會跑 !
是因為顯示的K棒不滿一天(沒有足量)，就只算畫面中的
請仔細去看看第1樓到第9樓的討論~~~
會問這問題，代表您沒有仔細去看過!

這公式沒有修改，是無法用在永豐奇狐全球版 v5.1 的

由 alr8356 在 2024-02-20 12:58 發表:

引用:
最初由 cgjj 發表
原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3)-(SYSPARAM(3)=datacount);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0,MPS[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i]; if MZ[i]>MaxMZ then MaxMZ:=MZ[i];
end;
for i=1 to N do begin
  ML[i]:=MZ[i]/MaxMZ; MP[i]:=MZ[i]/VZ*100; MPS[i]:=MP[i];
end;
x:=sortpos(MPS,1,1,N);
for i=4 to N do ML[MPS[i]]:=0;
FILLRGN(ML[01]>=KN/KZ and KN>0,MH[01],MH[01]-PS) color555555;
FILLRGN(ML[02]>=KN/KZ and KN>0,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and KN>0,MH[03],MH[03]-PS) color555555;
FILLRGN(ML[04]>=KN/KZ and KN>0,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and KN>0,MH[05],MH[05]-PS) color555555;
FILLRGN(ML[06]>=KN/KZ and KN>0,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and KN>0,MH[07],MH[07]-PS) color555555;
FILLRGN(ML[08]>=KN/KZ and KN>0,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and KN>0,MH[09],MH[09]-PS) color555555;
FILLRGN(ML[10]>=KN/KZ and KN>0,MH[10],MH[10]-PS) color888888;
kline(O,H,L,C,0);
RT:=barpos<KL+KZ*0.25;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'%  ') ALIGN2 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,'  '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,'  '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,'  '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,'  '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,'  '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,'  '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,'  '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,'  '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,'  '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 coloryellow;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,'  '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 coloryellow;




版主 我可以請你幫改 只要最大量區就好了....

__________________
榮耀天 感恩協助^^
幸福傳奇總是有你我...

祐~

由 cgjj 在 2024-02-20 13:56 發表:

引用:
最初由 alr8356 發表
版主 我可以請你幫改 只要最大量區就好了.... 


原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3)-(SYSPARAM(3)=datacount);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;Maxi:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i];
  if MZ[i]>MaxMZ then begin
    MaxMZ:=MZ[i]; Maxi:=i;
  end;
end;
MP:=MaxMZ/VZ*100;
FILLRGN(KN/KZ<=1 and KN>0,MH[Maxi],MH[Maxi]-PS) color555555;
kline(O,H,L,C,0);
DRAWTEXT(barpos=KL+KZ,MH[Maxi]-PS2,'  '+numtostr(MP,2)+'%  ') ALIGN2 pxup8 coloryellow;

由 alr8356 在 2024-02-20 15:46 發表:

引用:
最初由 cgjj 發表
原碼:
N:=10; CC:=C; VV:=V;
KL:=SYSPARAM(2); KR:=SYSPARAM(3)-(SYSPARAM(3)=datacount);
當沖:=(DATATYPE<>12 AND ISREGULARFBAR) or TRADEDATE<>REF(TRADEDATE,1) or BARPOS=1 OR (DATATYPE=12 AND TIME=084520);
for i=datacount downto lbound(當沖) do begin
  if 當沖[i] and i>KL then begin
    KL:=i; break;
  end;
end;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,KZ+1);PH:=PH[KR];
PL:=LLV(L,KZ+1);PL:=PL[KR];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0;
PS2:=PS/2; VZ:=0; MaxMZ:=0;Maxi:=0;
for i=1 to N do begin
  MH[i]:=PH-PS*(i-1);
  for k=KL to KR do begin
    if CC[k]<=MH[i] and CC[k]>MH[i]-PS-PS*(i=N) then MZ[i]:=MZ[i]+VV[k];
  end;
  VZ:=VZ+MZ[i];
  if MZ[i]>MaxMZ then begin
    MaxMZ:=MZ[i]; Maxi:=i;
  end;
end;
MP:=MaxMZ/VZ*100;
FILLRGN(KN/KZ<=1 and KN>0,MH[Maxi],MH[Maxi]-PS) color555555;
kline(O,H,L,C,0);
DRAWTEXT(barpos=KL+KZ,MH[Maxi]-PS2,'  '+numtostr(MP,2)+'%  ') ALIGN2 pxup8 coloryellow;



謝謝總版主

__________________
榮耀天 感恩協助^^
幸福傳奇總是有你我...

祐~
全部時間均為台灣時間, 現在時間為06:26
在這個頁面顯示本主題全部的 41 個文章


Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved.