奇狐社區論壇 - [問題]限制K棒數之疊加成交量橫條圖,只取前3大量橫條

奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]限制K棒數之疊加成交量橫條圖,只取前3大量橫條 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=23878)

由 Markchu7 在 2024-02-15 17:54 發表:

[問題]限制K棒數之疊加成交量橫條圖,只取前3大量橫條

附圖是蒙總版主協助指導之限制K棒數之疊加成交量橫條圖主圖!
源碼如下:
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;

N:=10; CC:=C; VV:=V; KK:=89;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
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;
DW:=barpos>KL;
RT:=barpos<KL+KZ*0.25;

FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) colorBBBBBB;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) colorBBBBBB;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) colorBBBBBB;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) colorBBBBBB;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) colorBBBBBB;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;

DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,' '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,' '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,' '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,' '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,' '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,' '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,' '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,' '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,' '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,' '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 color000000;

kline(O,H,L,C,0);

能否請總版主協助修改為:只取前3大量橫條,其餘4~10,無須顯示!

感謝!祝龍年行大運!

由 Markchu7 在 2024-02-16 09:00 發表:

剛發現:if KR<KK then exit;這段公式限制了部分效果!
請總版主忽略此貼!
個人會再另提協助需求!謝謝!

由 cgjj 在 2024-02-16 09:39 發表:

回覆: [問題]限制K棒數之疊加成交量橫條圖,只取前3大量橫條

引用:
最初由 Markchu7 發表
附圖是蒙總版主協助指導之限制K棒數之疊加成交量橫條圖主圖!
源碼如下:
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;

N:=10; CC:=C; VV:=V; KK:=89;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
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;
DW:=barpos>KL;
RT:=barpos<KL+KZ*0.25;

FILLRGN(ML[01]>=KN/KZ and DW,MH[01],MH[01]-PS) colorBBBBBB;
FILLRGN(ML[02]>=KN/KZ and DW,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW,MH[03],MH[03]-PS) colorBBBBBB;
FILLRGN(ML[04]>=KN/KZ and DW,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW,MH[05],MH[05]-PS) colorBBBBBB;
FILLRGN(ML[06]>=KN/KZ and DW,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW,MH[07],MH[07]-PS) colorBBBBBB;
FILLRGN(ML[08]>=KN/KZ and DW,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW,MH[09],MH[09]-PS) colorBBBBBB;
FILLRGN(ML[10]>=KN/KZ and DW,MH[10],MH[10]-PS) color888888;

DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=0,MH[01]-PS2,numtostr(MP[01],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=0,MH[02]-PS2,numtostr(MP[02],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=0,MH[03]-PS2,numtostr(MP[03],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=0,MH[04]-PS2,numtostr(MP[04],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=0,MH[05]-PS2,numtostr(MP[05],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=0,MH[06]-PS2,numtostr(MP[06],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=0,MH[07]-PS2,numtostr(MP[07],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=0,MH[08]-PS2,numtostr(MP[08],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=0,MH[09]-PS2,numtostr(MP[09],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=0,MH[10]-PS2,numtostr(MP[10],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[01]) and RT=1,MH[01]-PS2,' '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[02]) and RT=1,MH[02]-PS2,' '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[03]) and RT=1,MH[03]-PS2,' '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[04]) and RT=1,MH[04]-PS2,' '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[05]) and RT=1,MH[05]-PS2,' '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[06]) and RT=1,MH[06]-PS2,' '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[07]) and RT=1,MH[07]-PS2,' '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[08]) and RT=1,MH[08]-PS2,' '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[09]) and RT=1,MH[09]-PS2,' '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=KL+floor(KZ*ML[10]) and RT=1,MH[10]-PS2,' '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 color000000;

kline(O,H,L,C,0);

能否請總版主協助修改為:只取前3大量橫條,其餘4~10,無須顯示!

感謝!祝龍年行大運!

原碼:分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K)),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;

