커뮤니티
부탁드립니다.
2011-11-17 00:48:14
409
글번호 44853
갭보정하여 RSI가 기준선 20을 상향돌파 하는 종목을 검색하고 싶습니다.
항상 많은 도움을 받고있읍니다.
신속한 답변에 감사드립니다.
행복한 하루 되십시요.
답변 1
예스스탁 예스스탁 답변
2011-11-17 10:18:09
안녕하세요
예스스탁입니다.
Inputs: RSIPeriod(14);
Variables: RSIcount(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0),RSIv(0);
var : sumGap(0), gap(0), GO(0), GH(0), GL(0), GC(0);
if date!=date[1] then { // 날짜가 변경되는 봉에서(분봉에서 첫번째 봉)
gap = Open-Close[1]; // 일간갭
sumGap = sumGap+gap; // 일간갭 누적
}
GO = O - sumGap;// 갭보정 시가
GH = H - sumGap;// 갭보정 고가
GL = L - sumGap;// 갭보정 저가
GC = C - sumGap; // 갭보정 종가
If CurrentBar == 1 AND RSIPeriod > 0 Then Begin
UpSum = 0;
DownSum = 0;
For RSIcount = 0 To RSIPeriod - 1 Begin
UpAmt = GC[RSIcount] - GC[RSIcount+1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
End;
UpAvg = UpSum / RSIPeriod;
DownAvg = DownSum / RSIPeriod;
End
Else
If CurrentBar > 1 AND RSIPeriod > 0 Then Begin
UpAmt = GC[0] - GC[1];
If UpAmt >= 0 Then
DownAmt = 0;
Else Begin
DownAmt = -UpAmt;
UpAmt = 0;
End;
UpAvg = (UpAvg[1] * (RSIPeriod - 1) + UpAmt) / RSIPeriod;
DownAvg = (DownAvg[1] * (RSIPeriod - 1) + DownAmt) / RSIPeriod;
End;
If UpAvg + DownAvg <> 0 Then
RSIv = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv = 0;
if crossup(RSIv,20) Then
find(1);
즐거운 하루되세요
> 초보자10 님이 쓴 글입니다.
> 제목 : 부탁드립니다.
> 갭보정하여 RSI가 기준선 20을 상향돌파 하는 종목을 검색하고 싶습니다.
항상 많은 도움을 받고있읍니다.
신속한 답변에 감사드립니다.
행복한 하루 되십시요.
다음글
이전글