奇狐社區論壇 (http://www.chiefox.com.tw/bbs/index.php)
- 問題交流 (http://www.chiefox.com.tw/bbs/forumdisplay.php?forumid=28)
-- [問題]取消當沖限制改為連續交易日 (http://www.chiefox.com.tw/bbs/showthread.php?threadid=21260)

[問題]取消當沖限制改為連續交易日

CK:=DATE<>REF(DATE,1) OR BARPOS=1;
StNo:=lbound(BARSSINCE(CK));
TE:=TIME;
OutTE:=133000;
HH:=H;
LL:=L;
ZeroAry:=C*0;
BB:=ZeroAry;
SS:=ZeroAry;
上碎型:ZeroAry colorFF00FF linethick0;
下碎型:ZeroAry colorBLUE linethick0;
for i=StNo to datacount do begin
if CK[i]=1 then begin
x:=setlbound(HH,i); x:=setlbound(LL,i);
Y:=((HH + LL) / 2);
RED:=SMA(Y,8,1);
R2:=REF(RED,5);
KU1:=IF((HH = HHV(HH,3)),1,0);
KD1:=IF((LL = LLV(LL,3)),1,0);
UL:IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HH,2),REF(HH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)))))),COLORRED;
上碎型S:=IF((HH >= R2),UL,REF(UL,BARSLAST((HH > R2))));
DL:IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LL,2),REF(LL,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)))))),COLORBLUE;
下碎型S:=IF((LL <= R2),DL,REF(DL,BARSLAST((LL <= R2))));
DBB:=((HH > 上碎型S) AND (REF(HH,1) < REF(上碎型S,1)));
DSS:=((LL < 下碎型S) AND (REF(LL,1) > REF(下碎型S,1)));
end;
if i>=lbound(DBB) then BB[i]:=DBB[i] and TE[i]<OutTE;
if i>=lbound(DSS) then SS[i]:=DSS[i] or TE[i]>=OutTE;
if i>=lbound(上碎型S) then 上碎型[i]:=上碎型S[i];
if i>=lbound(下碎型S) then 下碎型[i]:=下碎型S[i];
end;

已上是總版主以前協助的原碼!今想取消當沖限制改為連續交易日!請總版主協助!
謝謝!

加碼請求協助!
ULR1:=REF(REF(UL,1),BARSLAST(UL<>REF(UL,1))),COLORRED,LINETHICK2;
ULR2:=REF(REF(ULR1,1),BARSLAST(ULR1<>REF(ULR1,1))),COLORRED,LINETHICK2;
TOPPOINT:=ULR2<ULR1 AND ULR1>UL;
壓力:REF(ULR1,BARSLAST(TOPPOINT))+4.5,COLORRED,LINETHICK2;

DLR1:=REF(REF(DL,1),BARSLAST(DL<>REF(DL,1))),COLORRED,LINETHICK2;
DLR2:=REF(REF(DLR1,1),BARSLAST(DLR1<>REF(DLR1,1))),COLORRED,LINETHICK2;
BOTPOINT:=DLR2>DLR1 AND DLR1<DL;
支撐:REF(DLR1,BARSLAST(BOTPOINT))-4.5,COLORBLUE,LINETHICK2;

以上是自己寫的壓力支撐階梯線!
請協助:
1.
突破壓力後,壓力支撐階梯線只升不降!
跌破支撐後,壓力支撐階梯線只降不升!
歷史的第一個突破或跌破點後,以新的壓力支撐階梯線來判斷是否有突破或跌破!
2.
從歷史的第一個突破或跌破點將壓力支撐階梯線向前賦值到歷史的第一根K棒!
謝謝!

回覆: [問題]取消當沖限制改為連續交易日

引用:

---

最初由 Markchu7 發表
CK:=DATE<>REF(DATE,1) OR BARPOS=1;
StNo:=lbound(BARSSINCE(CK));
TE:=TIME;
OutTE:=133000;
HH:=H;
LL:=L;
ZeroAry:=C*0;
BB:=ZeroAry;
SS:=ZeroAry;
上碎型:ZeroAry colorFF00FF linethick0;
下碎型:ZeroAry colorBLUE linethick0;
for i=StNo to datacount do begin
if CK[i]=1 then begin
x:=setlbound(HH,i); x:=setlbound(LL,i);
Y:=((HH + LL) / 2);
RED:=SMA(Y,8,1);
R2:=REF(RED,5);
KU1:=IF((HH = HHV(HH,3)),1,0);
KD1:=IF((LL = LLV(LL,3)),1,0);
UL:IF((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)),REF(HH,2),REF(HH,(2 + BARSLAST((((REF(KU1,2) = 1) AND (REF(KU1,1) = 0)) AND (KU1 = 0)))))),COLORRED;
上碎型S:=IF((HH >= R2),UL,REF(UL,BARSLAST((HH > R2))));
DL:IF((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)),REF(LL,2),REF(LL,(2 + BARSLAST((((REF(KD1,2) = 1) AND (REF(KD1,1) = 0)) AND (KD1 = 0)))))),COLORBLUE;
下碎型S:=IF((LL <= R2),DL,REF(DL,BARSLAST((LL <= R2))));
DBB:=((HH > 上碎型S) AND (REF(HH,1) < REF(上碎型S,1)));
DSS:=((LL < 下碎型S) AND (REF(LL,1) > REF(下碎型S,1)));
end;
if i>=lbound(DBB) then BB[i]:=DBB[i] and TE[i]<OutTE;
if i>=lbound(DSS) then SS[i]:=DSS[i] or TE[i]>=OutTE;
if i>=lbound(上碎型S) then 上碎型[i]:=上碎型S[i];
if i>=lbound(下碎型S) then 下碎型[i]:=下碎型S[i];
end;

已上是總版主以前協助的原碼!今想取消當沖限制改為連續交易日!請總版主協助!
謝謝!

---

感謝總版主回覆!我會再仔細的研讀!
至於加碼請求協助部分是否可以幫忙!
感謝您!

引用:

---

最初由 Markchu7 發表
感謝總版主回覆!我會再仔細的研讀!
至於加碼請求協助部分是否可以幫忙!
感謝您!

1.
突破壓力後,壓力支撐階梯線只升不降!
跌破支撐後,壓力支撐階梯線只降不升!
歷史的第一個突破或跌破點後,以新的壓力支撐階梯線來判斷是否有突破或跌破!
2.
從歷史的第一個突破或跌破點將壓力支撐階梯線向前賦值到歷史的第一根K棒!
謝謝!

---

沒關係是用於期貨多秒線週期!
請協助!感謝!

引用:

---

最初由 Markchu7 發表
沒關係是用於期貨多秒線週期!
請協助!感謝!

---

感謝協助!