커뮤니티
다시 문의드립니다.
2022-05-20 14:44:51
738
글번호 159099
이전 77284번 문의에서 10분봉 가중이평선이 아니라 삼각가중이평선 으로 문의드렸습니다.
살펴보시고 답을 부탁드립니다. 수고하세요!
답변 1
예스스탁 예스스탁 답변
2022-05-20 15:51:06
안녕하세요
예스스탁입니다.
가중을 삼각가중으로 수정했습니다.
input : 타주기분(10),단순기간(20),삼각기간(30);
var : S1(0),D1(0),TM(0),TF(0),cnt(0);
Var : Sum1(0),MAV1(0);
Var : Sum2(0),sum3(0),Tma(0),TLen(0);
Array : CC[100](0),mav2[100](0);
TLen = Ceiling((삼각기간 + 1) * .5);
if Bdate != Bdate[1] Then
{
S1 = TimeToMinutes(stime);
D1 = sdate;
}
if D1 > 0 then
{
if sdate == D1 Then
TM = TimeToMinutes(stime)-S1;
Else
TM = TimeToMinutes(stime)+1440-S1;
TF = TM%타주기분;
if Bdate != Bdate[1] or
(Bdate == Bdate[1] and 타주기분 > 1 and TF < TF[1]) or
(Bdate == Bdate[1] and 타주기분 > 1 and TM >= TM[1]+타주기분) or
(Bdate == Bdate[1] and 타주기분 == 1 and TM > TM[1]) Then
{
for cnt = 1 to 99
{
CC[cnt] = CC[cnt-1][1];
mav2[cnt] = mav2[cnt-1][1];
}
}
CC[0] = C;
if CC[단순기간-1] > 0 Then
{
Sum1 = 0;
For cnt = 0 To 단순기간 - 1
{
Sum1 = Sum1 + CC[cnt];
}
mav1 = sum1/단순기간;
plot1(mav1,"단순");
}
if CC[TLen-1] > 0 Then
{
Sum2 = 0;
For cnt = 0 To TLen - 1
{
Sum2 = Sum2 + CC[cnt];
}
mav2[0] = sum2/TLen;
}
if mav2[TLen-1] > 0 Then
{
Sum3 = 0;
For cnt = 0 To TLen - 1
{
Sum3 = Sum3 + mav2[cnt];
}
Tma = sum3/TLen;
Plot2(Tma,"삼각");
}
}
즐거운 하루되세요
> 해암 님이 쓴 글입니다.
> 제목 : 다시 문의드립니다.
> 이전 77284번 문의에서 10분봉 가중이평선이 아니라 삼각가중이평선 으로 문의드렸습니다.
살펴보시고 답을 부탁드립니다. 수고하세요!