IF DATATYPE<=6 THEN CK:=DATE<>REF(DATE,1) or barpos=1;
SP:=BARSLAST(CK)+1;
MM3:=IF(SP>3,3,SP);
MM4:=IF(SP>4,4,SP);
MM5:=IF(SP>5,5,SP);
MM6:=IF(SP>6,6,SP);
MM21:=IF(SP>21,21,SP);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
HX:HHV((IF(SP>3,REF(CLOSE,MM3),HHV(MAX(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),HHV(MAX(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),HHV(MAX(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),HHV(MAX(O,C),MM6)))/4,MM21),COLORRED;
//LX3:LLV((IF(SP>3,REF(CLOSE,MM3),LLV(MIN(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),LLV(MIN(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),LLV(MIN(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),LLV(MIN(O,C),MM6)))/4,MM21),COLORBLUE;
OLDHX:IF(BARSLAST(CROSS(HX=REF(HX,1),0.8))+1>SP,HX,REF(HX,BARSLAST(CROSS(HX=REF(HX,1),0.8)))),COLORBLUE,LINETHICK2;
KLINE(O,H,L,C,0);
NEWHX:?請指導!

Markchu7 附帶上了此圖片:

引用:

---

最初由 Markchu7 發表
IF DATATYPE<=6 THEN CK:=DATE<>REF(DATE,1) or barpos=1;
SP:=BARSLAST(CK)+1;
MM3:=IF(SP>3,3,SP);
MM4:=IF(SP>4,4,SP);
MM5:=IF(SP>5,5,SP);
MM6:=IF(SP>6,6,SP);
MM21:=IF(SP>21,21,SP);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
HX:HHV((IF(SP>3,REF(CLOSE,MM3),HHV(MAX(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),HHV(MAX(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),HHV(MAX(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),HHV(MAX(O,C),MM6)))/4,MM21),COLORRED;
//LX3:LLV((IF(SP>3,REF(CLOSE,MM3),LLV(MIN(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),LLV(MIN(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),LLV(MIN(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),LLV(MIN(O,C),MM6)))/4,MM21),COLORBLUE;
OLDHX:IF(BARSLAST(CROSS(HX=REF(HX,1),0.8))+1>SP,HX,REF(HX,BARSLAST(CROSS(HX=REF(HX,1),0.8)))),COLORBLUE,LINETHICK2;
KLINE(O,H,L,C,0);
NEWHX:?請指導!

---

以OLDHX代入!謝謝!

引用:

---

最初由 Markchu7 發表
以OLDHX代入!謝謝!

---

原碼:
KLINE(O,H,L,C,0);
IF DATATYPE>5 THEN exit;
CK:=DATE<>REF(DATE,1) or barpos=1;
SP:=BARSLAST(CK)+1;
MM3:=IF(SP>3,3,SP);
MM4:=IF(SP>4,4,SP);
MM5:=IF(SP>5,5,SP);
MM6:=IF(SP>6,6,SP);
MM21:=IF(SP>21,21,SP);
/////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////////
HX:HHV((IF(SP>3,REF(CLOSE,MM3),HHV(MAX(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),HHV(MAX(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),HHV(MAX(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),HHV(MAX(O,C),MM6)))/4,MM21),COLORRED;
//LX3:LLV((IF(SP>3,REF(CLOSE,MM3),LLV(MIN(O,C),MM3))+IF(SP>4,REF(CLOSE,MM4),LLV(MIN(O,C),MM4))+IF(SP>5,REF(CLOSE,MM5),LLV(MIN(O,C),MM5))+IF(SP>6,REF(CLOSE,MM6),LLV(MIN(O,C),MM6)))/4,MM21),COLORBLUE;
OLDHX:IF(BARSLAST(CROSS(HX=REF(HX,1),0.8))+1>SP,HX,REF(HX,BARSLAST(CROSS(HX=REF(HX,1),0.8)))),COLORBLUE,LINETHICK2;
NEWHX: OLDHX*0 COLOR000000 linethick2;
StNo:=lbound(OLDHX); NowNEWHX:=OLDHX[StNo];
for i=StNo to datacount do begin
  if ABS(OLDHX[i]-NowNEWHX)>10 then NowNEWHX:=OLDHX[i];
  NEWHX[i]:=NowNEWHX;
end;

感謝指導!研究去!

感謝總版主之前的協助!
但目前發現一個之前自己未清楚說明之處,想請總版主協助修正!
就是'如何決定NEWHX首根的值'的問題!
以OLDHX代入的不只是歷史的首根,而是每日的首根,如附圖中的粗黑線!應如何修改,請協助!謝謝!

Markchu7 附帶上了此圖片:

引用:

---

最初由 Markchu7 發表
感謝總版主之前的協助!
但目前發現一個之前自己未清楚說明之處,想請總版主協助修正!
就是'如何決定NEWHX首根的值'的問題!
以OLDHX代入的不只是歷史的首根,而是每日的首根,如附圖中的粗黑線!應如何修改,請協助!謝謝!

---

原碼:

StNo:=lbound(OLDHX); NowNEWHX:=OLDHX[StNo];
for i=StNo to datacount do begin
  if ABS(OLDHX[i]-NowNEWHX)>10 then NowNEWHX:=OLDHX[i];
  NEWHX[i]:=NowNEWHX;
end;

原碼:
StNo:=lbound(OLDHX);
for i=StNo to datacount do begin
  if i=StNo or CK[i] then NowNEWHX:=OLDHX[i];
  if ABS(OLDHX[i]-NowNEWHX)>10 then NowNEWHX:=OLDHX[i];
  NEWHX[i]:=NowNEWHX;
end;

謝謝!我去試試!

感謝總版主協助!效果完全符合所需!
但公式源碼中的常數10,我嘗試以'MA(H-L,10)'取代,以貼近盤勢,但似乎是不可!
請教:若以以'MA(H-L,10)'取代常數10,是否能做到?如何做?請指導!謝謝!

原碼:
StNo:=lbound(OLDHX); SS:=MA(H-L,10);
for i=StNo to datacount do begin
  if i=StNo or CK[i] then NowNEWHX:=OLDHX[i];
  if i>=lbound(SS) then begin
    if ABS(OLDHX[i]-NowNEWHX)>SS[i] then NowNEWHX:=OLDHX[i];
  end;
  NEWHX[i]:=NowNEWHX;
end;

感謝總版主指導!學習去!

LX:REF(LLV(L,21),1),COLORRED,LINETHICK1;
OLDLX:IF(BARSLAST(CROSS(LX=REF(LX,1),0.8))+1>CKSP,LX,REF(LX,BARSLAST(CROSS(LX=REF(LX,1),0.8)))),COLORRED,LINETHICK2;
NEWLX: OLDLX*0 COLORFF00FF linethick3;

StNoLX:=lbound(OLDLX); SS:=CKMM13RG;
for i=StNoLX to datacount do begin
if i=StNoLX or DBCK[i] then NowNEWLX:=OLDLX[i];
if i>=lbound(SS) then begin
if ABS(OLDLX[i]-NowNEWLX)>SS[i] then NowNEWLX:=OLDLX[i];
end;
NEWLX[i]:=NowNEWLX;
end;

NEWLX是自己依樣畫葫蘆寫的!
依照理解應該是在附圖中圓圈所畫的上箭頭處產生變化的!
但一直到後面才變化!是我理解錯誤!還是依樣畫葫蘆寫的公式有誤?請總版主指導!謝謝!

Markchu7 附帶上了此圖片:

補充程式!
分鐘首K:=ISREGULARFBAR;
換日首K:=TRADEDATE<>REF(TRADEDATE,1);
歷史首K:=BARPOS=1;
DBCK:=IF(DATATYPE=1 OR DATATYPE=11 OR DATATYPE=2,分鐘首K OR 換日首K,歷史首K),LINETHICK;
CKSP:=BARSLAST(DBCK)+1,LINETHICK;
CKMM13:=IF(DATATYPE=12 OR DATATYPE=11 OR DATATYPE=1 OR DATATYPE=2,IF(CKSP<=13,CKSP,13),13),LINETHICK;
CKMM13RG:MA(H-L,CKMM13),COLOR000000,LINETHICK;
補充:以上是CK(更改為DBCK)及CKMM13RG的公式寫法!

您設 SS:=CKMM13RG

因為
ABS(OLDLX[i]-NowNEWLX)>CKMM13RG
在該處並不成立，故不會如您想的那樣畫

感謝指導!謝謝!