奇狐社區論壇 (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=21606)

請教

//MACD//
OO:=OPEN; LL2:=LLV(LOW,2); HH2:=HHV(HIGH,2);
CC:=CLOSE ;
DIFF:=EMA( CC , S ) - EMA( CC , G ),PRECISION2 ;
DEA:=EMA( DIFF , M ),PRECISION2,COLORWHITE ;
MACD:=2 * ( DIFF - DEA ) ,PRECISION2,LINETHICK1,COLORMAGENTA;
AA:H>REF(H,1)AND MACD>0 linethick;
BB:L<REF(L,1)AND MACD<0 linethick;

NowMM:=0; 停損線:=CLOSE*0;
停損線[1]:=OO[1];
for i=2 to DATACOUNT do begin
IF AA[i] and LL2[i]>NowMM then begin
NowMM:=LL2[i];
end else IF BB[i] and HH2[i]<NowMM then begin
NowMM:=HH2[i];
end;
停損線[i]:=NowMM;
end;


//SAR//
OO:=OPEN; LL2:=LLV(LOW,2); HH2:=HHV(HIGH,2);
SARN:=SAR(N,STEP,MAXP),CIRCLEDOT;
CH:=CROSS(SARN,L);
CL:=-CROSS(H,SARN);
TF:=IF(CH,CH,IF(CROSS(H,SARN),CL,0));
UD:=REF(TF,BARSLAST(TF));
AA:H>REF(H,1) AND L>=SARN,linethick ;
BB:L<REF(L,1) AND H<=SARN,linethick;//

NowMM:=0; 停損線:=CLOSE*0;
停損線[1]:=OO[1];
for i=2 to DATACOUNT do begin
IF AA[i] and LL2[i]>NowMM then begin
NowMM:=LL2[i];
end else IF BB[i] and HH2[i]<NowMM then begin
NowMM:=HH2[i];
end;
停損線[i]:=NowMM;
end;


版主你好
上面程式配合迴圈，MACD可以通過測試顯示，但SAR卻出現下標越界，弄了好久不曉得問題出在哪裡?想請版主撥空幫忙，謝謝~

__________________
chiu

回覆: 請教

引用:

---

最初由 a9681054 發表
//MACD//
OO:=OPEN; LL2:=LLV(LOW,2);
......................................

//SAR//
OO:=OPEN; LL2:=LLV(LOW,2); HH2:=HHV(HIGH,2);
SARN:=SAR(N,STEP,MAXP),CIRCLEDOT;
CH:=CROSS(SARN,L);
CL:=-CROSS(H,SARN);
TF:=IF(CH,CH,IF(CROSS(H,SARN),CL,0));
UD:=REF(TF,BARSLAST(TF));
AA:H>REF(H,1) AND L>=SARN,linethick ;
BB:L<REF(L,1) AND H<=SARN,linethick;//

NowMM:=0; 停損線:=CLOSE*0;
停損線[1]:=OO[1];
for i=2 to DATACOUNT do begin
IF AA[i] and LL2[i]>NowMM then begin
NowMM:=LL2[i];
end else IF BB[i] and HH2[i]<NowMM then begin
NowMM:=HH2[i];
end;
停損線[i]:=NowMM;
end;


版主你好
上面程式配合迴圈，MACD可以通過測試顯示，但SAR卻出現下標越界，弄了好久不曉得問題出在哪裡?想請版主撥空幫忙，謝謝~

---

or BARPOS=0 是一種取巧的寫法, 詳見這邊的解說:
http://www.chiefox.com.tw/bbs/showt...60805#post60805

版主你好
可以顯示了，謝謝您~

__________________
chiu

引用:

---

最初由 a9681054 發表
版主你好
可以顯示了，謝謝您~

---