引用:

---

最初由 Markchu7 發表
感謝總版主撥空解答!可能是因為貼圖設定長寬的關係以致貼圖文字不精確 請版主以此圖為準

盤整成立以長短虛線表示
盤整突破以長虛線表示
8/1為例
1.第一個盤整區間畫虛線
盤整成立,則
a.盤整成立K棒向前推10個週期畫盤整H到盤整L價位的豎虛線
b.盤整成立K棒以盤整H&盤整L之價位各向左畫10個週期的橫虛線
c.盤整成立K棒向右到盤整突破K棒畫以盤整H&盤整L之價位的橫虛線(週期則依行情而不定)
d.盤整突破K棒向前推1個週期畫盤整H到盤整L價位的豎虛線
如貼圖中由P大所指導的編號1的虛線方框!

2.盤整突破則表示一個盤整區間完成,下一個盤整區間依 同樣規則重新開始,如貼圖中2.3由手工繪製的實線方框!

3.盤整區間每天都重新計算不跨交易日.
感謝總版主協助!感恩!

---

原碼:


CK:=DATE<>REF(DATE,1) or barpos=1;

HH:=H; LL:=L;

UH:=HHV(H,10);

DL:=LLV(L,10);

ZB:=ALL(UH-DL<61,10);

XSP:=barslast(ZB=0)+10;

BoxR:=C*0; BoxL:=BoxR;

for i=1 to datacount do begin

  j:=i-1;

  if CK[i]=1 then begin

    LNo:=i;

  end else if i-LNo+1>10 and ZB[j]=1 then begin

    if HH[i]>UH[j] or LL[i]<DL[j] then begin

      XNo:=LNo;

      if j-LNo>XSP[j] then XNo:=j-XSP[j];

      BoxL[XNo]:=1;

      LNo:=i; BoxR[i-1]:=1;

    end;

  end;

end;

BoxLSP:=barslast(BoxL);

BoxU:=HHV(H,BoxLSP+1);

BoxD:=LLV(L,BoxLSP+1);

BoxU:=SETVAL(BoxR,BoxU,-BoxLSP,BoxU);

BoxD:=SETVAL(BoxR,BoxD,-BoxLSP,BoxD);

STICKLINE(BoxL,BoxU,BoxD,1,0) linedot coloryellow;

STICKLINE(BoxR,BoxU,BoxD,1,0) linedot coloryellow;

DRAWSL(BoxR,BoxU,0,-BoxLSP,1) linedot pxdn2 coloryellow;

DRAWSL(BoxR,BoxD,0,-BoxLSP,1) linedot pxdn2 coloryellow;

請進> 技術分析 > 經驗交流 > 綠林大盜羅賓漢

感恩!