引用:

---

最初由 a9681054 發表
版主你好，
當開始符合S1及S2時，那劃線就從條件成立時的前一根(即空頭關卡及多頭關卡走平時前一根)開始劃線，是否可解決你說的問題?

---

版主你好，
可能是我對需求表達不是很好，我加上圖片，你看這樣是否OK?

__________________
chiu

補上圖片

a9681054 附帶上了此圖片:

__________________
chiu

引用:

---

最初由 a9681054 發表
補上圖片

---

版主你好，
有套用過是產生垂直線，並不是我想要的，
對於需求我自己再手劃，還是很感謝你的回覆~

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
有套用過是產生垂直線，並不是我想要的，
對於需求我自己再手劃，還是很感謝你的回覆~

---

版主你好，
想法就是當多頭及空頭關卡(重點走平時)，向右劃延伸水平線，未來走勢再依條件繼續劃或停止.
我的源碼輸出若將drawsl裡的長度設為10，只輸出固定週期10的直線，設為0為無限延伸，但這都不是我想要的.
所以想設一些條件讓它自動繼續劃或停止，只是不曉得程式該如何表達，論壇也找過水平線的討論，初學階段尚請版主協助，版主是否有何方法可以協助，謝謝~

__________________
chiu

版主，
抱歉，剛再檢查一下的圖形，我原需求應該有誤
~
重新定義如下：
1)當多頭關卡開始下彎時，水平線才接續向右延伸出(細線)
2)當k棒碰觸或上穿或跳空向上S1位置(粗線)，原粗線維持不改變，水平線繼續向右延伸出(細線)
3)直至右方K棒碰觸或上穿或跳空向上延伸線時(細線)，下一根K棒即停止劃線.

4)當空頭關卡開始上升時，水平線才接續向右延伸出(細線)
5)當k棒碰觸或下穿或跳空向下S2位置(粗線)，原粗線維持不改變，水平線繼續向右延伸出(細線)
6)直至右方K棒碰觸或下穿或跳空延伸線時(細線)，下一根K棒即停止劃線.

新的源碼：
//MOON 公式
Var4:=(LOW+HIGH+CLOSE)/3;
操作:= MA(Var4,5),colorGREEN,linethick2;
多頭關卡:HHV(操作,21),colorMAGENTA,linethick2;
空頭關卡:LLV(操作,10),colorcyan,linethick2;


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

DRAWSL(S1 ,空頭關卡,0,10,3)colorblue pxdn3 ;//劃水平線，3表示劃線向右
DRAWSL(S2 ,多頭關卡,0,10,3)colorred pxdn3 ;//劃水平線，3表示劃線向右

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
想法就是當多頭及空頭關卡(重點走平時)，向右劃延伸水平線，未來走勢再依條件繼續劃或停止.
我的源碼輸出若將drawsl裡的長度設為10，只輸出固定週期10的直線，設為0為無限延伸，但這都不是我想要的.
所以想設一些條件讓它自動繼續劃或停止，只是不曉得程式該如何表達，論壇也找過水平線的討論，初學階段尚請版主協助，版主是否有何方法可以協助，謝謝~

---

版主你好，
你說到重點了，就是從連續走平的最末根來畫即可，麻煩你了~

__________________
chiu

引用:

---

最初由 a9681054 發表 2015-01-20 12:38
補上圖片

---

版主你好，
我已修正了源碼、圖片及規則，劃線起點就從多頭及空頭關卡最末根開始劃，有勞版主了，謝謝~

//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,空頭關卡)COLORCYAN, LINETHICK2;
PARTLINE(S2,多頭關卡)COLORRED, LINETHICK2;

a9681054 附帶上了此圖片:

__________________
chiu

版主你好，
補上新的規則如下：

1)當多頭關卡開始下彎時，水平線才接續向右延伸出(細線)
2)當k棒碰觸或上穿或跳空向上S2位置(粗線)，原粗線維持不改變
3)直至右方K棒碰觸或上穿或跳空向上延伸線時(細線)，下一根K棒即停止劃線.

4)當空頭關卡開始上升時，水平線才接續向右延伸出(細線)
5)當k棒碰觸或下穿或跳空向下S1位置(粗線)，原粗線維持不改變
6)直至右方K棒碰觸或下穿或跳空延伸線時(細線)，下一根K棒即停止劃線.

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好，
補上新的規則如下：

1)當多頭關卡開始下彎時，水平線才接續向右延伸出(細線)
2)當k棒碰觸或上穿或跳空向上S2位置(粗線)，原粗線維持不改變
3)直至右方K棒碰觸或上穿或跳空向上延伸線時(細線)，下一根K棒即停止劃線.

4)當空頭關卡開始上升時，水平線才接續向右延伸出(細線)
5)當k棒碰觸或下穿或跳空向下S1位置(粗線)，原粗線維持不改變
6)直至右方K棒碰觸或下穿或跳空延伸線時(細線)，下一根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,空頭關卡) COLORCYAN, LINETHICK2;
PARTLINE(S2,多頭關卡) COLORRED, 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] <> 0 then begin
    for j=i+1 to datacount do begin
      if R1[i]=1 and HH[j]>多頭關卡[i] then begin
        DW1[i]:=j-i; break;
      end;
    end;
  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] <> 0 then begin
    for j=i+1 to datacount do begin
      if R2[i]=1 and LL[j]<空頭關卡[i] then begin
        DW2[i]:=j-i; break;
      end;
    end;
  end;
end;

DRAWSL(DW1,多頭關卡,0,DW1,3) COLORRED pxdn2;
DRAWSL(DW2 ,空頭關卡,0,DW2,3) COLORCYAN pxdn2;

版主你好，
首先感謝版主辛苦的幫忙~
套用後，發現有幾個小狀況：
1)有延伸位置不對
2)不該延伸位置產生出延伸線
3)該延伸位置有些沒有產生出延伸線

詳細部份，如附件照片指示箭頭說明
圖片下半部是正常的，供版主比對參考!

以上問題，再次麻煩版主協助~

a9681054 附帶上了此圖片:

__________________
chiu