A1:=Vol>=ref(Vol,1) and Vol>refx(Vol,1);

若 A1=1, 則將前面成交量小於今日成交量的柱狀線 A1 設為 0

如附圖中 A 到 B 之間 A1 柱狀線都設為 0, 要怎麼寫?

cc_tsou 附帶上了此圖片:

引用:

---

最初由 cc_tsou 發表
A1:=Vol>=ref(Vol,1) and Vol>refx(Vol,1);

若 A1=1, 則將前面成交量小於今日成交量的柱狀線 A1 設為 0

如附圖中 A 到 B 之間 A1 柱狀線都設為 0, 要怎麼寫?

---

看看是否為您要的結果

原碼:


A1:Vol>=ref(Vol,1) and Vol>refx(Vol,1);

VV:=V; CkV:=0;

for i=datacount downto lbound(A1) do begin

  if A1[i]>0 then begin

    if VV[i]>=CkV then begin

      CKV:=VV[i];

    end else begin

      A1[i]:=0;

    end;

  end;

end;

3Q