N:=10; CC:=C; VV:=V; KK:=89;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0,DK[N]=0,SN[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; DK[i]:=KL+floor(KZ*ML[i]);
end;
x:=sortpos(MZ,1,1,N);
for i=1 to N do SN[MZ[i]]:=i;
DW:=barpos>KL;
RT:=barpos<KL+KZ*0.25;


FILLRGN(ML[01]>=KN/KZ and DW and SN[01]<4,MH[01],MH[01]-PS) colorBBBBBB;
FILLRGN(ML[02]>=KN/KZ and DW and SN[02]<4,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW and SN[03]<4,MH[03],MH[03]-PS) colorBBBBBB;
FILLRGN(ML[04]>=KN/KZ and DW and SN[04]<4,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW and SN[05]<4,MH[05],MH[05]-PS) colorBBBBBB;
FILLRGN(ML[06]>=KN/KZ and DW and SN[06]<4,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW and SN[07]<4,MH[07],MH[07]-PS) colorBBBBBB;
FILLRGN(ML[08]>=KN/KZ and DW and SN[08]<4,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW and SN[09]<4,MH[09],MH[09]-PS) colorBBBBBB;
FILLRGN(ML[10]>=KN/KZ and DW and SN[10]<4,MH[10],MH[10]-PS) color888888;

DRAWTEXT(barpos=DK[01] and RT=0 and SN[01]<4,MH[01]-PS2,numtostr(MP[01],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[02] and RT=0 and SN[02]<4,MH[02]-PS2,numtostr(MP[02],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[03] and RT=0 and SN[03]<4,MH[03]-PS2,numtostr(MP[03],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[04] and RT=0 and SN[04]<4,MH[04]-PS2,numtostr(MP[04],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[05] and RT=0 and SN[05]<4,MH[05]-PS2,numtostr(MP[05],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[06] and RT=0 and SN[06]<4,MH[06]-PS2,numtostr(MP[06],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[07] and RT=0 and SN[07]<4,MH[07]-PS2,numtostr(MP[07],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[08] and RT=0 and SN[08]<4,MH[08]-PS2,numtostr(MP[08],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[09] and RT=0 and SN[09]<4,MH[09]-PS2,numtostr(MP[09],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[10] and RT=0 and SN[10]<4,MH[10]-PS2,numtostr(MP[10],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[01] and RT=1 and SN[01]<4,MH[01]-PS2,' '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[02] and RT=1 and SN[02]<4,MH[02]-PS2,' '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[03] and RT=1 and SN[03]<4,MH[03]-PS2,' '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[04] and RT=1 and SN[04]<4,MH[04]-PS2,' '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[05] and RT=1 and SN[05]<4,MH[05]-PS2,' '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[06] and RT=1 and SN[06]<4,MH[06]-PS2,' '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[07] and RT=1 and SN[07]<4,MH[07]-PS2,' '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[08] and RT=1 and SN[08]<4,MH[08]-PS2,' '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[09] and RT=1 and SN[09]<4,MH[09]-PS2,' '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[10] and RT=1 and SN[10]<4,MH[10]-PS2,' '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 color000000;

kline(O,H,L,C,0);

由 cgjj 在 2024-02-16 09:57 發表:

此外~~

分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:IF((DATATYPE=1 OR DATATYPE=12) AND STKLABEL='FITX1+',TIME=084600 OR TIME=150100,IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K));

此段這樣判斷，遇到30秒線之類的秒線，是會有問題的!!!
改為這樣會比較好

FK:=BARPOS=1 or ref(time,1)<084500 and time>=084500;
DBCK:=if(datatype=0 or datatype=12, FK, TradeDate<>REF(TradeDate,1) or IsRegularFBar);

由 Markchu7 在 2024-02-17 08:31 發表:

感謝總版主指導!謝謝!

由 Markchu7 在 2024-02-17 08:41 發表:

重新整理後公式如下:
FK:=BARPOS=1 or ref(time,1)<084500 and time>=084500;
DBCK:=if(datatype=0 or datatype=12, FK, TradeDate<>REF(TradeDate,1) or IsRegularFBar);
CKSP:=BARSLAST(DBCK)+1,LINETHICK;

//N:=10; CC:=C; VV:=V; KK:=60;
//KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount;
if KK>datacount then KK:=datacount;

KN:=barpos-KL; KZ:=KR-KL;
PH:=HHV(H,60); PH:=PH[datacount];
PL:=LLV(L,60); PL:=PL[datacount];
PS:=(PH-PL)/10;
VARIABLE:MH[N]=0,MZ[N]=0,ML[N]=0,MP[N]=0,DK[N]=0,SN[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; DK[i]:=KL+floor(KZ*ML[i]);
end;
x:=sortpos(MZ,1,1,N);
for i=1 to N do SN[MZ[i]]:=i;
DW:=barpos>KL;
RT:=barpos<KL+KZ*0.25;

FILLRGN(ML[01]>=KN/KZ and DW and SN[01]<4,MH[01],MH[01]-PS) colorBBBBBB;
FILLRGN(ML[02]>=KN/KZ and DW and SN[02]<4,MH[02],MH[02]-PS) color888888;
FILLRGN(ML[03]>=KN/KZ and DW and SN[03]<4,MH[03],MH[03]-PS) colorBBBBBB;
FILLRGN(ML[04]>=KN/KZ and DW and SN[04]<4,MH[04],MH[04]-PS) color888888;
FILLRGN(ML[05]>=KN/KZ and DW and SN[05]<4,MH[05],MH[05]-PS) colorBBBBBB;
FILLRGN(ML[06]>=KN/KZ and DW and SN[06]<4,MH[06],MH[06]-PS) color888888;
FILLRGN(ML[07]>=KN/KZ and DW and SN[07]<4,MH[07],MH[07]-PS) colorBBBBBB;
FILLRGN(ML[08]>=KN/KZ and DW and SN[08]<4,MH[08],MH[08]-PS) color888888;
FILLRGN(ML[09]>=KN/KZ and DW and SN[09]<4,MH[09],MH[09]-PS) colorBBBBBB;
FILLRGN(ML[10]>=KN/KZ and DW and SN[10]<4,MH[10],MH[10]-PS) color888888;

DRAWTEXT(barpos=DK[01] and RT=0 and SN[01]<4,MH[01]-PS2,numtostr(MP[01],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[02] and RT=0 and SN[02]<4,MH[02]-PS2,numtostr(MP[02],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[03] and RT=0 and SN[03]<4,MH[03]-PS2,numtostr(MP[03],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[04] and RT=0 and SN[04]<4,MH[04]-PS2,numtostr(MP[04],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[05] and RT=0 and SN[05]<4,MH[05]-PS2,numtostr(MP[05],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[06] and RT=0 and SN[06]<4,MH[06]-PS2,numtostr(MP[06],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[07] and RT=0 and SN[07]<4,MH[07]-PS2,numtostr(MP[07],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[08] and RT=0 and SN[08]<4,MH[08]-PS2,numtostr(MP[08],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[09] and RT=0 and SN[09]<4,MH[09]-PS2,numtostr(MP[09],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[10] and RT=0 and SN[10]<4,MH[10]-PS2,numtostr(MP[10],2)+'% ') ALIGN2 pxup8 color000000;
DRAWTEXT(barpos=DK[01] and RT=1 and SN[01]<4,MH[01]-PS2,' '+numtostr(MP[01],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[02] and RT=1 and SN[02]<4,MH[02]-PS2,' '+numtostr(MP[02],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[03] and RT=1 and SN[03]<4,MH[03]-PS2,' '+numtostr(MP[03],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[04] and RT=1 and SN[04]<4,MH[04]-PS2,' '+numtostr(MP[04],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[05] and RT=1 and SN[05]<4,MH[05]-PS2,' '+numtostr(MP[05],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[06] and RT=1 and SN[06]<4,MH[06]-PS2,' '+numtostr(MP[06],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[07] and RT=1 and SN[07]<4,MH[07]-PS2,' '+numtostr(MP[07],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[08] and RT=1 and SN[08]<4,MH[08]-PS2,' '+numtostr(MP[08],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[09] and RT=1 and SN[09]<4,MH[09]-PS2,' '+numtostr(MP[09],2)+'%') ALIGN1 pxup8 color000000;
DRAWTEXT(barpos=DK[10] and RT=1 and SN[10]<4,MH[10]-PS2,' '+numtostr(MP[10],2)+'%') ALIGN1 pxup8 color000000;

kline(O,H,L,C,0);

但會出現如附圖之警語!

由 Markchu7 在 2024-02-17 08:43 發表:

094500以後才會正常!
煩請總版主在幫我看看!
謝謝!

由 cgjj 在 2024-02-17 10:31 發表:

引用:
最初由 Markchu7 發表
094500以後才會正常!
煩請總版主在幫我看看!
謝謝!

你沒有改正確!!!

這段
//N:=10; CC:=C; VV:=V; KK:=60;
//KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;
N:=10; CC:=C; VV:=V; KK:=60;
KL:=datacount-KK+1; KR:=datacount;
if KK>datacount then KK:=datacount;

應為
N:=10; CC:=C; VV:=V; KK:=60;
if KK>datacount then KK:=datacount;
KL:=datacount-KK+1; KR:=datacount; if KR<KK then exit;

由 Markchu7 在 2024-02-17 10:55 發表:

可以了!
謝謝總版主!

全部時間均為台灣時間, 現在時間為05:15

在這個頁面顯示本主題全部的 9 個文章