有件事情求救你 - 謝謝

畫線 變形母子線
基本定義是 k -2 高低點當基礎 , K 及 k-1 的開收 都在 k-2 高低點間 . 成立後K-2 的高低點畫平行線延伸至K 的位置

再延伸是若K位置之後的k棒開收還是在此區間內,線就繼續畫, 直到k棒高逼點出此範圍結束

我會做基本型母子 不會做延伸時, 及變形母子, 所以求救. 請給範例, 謝謝

基本母子型態
insideJ:=L>ref(L,1) and H<ref(H,1);
drawline(refx(insideJ,1)=1,H,refx(insideJ,1)=0,ref(H,barslast(insideJ+1)+1),0) colorwhite;
drawline(refx(insideJ,1)=1,L,refx(insideJ,1)=0,ref(L,barslast(insideJ+1)+1),0) colorwhite;

引用:

---

最初由 ivancclai 發表
有件事情求救你 - 謝謝

畫線 變形母子線
基本定義是 k -2 高低點當基礎 , K 及 k-1 的開收 都在 k-2 高低點間 . 成立後K-2 的高低點畫平行線延伸至K 的位置

再延伸是若K位置之後的k棒開收還是在此區間內,線就繼續畫, 直到k棒高逼點出此範圍結束

我會做基本型母子 不會做延伸時, 及變形母子, 所以求救. 請給範例, 謝謝

基本母子型態
insideJ:=L>ref(L,1) and H<ref(H,1);
drawline(refx(insideJ,1)=1,H,refx(insideJ,1)=0,ref(H,barslast(insideJ+1)+1),0) colorwhite;
drawline(refx(insideJ,1)=1,L,refx(insideJ,1)=0,ref(L,barslast(insideJ+1)+1),0) colorwhite;

---

cgjj 版主你好

我試過, 有一個問題我不會修正,當此變形母子成立時, 三根K棒之後只要有一根K棒離開此範圍時, 此變形母子就結束了. 但是下段程式只要後面K棒又回到此區間他就繼續畫線, 要如何去掉後面這一段, 我不知道如何修改. 要麻煩你幫我修正 謝謝

//=============== 變形母子 =========================================

OCH:=max(o,c); UH:=HHV(OCH,2);
OCL:=min(o,c); UL:=LLV(OCL,2);
CK:=H>refx(UH,2) and L<refx(UL,2);
CKSP:=barslast(CK);
CKH:=ref(H,CKSP); CKL:=ref(L,CKSP);

PARTLINE(OCL>=CKL AND OCH<=CKH and cksp>0,CKH) linedot COLOR00FFFF;
PARTLINE(OCL>=CKL and OCH<=CKH AND cksp>0,CKL) linedot COLOR00FFFF;

//PARTLINE(OCH<=CKH and cksp>0,CKH) linedot;
//PARTLINE(OCL>=CKL and cksp>0,CKL) linedot;

//===================================================================

引用:

---

最初由 ivancclai 發表
cgjj 版主你好

我試過, 有一個問題我不會修正,當此變形母子成立時, 三根K棒之後只要有一根K棒離開此範圍時, 此變形母子就結束了. 但是下段程式只要後面K棒又回到此區間他就繼續畫線, 要如何去掉後面這一段, 我不知道如何修改. 要麻煩你幫我修正 謝謝
............略

---

cgjj 兄,

謝謝你, 修正成功, 可以使用 感恩

版主 cgjj兄,

這兩天仔細檢查此變形母子線還是有些與想法不可, 是否可以請cgjj兄幫我再看看如何修改

貼圖

ivancclai 附帶上了此圖片:

引用:

---

最初由 ivancclai 發表
貼圖

---

原碼:
OCH:=max(o,c); UH:=HHV(OCH,2);
OCL:=min(o,c); UL:=LLV(OCL,2);
CK:=H>refx(UH,2) and L<refx(UL,2);
DW:=C*0; HH:=H; LL:=L;
for i=lbound(CK) to datacount do begin
  if CK[i]=1 then begin
    for j=i+1 to datacount do begin
      if OCH[j]>HH[i] or OCL[j]<LL[i] then break;
    end;
    DW[i]:=j-i;
  end;
end;
DRAWSL(DW>0,H,0,DW,0) linedot pxdn2;
DRAWSL(DW>0,L,0,DW,0) linedot pxdn2;

謝謝版主, cgjj兄, 測試正常了, 謝謝

引用:

---

最初由 ivancclai 發表
謝謝版主, cgjj兄, 測試正常了, 謝謝

---