奇狐社區論壇

奇狐社區論壇 : Powered by vBulletin version 2.3.0

奇狐社區論壇 > 指標公式 > 問題交流 > 請教

上一主題下一主題

作者

主題

a9681054
資深會員

註冊日期: Nov 2008
來　　自: 新北市
文章數量: 479

請教

//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卻出現下標越界，弄了好久不曉得問題出在哪裡?想請版主撥空幫忙，謝謝~

a9681054 附帶上了此圖片:

__________________
chiu

向版主報告此篇 |

2018-10-17 11:41

cgjj
總版主

註冊日期: Oct 2003
來　　自:
文章數量: 18091

回覆: 請教

引用:
最初由 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卻出現下標越界，弄了好久不曉得問題出在哪裡?想請版主撥空幫忙，謝謝~

當然會出錯囉~~
SARN 數列，第一個有效數據，並非自第一根開始
故 AA 與 BB 也隨之狀況相同(算式中有用到)

您將
AA:H>REF(H,1) AND L>=SARN,linethick;
BB:L<REF(L,1) AND H<=SARN,linethick;

改為
AA:H>REF(H,1) AND L>=SARN or barpos=0,linethick;
BB:L<REF(L,1) AND H<=SARN or barpos=0,linethick;

就可以解決

向版主報告此篇 |

2018-10-17 12:03