版主你好，
補上需求圖片做比較，圖下半部是我的需求，請版主協助，謝謝~

a9681054 附帶上了此圖片:

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
補上需求圖片做比較，圖下半部是我的需求，請版主協助，謝謝~

---

版主你好，
可以了，感謝你的幫忙~

__________________
chiu

請問如何求:
尚未碰觸之'最低多頭關卡' 及 '最高空頭關卡'?
感謝!

引用:

---

最初由 Markchu7 發表
請問如何求:
尚未碰觸之'最低多頭關卡' 及 '最高空頭關卡'?
感謝!

---

感謝!

請問:出現'指標數組下限越界.......',該如何處理?
謝謝!

引用:

---

最初由 Markchu7 發表
請問:出現'指標數組下限越界.......',該如何處理?
謝謝!

---

跑FITX1!修改如下:
MaxKBar:=IF(DATATYPE=1,1500,IF(DATATYPE=2,1200,600)); //僅畫最近n根K棒, 零則畫全部
請指導!謝謝!

引用:

---

最初由 Markchu7 發表
跑FITX1!修改如下:
MaxKBar:=IF(DATATYPE=1,1500,IF(DATATYPE=2,1200,600)); //僅畫最近n根K棒, 零則畫全部
請指導!謝謝!

---

原碼:
CC:=C; HH:=H; LL:=L;

//MOON
Var4:=(LOW+HIGH+CLOSE)/3;
操作:= MA(Var4,5),colorGREEN,linethick2;
多頭關卡:HHV(操作,21) COLORBLACK,linethick2;
空頭關卡:LLV(操作,10) COLORBLACK,linethick2;

//劃水平線
S1:=多頭關卡=REF(多頭關卡,1);
S2:=空頭關卡=REF(空頭關卡,1);
PARTLINE(S1,多頭關卡) COLORred, LINETHICK2;
PARTLINE(S2,空頭關卡) COLORcyan, LINETHICK2;


R1:=S1 and refx(S1,1)=0;
R2:=S2 and refx(S2,1)=0;

MaxKBar:=0; //僅畫最近n根K棒, 零則畫全部
DW1:=C*0; DW2:=C*0;
StNo:=datacount-MaxKBar+1;
if StNo<lbound(R1) or MaxKBar=0 then StNo:=lbound(R1);
for i= StNo to datacount do begin
  if R1[i] then begin
    for j=i+1 to datacount do begin
      if HH[j]>多頭關卡[i] then begin
        DW1[i]:=j-i; break;
      end;
    end;
    if j>datacount then DW1[i]:=j-i;
  end;
end;
StNo:=datacount-MaxKBar+1;
if StNo<lbound(R2) or MaxKBar=0 then StNo:=lbound(R2);
for i= StNo to datacount do begin
  if R2[i] then begin
    for j=i+1 to datacount do begin
      if LL[j]<空頭關卡[i] then begin
        DW2[i]:=j-i; break;
      end;
    end;
    if j>datacount then DW2[i]:=j-i;
  end;
end;

DRAWSL(DW1,多頭關卡,0,DW1,3) COLORRED pxdn2;
DRAWSL(DW2 ,空頭關卡,0,DW2,3) COLORCYAN pxdn2;
UM:=barslast(barpos+DW1=datacount+1);
if lbound(UM)>0 then begin
  UM:多頭關卡[datacount-UM[datacount]];
end;
DM:=barslast(barpos+DW2=datacount+1);
if lbound(DM)>0 then begin
  DM:空頭關卡[datacount-DM[datacount]];
end;

感謝協助!再去試試!

當無碰觸現象發生時,UM,DM是像貼圖中一樣是空值嗎?

Markchu7 附帶上了此圖片:

引用:

---

最初由 Markchu7 發表
當無碰觸現象發生時,UM,DM是像貼圖中一樣是空值嗎?

---

cgjj 附帶上了此圖片:

程式未更動,載入K棒數量為3100!

引用:

---

最初由 Markchu7 發表
程式未更動,載入K棒數量為3100!

---