커뮤니티
수정 부탁드립니다.
2024-09-10 14:37:19
529
글번호 183316
input : pPriceVal(NumericSimple), pPeriod(NumericSimple);
var : v0(0), v1(0), v2(0), v3(0), v4(0), v5(0), v6(0), ii(0), vResult(0);
v0 = 0;
v1 = 0;
v2 = 0;
v3 = 0;
v4 = 0;
v5 = 0;
v6 = pPeriod;
vResult = 0;
For ii = 0 To (v6 - 1) step 1
Begin
v1 = pPriceVal[ii] - pPriceVal[ii + 1];
If v1 < 0 Then
Begin
v0 = - v1;
v1 = 0;
End
Else If v1 >= 0 Then
Begin
v0 = 0;
End;
v2 = v2 + v1;
v3 = v3 + v0;
End;
v4 = v2 / v6;
v5 = v3 / v6;
If (v4 + v5) != 0 Then
vResult = 100 * v4 / (v4 + v5);
Else
vResult = 0;
RSIOrig = vResult;
답변 1
예스스탁 예스스탁 답변
2024-09-10 17:04:03
안녕하세요
예스스탁입니다.
input : pPriceVal(NumericSeries), pPeriod(NumericSimple);
var : v0(0), v1(0), v2(0), v3(0), v4(0), v5(0), v6(0), ii(0), vResult(0);
v0 = 0;
v1 = 0;
v2 = 0;
v3 = 0;
v4 = 0;
v5 = 0;
v6 = pPeriod;
vResult = 0;
For ii = 0 To (v6 - 1) step 1
Begin
v1 = pPriceVal[ii] - pPriceVal[ii + 1];
If v1 < 0 Then
Begin
v0 = - v1;
v1 = 0;
End
Else If v1 >= 0 Then
Begin
v0 = 0;
End;
v2 = v2 + v1;
v3 = v3 + v0;
End;
v4 = v2 / v6;
v5 = v3 / v6;
If (v4 + v5) != 0 Then
vResult = 100 * v4 / (v4 + v5);
Else
vResult = 0;
RSIOrig = vResult;
즐거운 하루되세요
> lacl 님이 쓴 글입니다.
> 제목 : 수정 부탁드립니다.
> input : pPriceVal(NumericSimple), pPeriod(NumericSimple);
var : v0(0), v1(0), v2(0), v3(0), v4(0), v5(0), v6(0), ii(0), vResult(0);
v0 = 0;
v1 = 0;
v2 = 0;
v3 = 0;
v4 = 0;
v5 = 0;
v6 = pPeriod;
vResult = 0;
For ii = 0 To (v6 - 1) step 1
Begin
v1 = pPriceVal[ii] - pPriceVal[ii + 1];
If v1 < 0 Then
Begin
v0 = - v1;
v1 = 0;
End
Else If v1 >= 0 Then
Begin
v0 = 0;
End;
v2 = v2 + v1;
v3 = v3 + v0;
End;
v4 = v2 / v6;
v5 = v3 / v6;
If (v4 + v5) != 0 Then
vResult = 100 * v4 / (v4 + v5);
Else
vResult = 0;
RSIOrig = vResult;