|
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1439 |
[問題]主圖疊加成交量橫條圖
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)!
請協助,謝謝!
|
|
向版主報告此篇 | |
|
2020-03-12 19:46 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
回覆: [問題]主圖疊加成交量橫條圖
引用: 最初由 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 是數列,並非是單值!!!
|
|
向版主報告此篇 | |
|
2020-03-13 10:53 |
|
|
| |
|
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1439 |
是的!
我試過,無法通過編譯!這個公式的程度超出我的能力,因為我也無法判斷能否如此的更改以達到我要的效果,所以想請總版主協助!
感謝!
|
|
向版主報告此篇 | |
|
2020-03-13 11:13 |
|
|
| |
|
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1439 |
1.當沖這個指標名稱是我個人自己對交易時間的自行劃分,為每日的交易起點!
2.原公式是統計過去某幾(請問是畫面可見範圍嗎?)根K棒的成交量,而我是要統計MM根K棒的成交量!當SP小於畫面可見範圍的K棒數時,取SP做統計!當SP大於畫面可見範圍的K棒數時,取畫面可見範圍的K棒數做統計!
3.原公式的橫條圖的範圍為SYSPARAM(4)-SYSPARAM(5)並劃分為十等分,我的橫條圖的範圍為HHV(H,MM)-LLV(L,MM)並劃分為十等分!
請協助!謝謝!
|
最後由 Markchu7 在 2020-03-13 12:47 編輯 |
向版主報告此篇 | |
|
2020-03-13 12:40 |
|
|
| |
|
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1439 |
不需要一個交易時段,就只統計'畫面可見範圍內的K棒數'!
只是當交易時段開始以後的K棒數(SP),不足於'畫面可見範圍內的K棒數',則統計'交易時段開始以後的K棒數(SP)'!
感謝協助!
|
|
向版主報告此篇 | |
|
2020-03-13 16:29 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
引用: 最初由 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;
|
|
向版主報告此篇 | |
|
2020-03-13 17:40 |
|
|
| |
|
Markchu7
資深會員
註冊日期: Nov 2007
來 自:
文章數量: 1439 |
再次請教總版主:如果只要畫前三大量的橫條圖的條件公式的寫法!感恩!
|
|
向版主報告此篇 | |
|
2020-03-31 09:15 |
|
|
| |
|
cgjj
總版主
註冊日期: Oct 2003
來 自:
文章數量: 17628 |
引用: 最初由 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;
|
|
向版主報告此篇 | |
|
2020-03-31 13:57 |
|
|
| |
本站所有內容未經作者授權禁止轉貼節錄, 發表言論僅供參考勿作為投資決策依據。瀏覽本站請使用 IE 5.5 以上版本, 最佳瀏覽解析度 1024 x 768 全彩。
|
Powered by: vBulletin Version 2.3.0 - Copyright©2000-, Jelsoft Enterprises Limited.
簡愛洋行 製作 Copyright 2003-. All Rights Reserved. 聯絡我們
|