커뮤니티
일봉에서 RSI
2024-05-14 15:36:29
733
글번호 179513
일봉에서 RSI 가 전봉보다 상승하는 검색식부탁드립니다..
분봉(30분봉) 에서 전봉보다 상승하는 검색식부탁드립니다..
답변 1
예스스탁 예스스탁 답변
2024-05-14 16:29:14
안녕하세요
예스스탁입니다.
종목검색속성에서 검색에 필요한 최소기간에 500봉 지정하고 검색하시기 바랍니다.
과거봉수에 영향을 받으므로 차트도 30분봉으로 500봉만 조회해서 비교해 보셔야 합니다.
Input : Length(14),signal(9);
var : cnt(0),SigSum(0),count2(0),RSIsig(0);
Var : Counter(0), DownAmt(0), UpAmt(0), UpSum(0), DownSum(0), UpAvg(0), DownAvg(0);
var : idx(0), PreUpAvg(0), preDownAvg(0),sum(0),sig(0);
Array : C1[100](0),RSIV[100](-1);
if Bdate != Bdate[1] Then
{
for cnt = 99 DownTo 1
{
C1[cnt] = C1[cnt-1];
RSIV[cnt] = RSIV[cnt-1];
}
PreUpAvg = UpAvg[1];
preDownAvg = DownAvg[1];
idx = idx + 1;
}
C1[0] = C;
If idx == Length+2 Then
{
UpSum = 0;
DownSum = 0;
For Counter = 0 To Length - 1
{
UpAmt = C1[Counter] - C1[Counter+1];
If UpAmt >= 0 Then
DownAmt = 0;
Else
{
DownAmt = -UpAmt;
UpAmt = 0;
}
UpSum = UpSum + UpAmt;
DownSum = DownSum + DownAmt;
}
UpAvg = UpSum / Length;
DownAvg = DownSum / Length;
}
If idx > Length+2 Then
{
UpAmt = C1[0] - C1[1];
If UpAmt >= 0 Then
DownAmt = 0;
Else
{
DownAmt = -UpAmt;
UpAmt = 0;
}
UpAvg = (PreUpAvg * (Length - 1) + UpAmt) / Length;
DownAvg = (preDownAvg * (Length - 1) + DownAmt) / Length;
}
If UpAvg + DownAvg <> 0 Then
RSIv[0] = 100 * UpAvg / (UpAvg + DownAvg);
Else
RSIv[0] = 0;
if RSIV[0] > RSIV[1] Then
Find(1);
즐거운 하루되세요
> 가림 님이 쓴 글입니다.
> 제목 : 일봉에서 RSI
> 일봉에서 RSI 가 전봉보다 상승하는 검색식부탁드립니다..
분봉(30분봉) 에서 전봉보다 상승하는 검색식부탁드립니다..
다음글
이전글